N
Private Sub Run_Cmd()
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
On Error GoTo Error_Run_Cmd
With cmd
.ActiveConnection = "Provider=sqloledb;Data Source=NGHI;Initial Catalog=HOADON;User Id=sa;Password=120381;"
.CommandType = adCmdText
.CommandText = "Insert into tbl_DMTK(MaTK,TenTK) Values(6421,'Chi phí quan ly..')"
.Execute
End With
Set cmd = Nothing
Exit Sub
Error_Run_Cmd:
Exit Sub
End Sub
Thông thường query Access khi thục hiện thì nó báo số record thục hiện ví dụ:
"You are about append 1 row(s)" nhưng khi em thực hiện sub trên thì nó vẫn thực hiện, nhưng thục hiện được hay không thì chưa biết ?. Muốn biết lệnh có thực thi hay không (số record thực thi) thì phải làm thế nào? Anh chị diễn đàn xem qua có hướng đề xuất cho vấn đề này.
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
On Error GoTo Error_Run_Cmd
With cmd
.ActiveConnection = "Provider=sqloledb;Data Source=NGHI;Initial Catalog=HOADON;User Id=sa;Password=120381;"
.CommandType = adCmdText
.CommandText = "Insert into tbl_DMTK(MaTK,TenTK) Values(6421,'Chi phí quan ly..')"
.Execute
End With
Set cmd = Nothing
Exit Sub
Error_Run_Cmd:
Exit Sub
End Sub
Thông thường query Access khi thục hiện thì nó báo số record thục hiện ví dụ:
"You are about append 1 row(s)" nhưng khi em thực hiện sub trên thì nó vẫn thực hiện, nhưng thục hiện được hay không thì chưa biết ?. Muốn biết lệnh có thực thi hay không (số record thực thi) thì phải làm thế nào? Anh chị diễn đàn xem qua có hướng đề xuất cho vấn đề này.
