在VB做的界面当中输入信息,然后建立数据库,将这些输入的信息保存到数据库当中,如何实现?? 20
展开全部
举个简单的例子:
例如你在界面中放置了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
例如你在界面中放置了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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询