Fungsi berikut digunakan untuk menambahkan kolom pada tabel yang sudah ada melalui script SQL.
Kolom akan ditambahkan pada dua tabel yang berbeda.
Kolom akan ditambahkan pada dua tabel yang berbeda.
Access XP : Messagebox konfirmasi Ya atau Tidak
Pernah ditanya oleh sebuah program atau aplikasi?
Jika pernah, maka script berikut ini akan membuat pertanyaan serupa pada aplikasi ms access xp 2002.
Jika pernah, maka script berikut ini akan membuat pertanyaan serupa pada aplikasi ms access xp 2002.
Access XP : Perintah select dan result dari SQL Server
Dim rst As New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.Open "select tm.No_Bukti,k.Nama,k.nik from trMemoRetur tm left join karyawan k on k.ID_Karyawan = tm.operator where tm.ID_trMemoRetur='" & Me.ID_trMemoRetur & "'"
With rst
Me.No_Bukti = .Fields("No_Bukti").Value
Me.Operator = .Fields("Nama").Value
Me.NIK = .Fields("nik").Value
End With
rst.ActiveConnection = CurrentProject.Connection
rst.Open "select tm.No_Bukti,k.Nama,k.nik from trMemoRetur tm left join karyawan k on k.ID_Karyawan = tm.operator where tm.ID_trMemoRetur='" & Me.ID_trMemoRetur & "'"
With rst
Me.No_Bukti = .Fields("No_Bukti").Value
Me.Operator = .Fields("Nama").Value
Me.NIK = .Fields("nik").Value
End With
Access XP : Jika muncul error Not Precission
.Parameters.Append .CreateParameter("@Jumlah", adDecimal, adParamInput, , Me.Jumlah)
.Parameters("@Jumlah").Precision = 18
.Parameters("@Jumlah").Precision = 18
Access XP : Memanggil stored procedure SQL Server
Dim com As New ADODB.Command
With com
.ActiveConnection = CurrentProject.Connection
.CommandTimeout = 0
.CommandType = adCmdStoredProc
.CommandText = "Update_trMemoRetur"
.Parameters.Append .CreateParameter("@ID_trMemoRetur", adInteger, adParamInput, , Me.ID_trMemoRetur)
.Parameters.Append .CreateParameter("@Operator", adInteger, adParamInput, , Forms!frmLogin!ID_Karyawan)
.Execute
End With
With com
.ActiveConnection = CurrentProject.Connection
.CommandTimeout = 0
.CommandType = adCmdStoredProc
.CommandText = "Update_trMemoRetur"
.Parameters.Append .CreateParameter("@ID_trMemoRetur", adInteger, adParamInput, , Me.ID_trMemoRetur)
.Parameters.Append .CreateParameter("@Operator", adInteger, adParamInput, , Forms!frmLogin!ID_Karyawan)
.Execute
End With
Cara efektif meningkatkan trafik dan pengunjung blog atau website
Halo para pengunjung situs infogue.xyz. Berbicara mengenai trafik atau pengunjung, berarti kita dihadapkan dengan yang namanya SEO atau Search Engine Optimazion dan secara otomatis kita harus menerapkan hal-hal di bawah ini untuk mendapatkan SEO yang cukup efektif.
Lazarus : Kumpulan skrip sederhana
Memasukkan hanya angka saja di textbox
isikan kode berikut pada object textbox di event onKeypressif not (Key in ['0'..'9', #8, #9]) then Key := #0;
Message box sederhana
Skrip berikut ini untuk menampilkan message box (kotak peringatan) sederhana di lazaruslazarus : kosongkan obyek secara cepat
Untuk mengosongkan obyek biasanya kita menggunakan teknik per obyek, misal jika kita ingin mengosongkan nilai dari textbox1, maka skrip yang kita tulis adalah seperti ini:
textbox1.text='';
Bayangkan jika textbox yang akan kita kosongkan berjumlah 100 atau lebih, maka akan sangat banyak baris skrip yang kita tulis. Untuk itu diperlukan penyederhanaan kode atau skrip seperti di bawah ini:
textbox1.text='';
Bayangkan jika textbox yang akan kita kosongkan berjumlah 100 atau lebih, maka akan sangat banyak baris skrip yang kita tulis. Untuk itu diperlukan penyederhanaan kode atau skrip seperti di bawah ini: