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 = 1, 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 = 1 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 = "0" Or String.IsNullOrEmpty(SqlOutputFlag) Then
ioHandle.DataBaseAccess.SqlOutputFlag = False ‘/SQLログファイル出力しません
Else
ioHandle.DataBaseAccess.SqlOutputFlag = True ‘/SQLログファイル出力する
End If
plReturn = True

Return plReturn

End Function