Private lSqlDatabase As New SqlClient.SqlConnection
‘ SQL SERVER Connect
lSqlDatabase.ConnectionString = GetConnectionString()
Private Function GetConnectionString() As String
Dim strConnectionString As String
‘ Data Source =サーバー名
‘ Database = データベース名
‘ User=ユーザー名
‘ Password=パスワード
‘Connection timeout=タイムアウトの設定（秒）
strConnectionString = “Data Source=” & lServerName & “;” & _
“Database=” & lDatabaseName & “;” & _
“User=” & lUserName & “;” & _
“Password=” & lUserPassword & “;” & _
“Connection timeout=” & CMD_TIMEOUT &”;”
Return strConnectionString
End Function
