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

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.7 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 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

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

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

  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 adStateClose

         statestring="adStateClosed"

    Case adStateOpen

         statestring="adStateOpen"

  End Select

  '显示连接的状态

  MsgBox "连接成功！",,statestring

  '对wzdz表进行查询操作

  my_recordset.Open "Select * from wzdz",cnn

  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 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\aaa.mdb;Persist Security Info=False"

strSql = "SELECT * FROM bbb"

Set conn = New ADODB.Connection

conn.ConnectionString = strConn

conn.Open