VB+数据库编程之+ADO+连接数据库实例

VB 数据库编程之 ADO 连接数据库实例

这里先说说ADO的ACCESS数据库连接吧，两种。

1.ADO控件连接

“工程”菜单→“部件...”：Microsoft ADO Data Control 6.0 (SP6) (OLEDB)

并将Adodc数据控件绘入窗体。

右击Adodc数据控件→属性→使用连接字符串→生成→Microsoft Jet 4.0 OLE DB Provider→数据位置→找到要连接的ACCESS数据库文件……

Adodc数据控件的RecordSource属性为“2 - adcmdTable”和你要连接的表名。

控件的引用实例如下：

'组合框（Combo）控件列表用某字段数据记录填充范例

'在窗体Load事件或Combo的相关事件中写入

'循环1到记录总数

For i = 1 To Adodc1.Recordset.RecordCount

'如果不在记录集结尾则

If Not Adodc1.Recordset.EOF Then

'组合框增加一行：“姓名”字段的值

Combo1.AddItem Adodc1.Recordset.Fields("姓名").Value

'记录指针向后一个

Adodc1.Recordset.Movenext

End If

Next i

2.ADO代码连接

通用声明

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim cmd As New mand

Private Sub Form_Load()

'实例化Connection对象

Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\personnel.mdb;"

'Recordset对象

Set rs = New ADODB.Recordset

rs.Open "职工信息", cn, adOpenDynamic, adLockOptimistic

'动态集开放式

'ADO数据使用范例

'If rs.RecordCount > 0 Then

'rs.MoveLast

'rs.MoveFirst

'Text1.Text = rs.Fields(2)

'End If

'组合框（Combo）控件列表用某字段数据记录填充范例

'循环1到记录总数

For i = 1 To rs.RecordCount

'如果不在记录集结尾则

If Not rs.EOF Then

'组合框增加一行："姓名"字段的值

Combo1.AddItem rs.Fields("姓名").Value

'记录指针向后一个

rs.MoveNext

End If

Next i

End Sub

注意，以上有关For循环和If条件语句的代码均为原创，引用请注明出处！OK，今天就到这里。