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

附件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 \数据库名.mdb\ sql = \表名\ 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.7 Library '控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click() Dim s As String

Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset

Conn.Open \ '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String

s = Text1.Text

If s = \

UserName = InputBox(\请输入用户名\ Password = InputBox(\请输入用户密码\

sql = \ 'UserInfo请换成你的实际数据表名 Rs.Open sql, Conn, 1, 3 If Rs.EOF Then

1

MsgBox \没有找到此用户\ Else

If Rs(\ If s =\

MsgBox \ ElseIf s = \ MsgBox \ End If

Else

MsgBox \密码错误\ End If End If End If End Sub

上面的例子实现了查询

如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用 Conn.Execute SQL 就可以了,如: 添加的:

SQL=\Conn.Execute SQL '执行后,就添加了一条记录 删除:

SQL=\Conn.Execute SQL '删除用户名为aaaa的用户记录 更新:

SQL=\Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

例3：

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数据库

2

connect_string=\rsist Security Info=False\ cnn.Open connect_string Select Case cnn.State Case adStateClose

statestring=\ Case adStateOpen

statestring=\ End Select '显示连接的状态

MsgBox \连接成功！\ '对wzdz表进行查询操作

my_recordset.Open \ my_recordset.Close End Sub

例4：

Dim strConn As String '连接字符串 Dim strSql As String 'SQL命令 Dim conn As ADODB.Connection '数据源 Dim Ado As ADODB.Recordset '记录集

strConn = \curity Info=False\

strSql = \Set conn = New ADODB.Connection conn.ConnectionString = strConn conn.Open

3