Public Ado_Connect_String As String ' 接続文字列
Public Ado_Connect As New ADODB.Connection
Public Ado_DbCommand As New ADODB.Command
Public Ado_RecSet As New ADODB.Recordset
Public SetDBServer As String ' データベースサーバー名
Public SetDBNM As String ' データベース名
Public SetServerNM As String ' サーバー名
Public SetUserID As String ' ユーザID
Public SetPass As String ' パスワード
'データベースコネクト文字列作成
Ado_Connect_String = "Provider=SQLOLEDB.1;" + _
"Persist Security Info=False;" + _
"User ID=" + SetUserID + ";" + _
"password =" + SetPass + ";" + _
"Initial Catalog=" + SetDBNM + ";" + _
"Data Source=" + SetDBServer + ";" + _
"Use Procedure for Prepare=1;" + _
"Auto Translate=True;" + _
"Packet Size=4096;" + _
"Workstation ID=" + SetServerNM + ";" + _
"Use Encryption for Data=False;" + _
"Tag with column collation when possible=False"
'データベースコネクト処理
Ado_Connect.Open(Ado_Connect_String)
'データベースのトランザクション開始処理
Ado_Connect.BeginTrans()
Ado_RecSet = New ADODB.Recordset
'ﾃｰﾌﾞﾙのﾚｺｰﾄﾞｾｯﾄをｵｰﾌﾟﾝする。
Ado_RecSet.Open(Sql_String, Ado_Connect, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockReadOnly)
'取得したﾚｺｰﾄﾞ数(戻り値)
If Ado_RecSet.RecordCount = 0 Then
End IF
'データベースのコミット処理
Ado_Connect.CommitTrans()
'データベースのコミット処理
Ado_Connect.RollbackTrans()
'データベースのクローズ処理
Ado_Connect.Close()
Ado_Connect = Nothing
