虚位以待(AD)
虚位以待(AD)
首页 > 软件编程 > VB编程 > VB语言使用ADO连接、操作SQLServer数据库教程

VB语言使用ADO连接、操作SQLServer数据库教程
类别:VB编程   作者:码皇   来源:互联网   点击:

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

几年前学过的VB几乎忘光了,这几天复习了下。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 = 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
相关热词搜索: VB语言 ADO 连接SQLServer数据库 操作SQLS