用RDO链接数据库,对数据库进行增加、删除、修改的操作

使用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.Text
txtDatabase  =  Text2.Text
txtUser  =  t_User.Text
txtPws  =  t_Pws.Text
strConn  =   " Driver=SQL SERVER; "   &   " SERVER= "   &  txtServer  &   " ;UID= "  _
             &  txtUser  &   " ;Pwd= "   &  txtPws  &   " ;database= "   &  txtDatabase
Set  rdoConn  =   New  RDO.rdoConnection
rdoConn.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