db的操作

'/----------------------------------------------------------------------------------------------
'/ 処理名 ：データベースオープン
'/
'/ 機能 ：データベースをオープンする
'/
'/ 引数 ：ioHandle ：データベースハンドル構造体（DB_HANDLE）
'/
'/ 戻値 ：DB_OpenDatabase ：処理結果（True:正常 / False:エラー）
'/
'/----------------------------------------------------------------------------------------------
'/ 2003/02/05 　　　　　 新規作成
'/----------------------------------------------------------------------------------------------
'/
Public Function DB_OpenDatabase(ByRef ioHandle As DB_HANDLE, Optional ByVal strKubun As Integer = , Optional ByVal strDatabaseType As String = "MSSqlServer") As Boolean
 
Dim strServer As String = Nothing '/ サーバー
Dim strUser As String = Nothing '/ ユーザー
Dim strPassword As String = Nothing '/ パスワード
Dim strDefaultDatabase As String = Nothing '/ デフォルトデータベース
Dim SqlOutputFlag As String '/--SQLログファイル出力フラグ
 
Dim plReturn As Boolean
 
plReturn = False
 
strServer = basFunction.AppIni_Get("データベース", "サーバー")
strUser = basFunction.AppIni_Get("データベース", "ユーザー")
strPassword = basFunction.AppIni_Get("データベース", "パスワード")
'データベース取得区分
If strKubun =  Then
strDefaultDatabase = basFunction.AppIni_Get("データベース", "デフォルトデータベース")
Else
strDefaultDatabase = basFunction.AppIni_Get("データベース", "デフォルトデータベース2")
End If
 
If ioHandle.OpenDatabase.OpenFlag Then '/ オープン済の場合は処理中断
 
plReturn = True
Return plReturn
 
End If
Try
 
If strDatabaseType = "MSSqlServer" Then
'/ データベースオープン
ioHandle.DataBaseAccess = New MSSqlServer()
ioHandle.DataBaseAccess.Open(strUser, strPassword, strServer) '/ -- オープン
ioHandle.DataBaseAccess.Connection.ChangeDatabase(strDefaultDatabase)
ioHandle.OpenDatabase.OpenFlag = True '/ オープンフラグセッ=ト
ElseIf strDatabaseType = "AccessJET" Then
ioHandle.DataBaseAccess = New AccessJET()
ioHandle.DataBaseAccess.Open(strUser, strPassword, strServer) '/ -- オープン
ioHandle.OpenDatabase.OpenFlag = True '/ オープンフラグセッ=ト
ElseIf strDatabaseType = "AccessACE" Then
ioHandle.DataBaseAccess = New AccessACE()
ioHandle.DataBaseAccess.Open(strUser, strPassword, strServer) '/ -- オープン
ioHandle.OpenDatabase.OpenFlag = True '/ オープンフラグセッ=ト
End If
 
Catch ex As Exception
basLog.ErrorLogging(cmMODULE_NAME, "DB_OpenDatabase", Err.Number)
Return plReturn
End Try
'ioHandle.DataBaseAccess.SqlOutputFlag = False
SqlOutputFlag = basFunction.SetupIni_Get("データベース", "SQLログ出力")
If SqlOutputFlag = "" Or String.IsNullOrEmpty(SqlOutputFlag) Then
ioHandle.DataBaseAccess.SqlOutputFlag = False '/SQLログファイル出力しません
Else
ioHandle.DataBaseAccess.SqlOutputFlag = True '/SQLログファイル出力する
End If
plReturn = True
 
Return plReturn
 
End Function

ioHandle.DataBaseAccess.Close() '/ データベースクローズ

ioHandle.Recordset = ioHandle.DataBaseAccess.GetDataTable(iSQL)'/レコードセットをオープンする

ioHandle.DataBaseAccess.ExecuteSqlCommand(iSQL) '/ アクションＳＱＬ実行

ioHandle.Recordset.Rows.Count

ioHandle.CurrentRowIndex = ioHandle.CurrentRowIndex + 1

ioHandle.Recordset.Dispose() '/ レコードセットクローズ

ioHandle.DataBaseAccess.BeginTrans()

ioHandle.DataBaseAccess.Commit() '/ トランザクションコミット

ioHandle.DataBaseAccess.RollBack() '/ トランザクションロールバック