用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