ADO对象模型访问数据库

   这几天被数据库这些东西给整头疼了，这些代码，不确切的说是“单词”，认识的真没有几个，OK，先看下面的代码，等一下围绕 ADO对象模型访问数据库分享点东西。

Option Explicit
Dim objCnn As ADODB.Connection                   '创建connect对象
Dim objRst As ADODB.Recordset                    '创建recordset对象
Dim objCmd As ADODB.Command                      '创建command对象
 
Private Sub Form_Load()
         Set objCnn = New ADODB.Connection             '创建connect对象实例
  Set objRst = New ADODB.Recordset                     '创建recordset对象实例
  Set objCmd = New ADODB.Command
 
  objCnn.ConnectionString = "FileDSN=Mysqltext.dsn;uid=sa;pwd=123"   '设置Connection对象实例objcnn的ConnectionString属性
  objCnn.Open                                                        '打开连接数据库
 
 With objCmd                                            '使用command对象创建参数查询
       .ActiveConnection = objCnn
     .CommandText = "select * from employee"
       .CommandType = adCmdText
 End With
 
 With objRst                                             '创建客户端记录集
     .CursorLocation = adUseClient                       '指定使用客户端光标
      .CursorType = adOpenDynamic                        '指定使用静态光标
     .LockType = adLockReadOnly                          '指定使用只读锁
     .Open objCmd                                        '根据objcmd对象参数进行查询
 End With

 Set DataGrid1.DataSource = objRst                       '在dataGrid控件中显示查询结果
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
        objRs.close
 objCnn.Close                                                       
        Set objCnn = Nothing
        Set objCmd = Nothing
        Set objRst = Nothing
       
End Sub

使用ADO 对象模型访问数据库(SQL Server )。

 

1、引用

为了能够在程序中使用ADO对象编程，在连接数据库前，需要在Visual Basic 6.0菜单 “工程”—“引用”中选择Microsoft ActiveX Data Objects 2.X Library组件。

2、代码

（1）创建一组ADO对象用于设置打开连接和产生结果集：

Dim objCnn As  ADODB.Connection
Dim objRs As  ADODB.Recordset
Dim objCmd As ADODB.Command

（2）创建ADO对象实例

Set objcnn =New ADODB.Connection
Set objrs =New ADODB.Recordset
Set objCmd = New ADODB.Command

（3）设置Connection对象实例的ConnectionString属性（注：ConnectionString为可读写string类型，指定一个连接字符串，告诉ADO如何连接数据库。），以便连接到数据库。

 

注：本方法需通过配置ODBC环境，进行数据源的注册后才能对数据源进行连接、访问和操作。

例如，DSN数据源是“mysqltext”、用户名是“sa”、口令"123"，与数据库“MyDataBase”建立的连接，代码如下：

objCnn.ConnectionString = "FileDSN=Mysqltext.dsn;uid=sa;pwd=123"

 

（4）设置好连接属性后，就可以打开连接对象:

objCnn.Open

 

 

至此，VB和SQL Server数据库的连接就创建好了。