大概是这个意思 Dim rst As New ADODB.Recordset Set CONN = New ADODB.Connection CONN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & “学生数据库” '打开数据库 rst.Open "select * from [学生数据表]", CONN, 3, 2 With rst .AddNew .Fields("name").Value = text1 .text .Update .Close End With
Private Sub Command1_Click() Data1.Database.Execute "INSERT INTO yourTableName([name]) VALUES('" & Text1 & "')" End Sub
请大家注意,楼主用的是 Data 控件,也就是引用 DAO 对象库。ADO 代码不能直接适用,尽管可以再附加上 ADO 的一套东西。
Dim rst As New ADODB.Recordset
Set CONN = New ADODB.Connection
CONN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & “学生数据库” '打开数据库
rst.Open "select * from [学生数据表]", CONN, 3, 2
With rst
.AddNew
.Fields("name").Value = text1 .text
.Update
.Close
End With
Data1.Database.Execute "INSERT INTO yourTableName([name]) VALUES('" & Text1 & "')"
End Sub