设置ADO函数库

连接ADO

PS:连接ADO之前请先连接ODBC

设置ADO函数库

在VB环境新建控制台文件

点击项目->添加COM引用->选中Microsoft ActiveX Data Objects 6.1Library->点击确定

Imports System

Module Program
    Sub Main()
        ...
    End Sub
End Module

使用Connection对象连接数据源

        Dim cn As ADODB.Connection
        cn = New ADODB.Connection
        cn.Open(“PROVIDER=MSDASQL;DSN=test;")

指定访问数据源的命令

Dim recordsettest As ADODB.Recordset
        recordsettest = New ADODB.Recordset
        recordsettest.Open(“select * from test”, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

通过Recordset对象在客户端和服务端之间传递和处理数据

If recordsettest.RecordCount > 0 Then		//先判断是否为0,避免MoveNext方法使用时报错
    	recordsettest.MoveNext()
End If

关闭打开的对象,关闭连接

recordsettest = Nothing
        cn.Close
        cn = Nothing