使用RDO的一般方法如下。 先声明变量: PublicconAsrdoConnection,resAsrdoResultset 然后初始化rdoEngine,设置用户和口令等缺省参数;WithrdoEngine .rdoDefaultUser = " sa " ' 用户为sa .rdoDefaultPassword = " pass " ' 口令为pass .rdoDefaultCursorDriver = rdUseServer .rdoDefaultLoginTimeout = 15 EndWith 再连接到要访问的远程数据库(可使用DSNConnection和DSN - LessConnection)。 使用DSNConnection举例(连接服务器SERVER上的数据库hotel): Setcon = rdoEnvironments( 0 ).OpenConnection ( " hotel " ,rdDriverNoPrompt, False ) 使用DSN - LessConnection举例(连接服务器SERVER上的数据库hotel): Setcon = rdoEnvironments( 0 ).OpenConnection ( "" ,rdDriverNoPrompt, False ,_ " driver={SQLServer};server=SERVER;database=hotel " ) 建立连接后,既可使用OpenResultset方法执行查询并处理结果集,又可使用Execute方法执行包括数据定义和数据操作在内的动作查询。例如: Setres = con.OpenResultset( " SELECT * FROM menu " ,rdOpenStatic) con.Execute " CREATE VIEW menu_view AS SELECT 代码,菜名 FROM menu " ,rdExecDirect RDO最强大和最重要的特性之一是:它可以查询和处理由存储过程返回的结果,无论它有多么复杂。 Dim txtUser As String Dim txtPws As String Dim txtServer As String Dim txtDatabase As String Dim strsql As String Dim a, i As Integer Dim b As String ' 连接SQL2000 txtServer = Text1.TexttxtDatabase = Text2.TexttxtUser = t_User.TexttxtPws = t_Pws.TextstrConn = " Driver=SQL SERVER; " & " SERVER= " & txtServer & " ;UID= " _ & txtUser & " ;Pwd= " & txtPws & " ;database= " & txtDatabase Set rdoConn = New RDO.rdoConnectionrdoConn.Connect = strConn ' rdoConn.CursorDriver = rdUseNonerdoConn.EstablishConnection rdDriverNoPrompt, False ' 添加 txtshopname = Text1.Text With rdoRs strsql = " Select * from shop where shopname=' " & txtshopname & " ' " Set rdoRs = rdoConn.OpenResultset(strsql, rdOpenDynamic, rdConcurValues) If Not rdoRs.EOF Then rdoRs.MoveLast 添加1 Else 添加2 End If End With