本文主要介绍VB语言使用ADO连接和操作SQLServer数据库的教程。本文讲解详细，代码中有大量注释，是非常好的教程。有需要的朋友可以参考一下。
前几年学的VB我都快忘光了，所以这几天复习了一下。连接VB ADO数据库不是很难。
连接第一步（要仔细看）
对于小白来说，这里的教程是最详细的。连接ADO数据库的第一步需要添加哪些组件？全名是Microsoft ado数据控件6.0 (sp6) (oledb)部分。
在Microsoft ADO Data Control 6.0(SP6)(OLEDB)部件中有一个名为Adodc的数据控件，应该添加它。在Adodc数据控件的数据位置找到了ACCES。
控件(值是指名称)
复制代码如下：
对于i=1至Adodc1。记录集
如果不是Adodc1。Recordset.EOF然后
combo 1 . additemaddc1 . recordset . fields( Value )。价值
Adodc1。Recordset.Movenext
如果…就会结束
接下来我
这个代码参考的作者是ydl890406 Da。我在VB群里写这个东西的时候，借的。后来发现错误很多。被Y大神修改了几次，还是有错误，我就干脆重写了。这是后来的代码。时间过得很快，VB团解散了。后来因为某种原因，现在很多教程都在用这段代码。
第二部分是AOD的语码连接。由于第二部分涉及到记录集对象和连接对象，可以自己学习，自己写。
什么是记录集对象和连接对象？Connection对象是到数据源的连接，Recordset对象是操作数据。
查找Microsoft ado数据控件6.0 (sp6) (oledb)部件。
用VB ADO连接SQLServer数据库
数据源信息常数
public Const conn As String= Provider=SQL oledb . 1；密码=saUserID=sa初始目录=学生文件；“数据源=本地主机”
Public Const CONNECT_LOOP_MAX=10 执行连接操作时可以访问数据库的次数。
“Private IsConnect As Boolean”标记数据库是否已连接
Private _ num as integer 标记在执行Connect()函数后数据被访问的次数。
Privateas addodb。“连接”连接数据库的连接对象。
私有as添加odb。“记录集”保存结果集的记录集对象。
//连接到数据库
专用子连接()
如果连接标志为真，则返回。
如果IsConnect=True，则
出口接头
如果…就会结束
设置cnn=New ADODB。“连接”键new用于创建新对象cnn。
cnn。连接字符串=连接
cnn。打开
确定连接的状态。
如果cnn。那就开放吧
MsgBox 数据库连接失败
结束
如果…就会结束
设置连接ID以表明您已连接到数据库。
IsConnect=True
末端接头
断开与数据库的连接。
专用子断开()
Dim rc一样长
如果IsConnect=False，则
出口接头
如果…就会结束
关闭连接
cnn。关闭
发布cnn
设置cnn=无
IsConnect=False
末端接头
使用Connect_Num控制数据连接。
公共Sub DB_Connect()
连接数量=连接数量1
连接
末端接头
使用Connect_Num控制数据断开。
Public Sub DB_Disconnect()
如果连接数量=连接循环最大值，则
Connect_Num=0
拆开
如果…就会结束
末端接头
强行关闭api访问俄语数据库，计数器复位。
Public Sub DBapi_Disconnect()
Connect_Num=0
拆开
末端接头
执行数据库操作的语言。
Byval是通过参数的值来传递的，参数在重传的过程中不会改变(即参数值传递给过程而不是地址的方式，使得过程访问的是发送变量的副本，过程无法改变变量的值)；
与之对应的是byref，是指根据参数的地址来传递值。byref可以省略。
public Sub SQLExt(ByVal TmpSQLstmt作为字符串)
Dim cmd作为新的ADODB。“命令”创建命令对象cmd
DB_Connect 连接到数据库
设置cmd。“ActiveConnection=cnn”设置cmd的ActiveConnect属性，并指定与之关联的数据库连接。
敕令书 CommandText=TmpSQLstmt 设置要执行的命令文本。
MsgBox TmpSQLstmt
敕令书“执行”执行命令。
设置cmd=Nothing
DB_DisConnect 与数据库断开连接
末端接头
执行数据库查询语句。
公共函数查询扩展(ByVal TmpSQLstmt作为字符串)作为ADODB .记录集
暗淡rst作为新ADODB .记录集创建记录集对象英特尔的快速储存技术
数据库连接连接数据库
设置rst .ActiveConnection=cnn 设置英特尔的快速储存技术的主动连接属性，指定与其相关的数据库的连接
rst . CursorType=adOpenDynamic 设置游标类型
rst . LockType=adLockOptimistic 设置锁定类型
rst .打开 TmpSQLstmt 打开记录集
Set QueryExt=rst 返回记录集
结束功能
