VB6+Access编程中的数据库操作方法.docVIP

附件2： VB6+Access编程中的数据库操作方法 例1： 首先，在工程里引用microsoft activex data objects 2.7 library Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String 在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句 cn.Open provider=microsoft.jet.oledb.4.0;data source= + App.Path + \数据库名.mdb + sql = select * from 表名 rs1.Open sql, cn rs1.MoveFirst Do While Not rs1.EOF Combo1.AddItem rs1(字段名) rs1.MoveNext Loop rs1.Close 例2： 一个用户登录系统 准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 点工程-引用 选中 Microsoft Activex Data Objects 2.Library 控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb 请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s = Text1.Text If s = 1 Or s = 2 Then UserName = InputBox(请输入用户名) Password = InputBox(请输入用户密码) sql = Select * From [UserInfo] where User= UserName UserInfo请换成你的实际数据表名 Rs.Open sql, Conn, 1, 3 If Rs.EOF Then MsgBox 没有找到此用户 Else If Rs(Password) = Password Then If s =1 Then MsgBox 123 ElseIf s = 2 Then MsgBox 456 End If Else MsgBox 密码错误 End If End If End Sub 上面的例子实现了查询 如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用 Conn.Execute SQL 就可以了,如: 添加的: SQL=Insert Into [UserInfo](User,Password) Values(aaaa,1234) Conn.Execute SQL 执行后,就添加了一条记录 删除: SQL=Delete From [UserInfo] Where User=aaaa Conn.Execute SQL 删除用户名为aaaa的用户记录 更新: SQL=Update [UserInfo] Set Password=abcdefg Where User=aaaa Conn.Execute SQL 执行后,修改用户aaaa的密码为abcdefg 以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了Private Sub Form_Load() Dim cnn As ADODB.Connection Dim my_recordset As ADODB.Recordset Dim connect_string As String Dim statestring As String Set cnn=New ADODB.Connection Set my_recordset=New ADODB.Recordset 连接Access数据库 connect_string=Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=??App.Path??\aaa.mdb;Persist?Security?Info=False cnn.Open connect_string Select Case cnn.State Case adStat