7,714
社区成员
发帖
与我相关
我的任务
分享
Public Sub test()
Dim strSQL As String
Dim Cnn As New ADODB.Connection
Set Cnn = CurrentProject.Connection
strSQL = " insert into 表名(字段1,字段2,字段3) values(1,2,3)"
Cnn.Execute strSQL
End Sub
insert into 表名(字段1,字段2,字段3)
values (1,2,3)