vb-oboegaki blog　ＶＢ開発者の覚書

SQLServeを使用して
ADODB SqlServer接続文字列の作成時の注意点の覚書
sa で　ログインする場合
'=============================
'Windows2000の(Server)場合、ＳＱＬ2008、ＳＱＬ2005の
Nativeクライアントをｲﾝｽﾄｰﾙ出来るが、
実際にはＯＤＢCの設定が出来ないので
標準のＳＱＬクライアントを使うしかない。

'-----------------------------------------------
Public xdb As New ADODB.Connection
dim LoginID as string
dim PWD_TXT as string 'パスワード文字列
dim XDB_NM as string 'データベース名
dim SV_NAME as string 'サーバー名
dim s as string
xdb.Mode = adModeReadWrite
xdb.CommandTimeout = 15000
'ログインＩＤの設定
LoginID = "TS00"
'SQLNCLI.1
'SQLOLEDB.1
'SQL2008 Nativeの場合の文字列
s = "Provider=SQLNCLI10.1;workstation id=" & LoginID & ";"
'SQL2005 Nativeの場合の文字列
s = "Provider=SQLNCLI1.1;workstation id=" & LoginID & ";"
'SQL2000 または,SQL2005,SQL2008でも使用可
s = "Provider=SQLOLEDB.1;workstation id=" & LoginID & ";"

If PWD_TXT <> "" Then
s = s & "Persist Security Info=false;User ID=sa;"
s = s & "Password=" & PWD_TXT & ";"
Else
s = s & "Persist Security Info=false;User ID=sa;"
End If
s = s & "data source=" & SV_NAME & ";"
s = s & "initial catalog=" & XDB_NM & ";"

xdb.ConnectionString = s