vb+数据库编程之+ado+连接数据库实例.docxVIP

VB 数据库编程之 ADO 连接数据库实例 这里先说说ADO勺ACCES数据库连接吧，两种 AD0控件连接 “工程”菜单—“部件 …”：Microsoft ADO Data Control 6.0 (SP6) (0LEDB) 并将Adodc数据控件绘入窗体。 右击Adodc数据控件一属性一使用连接字符串-生成一 Microsoft Jet 4.0 OLE DB Provider 一数据位置一找到要连接的 ACCES数据库文件，， Adodc数据控件的RecordSource属性为“ 2 - adcmdTable”和你要连接的 表名。 控件的引用实例如下： 组合框(Combo控件列表用某字段数据记录填充 范例 在窗体Load事件或Combe的相关事件中写入 循环 1 到记录总数 For i = 1 To Adodc1.Recordset.RecordCount 如果不在记录集结尾则 If Not Adodc1.Recordset.EOF Then 组合框增加一行：“姓名”字段的值 Combol.AddItem Adodc1.Recordset.Fields( 姓名).Value 记录指针向后一个 Adodc1.Recordset.Movenext End If Next i ADO代码连接 通用声明 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command 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今天就到这里。 范例 引用请注明出处！