zoukankan      html  css  js  c++  java
  • 转: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

  • 相关阅读:
    SpringBoot项目maven 打包时跳过测试
    scss 学习笔记
    万事都源于一个字:缘
    H To begin or not to begin 题解(思维)
    条件 题解(bitset优化floyd)
    Dima and Salad 题解(01背包变形)
    P1052 [NOIP2005 提高组] 过河 题解(dp+数论优化)
    A Simple Math Problem 题解(数论)
    威佐夫博弈
    P3951 [NOIP2017 提高组] 小凯的疑惑 题解(数论/结论题)
  • 原文地址:https://www.cnblogs.com/rosesmall/p/3140596.html
Copyright © 2011-2022 走看看