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.