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 = TrueEnd Sub  '断开与数据库的连接Private Sub DisConnect() Dim rc As Long  If IsConnect = False Then   Exit Sub End If '关闭连接 cnn.Close '释放cnn Set cnn = Nothing IsConnect = FalseEnd Sub '使用Connect_Num控制数据连接Public Sub DB_Connect()  Connect_Num = Connect_Num + 1  ConnectEnd 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  DisconnectEnd 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