SqlServerへの接続　 次の文書

Private Sub cmd接続_Click()

Dim Con As New ADODB.Connection
Dim strConnectionStr As String

On Error GoTo Err_Handler

'接続文字列の組み立て
strConnectionStr = "Provider=SQLOLEDB; Data Source=WIN10N1; Initial Catalog=SSKPC; "

SQLServer認証方法 = 0

If SQLServer認証方法 = 1 Then
'Windows認証のとき
strConnectionStr = strConnectionStr & "Integrated Security=SSPI;"
Else
'SQL Server認証のとき
strConnectionStr = strConnectionStr & "USER ID=DBUser01; PASSWORD=DBUser01;"
End If


With Con 'SQL Serverへの接続

.ConnectionString = strConnectionStr '接続文字列の設定

.Open '接続の実行
.Close

End With
Set Con = Nothing

Beep
MsgBox "SQL Serverへの接続に成功しました！", vbOKOnly + vbInformation

Exit_Here:
Exit Sub

Err_Handler:
Select Case Err.Number
Case Is < 0
Beep
MsgBox "SQL Serverへの接続に失敗しました！", vbOKOnly + vbExclamation
End Select
Resume Exit_Here:

End Sub


　




← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)