如何将vb中输入的数据自动储存在数据库中

来源：百度知道 编辑：UC知道 时间：2024/06/02 02:08:38
我现在在设计一个vb的程序，就是在vb的界面里输入产品的相关信息，这些信息会自动储存在电脑的数据库中，我选择用access来建立数据库，可是怎样才能将vb中输入的数据自动储存在access数据库中，可以实现吗？
谢谢！！！！！

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
cn.Execute "insert into admin (zhanghao,mima) values ('" & Text1.Text & "','" & Text2.Text & "')"
cn.Close
MsgBox "保存完毕！"
End Sub

注意要在工程中引用ADO。

首先要确定一下您所谓的自动是什么意思,是在文本框中输完就保存呢还是在您全部输入一系列相关内容后按某个键后保存,

如是第一种情况, 那么您保存的代码应该写在文本框的事件中,如您在文本框中输入一个回车表示您输入完毕保存数据
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '输入了回车
rs.addnew
rs!姓名 = Text1
rs.update
End If
End Sub

如是第二种情况,就得把代码写到command_click事件中了

VB是面向对象的开发工具,您可以在任何您需要保存的事件中写入保存代码,这样就能符合您的要求了

recordset.adddnew
recordset(字段)=“信息”
……
recordset.update