sqlserver教程VB语言使用ADO连接、操作SQLServer数据库教程sqlserver视频教程网盘速看，

这篇文章主要介绍了VB语言使用ADO连接、操作SqlServer数据库教程,本文讲解详细、代码中有大量注释,是非常好的一篇教程,需要的朋友可以参考下

VB连接ADO数据库并不是非常难。

连接第一步（要仔细看）

对于小白来讲，这里的教程最详细，连接ADO数据库第一步，要添加什么部件呢？全称是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件。

在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)部件里有一个名叫：Adodc数据控件，要将它添加。在Adodc数据控件数据位置中找到ACCES。

控件引用的方法（值指的是姓名）

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

该代码引用的编写者是ydl890406大大，在VB群中写这东西时，让我借用了，后来我发现有很多错误，y大神修改几次后的还是有错误，干脆重写了一遍，这就是后来的代码。时间过去的很快，VB群也解散了。后来不知为何，现在很多的教程都用了这段代码。

第二部分是AOD的代码连接，由于第二部分涉及到Recordset对象和Connection对象，自己学一下，完全可以自己编写。

何为Recordset对象和Connection对象，Connection对象是与数据源的连接，Recordset对象是操作数据。

寻找Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件

VB用ADO连接SQLServer数据库

数据源信息常量

Public Const conn As String = "Provider = SQLOLEDB.1;Password = sa; UserID = sa; Initial Catalog = StudentFiles; Data Source = localhost"

Public Const CONNECT_LOOP_MAX = 10 一次执行connect操作，可以访问数据库的次数

Private IsConnect As Boolean 标记数据库是否连接

Private Connect_Num As Integer 标记执行Connect()函数后访问数据的次数

Private cnn As ADDODB.Connection 连接数据库的Connect对象

Private re As ADDODB.Recordset 保存结果集的Recordset对象

//连接数据库

Private Sub Connect()

如果连接标记为真，则返回。

IF IsConnect = True Then

Exit Sub

End If

Set cnn = New ADODB.Connection 关键new用于创建新对象cnn

cnn.ConnectionString = conn

cnn.Open

判断连接的状态

If cnn.State <> adStateOpen Then

MsgBox"数据库连接失败"

End

End If

设置连接标识，表示已经连接到数据库

IsConnect = True

End Sub

断开与数据库的连接

Private Sub DisConnect()

Dim rc As Long

If IsConnect = False Then

Exit Sub

End If

关闭连接

cnn.Close

释放cnn

Set cnn = Nothing

IsConnect = False

End Sub

使用Connect_Num控制数据连接

Public Sub DB_Connect()

Connect_Num = Connect_Num + 1

Connect

End Sub

使用Connect_Num控制数据断开

Public Sub DB_Disconnect()

If Connect_Num >= CONNECT_LOOP_MAX Then

Connect_Num = 0

Disconnect

End If

End Sub

强制关闭api方式访问俄的数据库，计数器复位

Public Sub DBapi_Disconnect()

Connect_Num = 0

Disconnect

End Sub

执行数据库操作语言

byval 就是按参数的值传递，再传递过程中，参数不会发生变化(也就是将参数值而不是将地址传递给过程的方式，这就使过程访问发哦变量的副本，过程不可改变变量的值)；

与之对应的是byref,指按参数的地址传值，byref可以省略

Public Sub SQLExt(ByVal TmpSQLstmt As String )

Dim cmd As New ADODB.Command 创建Command对象cmd

DB_Connect 连接数据库

Set cmd.ActiveConnection = cnn 设置cmd的ActiveConnect属性，指定与其关联的数据库连接

cmd.CommandText = TmpSQLstmt 设置要执行的命令文本

MsgBox TmpSQLstmt

cmd.Execute 执行命令

Set cmd = Nothing

DB_DisConnect 断开与数据库的连接

End Sub

执行数据库查询语句

Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset

Dim rst As New ADODB.Recordset 创建Rescordset对象rst

DB_Connect 连接数据库

Set rst.ActiveConnection = cnn 设置rst的ActiveConnection属性,指定与其相关的数据库的连接

rst.CursorType = adOpenDynamic 设置游标类型

rst.LockType = adLockOptimistic 设置锁定类型

rst.Open TmpSQLstmt 打开记录集

Set QueryExt = rst 返回记录集

End Function