本文主要是介绍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.CommandobjCnn.ConnectionString = "FileDSN=Mysqltext.dsn;uid=sa;pwd=123" '设置Connection对象实例objcnn的ConnectionString属性objCnn.Open '打开连接数据库With objCmd '使用command对象创建参数查询.ActiveConnection = objCnn.CommandText = "select * from employee".CommandType = adCmdTextEnd WithWith objRst '创建客户端记录集.CursorLocation = adUseClient '指定使用客户端光标.CursorType = adOpenDynamic '指定使用静态光标.LockType = adLockReadOnly '指定使用只读锁.Open objCmd '根据objcmd对象参数进行查询End WithSet DataGrid1.DataSource = objRst '在dataGrid控件中显示查询结果End SubPrivate Sub Form_Unload(Cancel As Integer)objRs.closeobjCnn.Close Set objCnn = NothingSet objCmd = NothingSet objRst = NothingEnd 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数据库的连接就创建好了。
这篇关于ADO对象模型访问数据库的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
