VB6でRDOでSQLSerser2000に接続するには？

質問

基本的なことかもしれませんが教えてください（涙）

Windows2000
SQLServer2000
VB6 SP6　を使用しています。
(他に必要な情報があれば教えてください。。。）

VB6でRDOにてSQLServerに接続するには
どう記述すればよいのでしょうか？
分かりやすいサンプルを用意してもらうと大変助かります。
どうか急ぎでお願いします。

回答No.2

TAGOSAKU7 · ベストアンサー

Const DEF_SERVER　　As String = "(local)"　 'サーバー名称
Const DEF_ID　　　　As String = "sa"　　　　'ID
Const DEF_PASS　　　As String = ""　　　　　'パスワード
Const DEF_DB　　　　As String = "pubs"　　　'パスワード

'RDOで実行
Private Sub Command1_Click()
　　Dim rdoEn　 As RDO.rdoEnvironment
　　Dim rdoCn　 As RDO.rdoConnection
　　Dim strSQL　As String

　　'接続
　　Set rdoEn = RDO.rdoEnvironments(0)
　　Set rdoCn = New RDO.rdoConnection
　　With rdoCn
　　　　.Connect = "uid=" & DEF_ID & ";" & _
　　　　　　　　　　"pwd=" & DEF_PASS & ";" & _
　　　　　　　　　　"driver={SQL Server};" & _
　　　　　　　　　　"server=" & DEF_SERVER & ";" & _
　　　　　　　　　　"database=" & DEF_DB & ";"
　　　　　　　　　　.LoginTimeout = 5
　　　　　　　　　　.EstablishConnection rdDriverNoPrompt, True
　　End With
　　rdoEn.rdoConnections.Add rdoCn

　　'終了
　　rdoCn.Close
　　rdoEn.Close
　　Set rdoCn = Nothing
　　Set rdoEn = Nothing
End Sub

お礼

ありがとうございます！試してみます

回答No.1

TAGOSAKU7

なぜRDO？
ADOがメジャーだけど、今さらRDOを使用する利点が・・・

参考URL：

http://homepage2.nifty.com/inform/vbdb/