本文主要是介绍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对象模型访问数据库的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!