使用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最强大和最重要的特性之一是:它可以查询和处理由存储过程返回的结果,无论它有多么复杂。
先声明变量:
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
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