远程数据库的访问

下一页 1 2 

　　 　　远程数据对象（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访问远程数据库。

原文转自：http://www.ltesting.net