举个简单的例子:
例如你在界面中放置了5个text文本框,它们分别是:姓名、年龄、性别、住址、工作单位,那么在数据库的一个表中必须有上述的对应的字段,比如数据库是a.mdb,在这个数据库中的一个表是ab1表,表中有姓名、年龄、性别、住址、工作单位字段。
在界面中放置一个按钮,在按钮的单击事件中添加记录:
Dim db As New ADODB.Connection, RS As New ADODB.Recordset, strSQL As String
Private Sub Command1_Click()
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\a.mdb"
db.Open
strSQL = "select * from ab1表 "
RS.Open strSQL, db, 3, 3
RS.AddNew
RS!姓名 = Text1.Text
RS!年龄 = Text2.Text
RS!性别 = Text3.Text
RS!住址 = Text4.Text
RS!工作单位 = Text5.Text
RS.Update
RS.Close
db.Close
End Sub
随便 搜索 一下 就有了
还有 多用 msdn
我来