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