VS2010 VB SQLServer2008

質問

VS2010のVBでSQLServer2008に接続するプログラムを作成しています。

メインDBはWinXPになります。

WinXPのDBに接続しようとしている端末はWin７です。

LOCALならばSQLServerに接続し、作成、更新、削除が可能です。
LOCALのVBのプログラムの記述は問題ないかと思います。

しかし、Win７からWinXPのSQLServerのDBを接続したいのですが、エラーになってしまします。

エラー内容：ユーザー"ユーザー名"はログイン出来ませんでした。

テスト的にWin7の「SQL Server Management Studio」を起動して接続するとWinXPのDBは参照する事が出来ますので接続する環境は問題ないと思っています。
VBのプログラムから接続ができませんので、プログラムの問題なのでしょうか。

＜VBの記述＞
　　Imports System.Xml
Public gCn1 As New SqlClient.SqlConnection()
Private Const mstrDataSource As String = "Data Source = User\SQLEXPRESS,1433;"
Private Const mstrSecurity As String = "Integrated Security = false;"
Private Const mstrCatalog As String = "Initial Catalog = " & "TestTable;"
Private Const mstrUser As String = "User ID = " & "User;"
Private Const mstrPass As String = "Password = " & "1234;"
'---
Public Function Proc_DBConnect1()
Try
gCn1 = New System.Data.SqlClient.SqlConnection()
gCn1.ConnectionString = mstrDataSource
gCn1.ConnectionString &= mstrSecurity
gCn1.ConnectionString &= mstrCatalog
gCn1.ConnectionString &= mstrUser
gCn1.ConnectionString &= mstrPass

gCn1.Open() 　　＜＝　ここでエラーとなる。

Catch ex As Exception
MsgBox(Err.Description)　　＜＝　ここでエラーの内容が表示される
GoTo ExitProc_DBConnect1
End Try
ExitProc_DBConnect1:
Exit Function
End Function

ご教授の程よろしくお願いします。

回答No.1

tsukasa-12r · ベストアンサー

＞Private Const mstrDataSource As String = "Data Source = User\SQLEXPRESS,1433;"

のところを、

WinXP の IPアドレスを使って
Private Const mstrDataSource As String = "Data Source=xxx.xxx.xxx.xxx,1433;"
のようにするとか、
WinXP の コンピューター名を使って
Private Const mstrDataSource As String = "Data Source=PCNAME,1433;"
とするとか、
WinXP の コンピューター名と SQLServer のインスタンス名を使用して
Private Const mstrDataSource As String = "Data Source=PCNAME\INSTANCENAME;"
のようにしないとダメなんじゃないでしょうか。

http://msdn.microsoft.com/ja-jp/library/system.data.sqlclient.sqlconnection.connectionstring(v=vs.80).aspx
http://msdn.microsoft.com/ja-jp/library/ms254978(v=vs.80).aspx

お礼

回答ありがとうございます。
Private Const mstrDataSource As String = "Data Source = User\SQLEXPRESS,1433;"の記述ですが、
UserはPCNameを使用しています。
Private Const mstrDataSource As String = "Data Source = PC01\SQLEXPRESS,1433;"
宜しくお願いします。

回答No.2

todo36

SQLCMDでテストする。

sqlcmd -S PC01\SQLEXPRESS -d TestTable -U User

お礼

回答ありがとうございます。
上記のコマンドを入力してみましたが、結果は同じでした。
エラー内容：ユーザー"User"はログイン出来ませんでした。
上記のようなメッセージが出てしまいました。