用ADO代码访问数据库的方法

一、连接数据库

　

第一步：在工程中引用ADO对象

    方法：单击菜单 Project->References 弹出引用对话框，选择 Microsoft ActiveX Data Objects 2.5 Library 项，确定关闭对话框。引用ADO对象后，你就可以在工程中使用ADO访问数据库了。否则会出现编译错误！

第二步：声明ADO对象(全局变量必须放在公用模块中声明，当然也可以声明为模块级变量)

Public CnnSql As ADODB.Connection
Public RsSql As ADODB.Recordset

Public CnnAccess As ADODB.Connection
Public RsAccess As ADODB.Recordset

第三步：创建ADO对象

用于与SQLSERVER的连接代码

Set CnnSql = New ADODB.Connection       '创建ADO连接对象
CnnSql.ConnectionString = "driver={SQL Server};server=ServerName;uid=UserName;pwd=Password;database=DatabaseName"

'设置连接字符串
CnnSql.CommandTimeout = 20       '设置连接超时为20秒
CnnSql.Open         '打开连接

Set RsSql = New ADODB.Recordset    '创建ADO记录集
RsSql.CursorLocation = adUseClient      '使用客户端游标
RsSql.Open "SQL语句", CnnSql, adOpenDynamic, adLockOptimistic, adCmdText  打开ADO记录集

用于打开ACCESS数据库的代码

Set CnnAccess = New ADODB.Connection
CnnAccess.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "AECCESS数据库文件名(包括完整路径)"
CnnAccess.CommandTimeout = 30
CnnAccess.Open

Set RsAccess = New ADODB.Recordset
RsAccess.CursorLocation = adUseClient
RsAccess.Open "SQL语句", CnnAccess, adOpenDynamic, adLockOptimistic, adCmdText

第四步：设置约束控件

Set DataGrid1.DataSource = RsSql 或 Set DataGrid1.DataSource = RsAccess     '设置约束控件的数据源
DataGrid1.Refresh         '刷新数据

好

顶

顶！

ok

利用查询数据缓冲保存技术，查询算法优化等啦，我也不太会，交流！

ado 的自己带的例子也是很好的学习范例

ok.Thanks

<img src="images/post/smile/dvbbs/em01.gif" />