远程数据库的访问


远程数据对象(RDO)是VB 5.0中基于ODBC API的对象模型,它短小、快捷、强健,可以访问任何32位ODBC数据源,如SQL Server和Oracle数据库,是访问远程数据库的更新更高级的工具。

使用RDO的一般方法如下。

先声明变量:Public con As rdoConnection, res As rdoResultset

然后初始化rdoEngine,设置用户和口令等缺省参数;

With rdoEngine

.rdoDefaultUser = "sa" '用户为 sa

.rdoDefaultPassword = "pass" '口令为 pass

.rdoDefaultCursorDriver = rdUseServer

.rdoDefaultLoginTimeout = 15

End With

再连接到要访问的远程数据库(可使用DSN Connection和DSN-Less Connection)。

使用DSNC onnection举例(连接服务器SERVER上的数据库hotel):

Set con = rdoEnvironments(0)

.OpenConnection ("hotel", rdDriverNoPrompt, False)

使用DSN-Less Connection 举例(连接服务器SERVER上的数据库hotel):

Set con = rdoEnvironments(0)

.OpenConnection ("", rdDriverNoPrompt, False, "driver={SQL Server}; server= _ SERVER; database=hotel")

建立连接后,既可使用OpenResultset方法执行查询并处理结果集,又可使用Execute方法执行包括数据定义和数据操作在内的动作查询。 例 如:

Set res = con.OpenResultset ("SELECT * FROM menu", rdOpenStatic)

con.Execute "CREATE VIEW menu_view AS SELECT代码,菜名FROM menu",rdExecDirect

RDO最强大和最重要的特性之一是:它可以查询和处理由存储过程返回的结果,无论它有多么复杂。

除RDO外,还可使用RDC访问远程数据库。

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus