vb如何调用数据库-vb调用excel数据

VB语言使用ADO连接和操作SQLServer数据库教程

更新时间：2014-08-18 09:43:17 供稿：俊杰

本文主要介绍VB语言使用ADO连接和操作SQLServer数据库教程。 这篇文章讲解的很详细vb如何调用数据库，代码中也有很多注释。 这是一个很好的教程。 需要的朋友可以参考以下

几年前学的VB都快忘记了，这几天复习了一下。 将VB 连接到ADO 数据库并不难。

第一步连接（要仔细看）

对于小白来说，这里的教程是最详细的vb如何调用数据库，第一步连接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

如果不是 Adodc1.Recordset.EOF 那么

Combo1.AddItem Adodc1.Recordset.Fields("value").Value

Adodc1.记录集.Movenext

万一

接下来我

此代码参考的作者是 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