ADO对象模型访问数据库

8 篇文章 1 订阅


   这几天被数据库这些东西给整头疼了,这些代码,不确切的说是“单词”,认识的真没有几个,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数据库的连接就创建好了。






评论 20
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值