疯流成性 2006-08-03 13:16 发表评论

疯流成性 2006-07-19 10:51 发表评论

疯流成性 2006-07-19 10:16 发表评论

疯流成性 2006-06-16 09:21 发表评论

Imports  System.Data.OleDb


Public   Class  ComDataBase

     Private  LsConn  As   String          
     Private  LoleConn  As  OleDbConnection         
     Private  LoleTrans  As  OleDbTransaction        

     Public   Sub   New ()
         Dim  bOracle  As   Boolean   =   False
         Dim  oIni  As   New  ComIniFile( " ..\INI\CCCC001.ini " )

         If  (oIni.GetValue( " DB " ,  " DBTYPE " )  =   " ORACLE " )  Then
            bOracle  =   True
         End   If

         Dim  sServer  As   String   =  oIni.GetValue( " DB " ,  " SERVERNAME " ) 

         Dim  sDBName  As   String   =  oIni.GetValue( " DB " ,  " DBNAME " )      
         Dim  sUser  As   String   =  oIni.GetValue( " DB " ,  " USER " )          
         Dim  sPsw  As   String   =  oIni.GetValue( " DB " ,  " PASSWORD " )       

         If  (bOracle)  Then
            LsConn  =   " Provider=OraOLEDB.Oracle;Data Source= "   &  sDBName _
                     &   " ;User Id= "   &  sUser  &   " ;Password= "   &  sPsw  &   " ;OLEDB.NET=true "
         Else
             LsConn  =   " Provider=sqloledb;Data Source= "   &  sServer  &   " ;Initial Catalog= "  _
                      &  sDBName  &   " ;User Id= "   &  sUser  &   " ;Password= "   &  sPsw  &   " ; "
         End   If

     End Sub

'db open
     Public   Sub  Open()
         Try
        
             If  ( Not  (LoleConn  Is   Nothing ))  Then
                        If  (LoleConn.State  =  ConnectionState.Open)  Then
                     ' '接続文字列は定義しない文字列
                     If  (LoleConn.ConnectionString  <>  LsConn)  Then
                        LoleConn.Close()
                        LoleConn.ConnectionString  =  LsConn
                        LoleConn.Open()
                     End   If
                 Else
                     ' '接続文字列は定義しない文字列
                     If  (LoleConn.ConnectionString  <>  LsConn)  Then
                        LoleConn.ConnectionString  =  LsConn
                     End   If
                    LoleConn.Open()
                 End   If
             Else
                LoleConn  =   New  OleDbConnection(LsConn)
                LoleConn.Open()
             End   If
         Catch  ex  As  Exception
            ComLog.SetErrLog( " ComDataBase " ,  " Open " ,  " データベースの接続に失敗しました。 "   &  ex.Message)
            ComMsgBox.ErrMsg( " E-0002 " )
         End   Try
     End Sub


     Public   Sub  Close()
         Try
             ' 'データ ソースへの接続を閉じする
             If  ( Not  (LoleConn  Is   Nothing ))  Then
                LoleConn.Close()
             End   If
         Catch  ex  As  Exception
            ComLog.SetErrLog( " ComDataBase " ,  " Close " , ex.Message)
         Finally
             ' '対象を解放する
             If  ( Not  (LoleConn  Is   Nothing ))  Then
                LoleConn.Dispose()
                LoleConn  =   Nothing
             End   If
         End   Try
     End Sub


     Public   Sub  BeginTrans()
         ' 'トランザクションを開始する
        LoleTrans  =  LoleConn.BeginTransaction()
     End Sub


     Public   Sub  Commit()
        Execute( " Delete システム管理 where 1=2 " )
         ' 'トランザクションの終点をマークする
        LoleTrans.Commit()
     End Sub


     Public   Sub  RollBack()
        Execute( " Delete システム管理 where 1=2 " )
         ' 'データ変更を消去する
        LoleTrans.Rollback()
     End Sub

     Public   Function  GetDataSet( ByVal  sSQL  As   String )  As  DataSet
         Dim  oleAdapter  As  OleDbDataAdapter
         Dim  oDataSet  As  DataSet  =   New  DataSet

         Try
             Dim  oleCommand  As   New  OleDbCommand(sSQL, LoleConn)
            oleCommand.Transaction  =  LoleTrans
            oleAdapter  =   New  OleDbDataAdapter(oleCommand)
            oleAdapter.Fill(oDataSet)                ' 'SQL文を検索する
         Finally
            oleAdapter.Dispose()                     ' '対象を解放
         End   Try
         Return  oDataSet
     End Function


     Public   Function  Query( ByVal  sSQL  As   String )  As  OleDbDataReader
         Dim  oleCommand  As   New  OleDbCommand(sSQL, LoleConn)
         Try
            oleCommand.Transaction  =  LoleTrans
             Return  oleCommand.ExecuteReader()        ' 'SQL文を検索する
         Finally
            oleCommand.Dispose()                     ' '対象を解放
         End   Try
     End Function


     Public   Function  Query( ByVal  sSQL  As   String ,  ByRef  aryOleDbParameter  As  ArrayList)  As  OleDbDataReader
         Dim  oleCommand  As   New  OleDbCommand(sSQL, LoleConn)
         Dim  oleParam  As  OleDbParameter

         Try
            oleCommand.Transaction  =  LoleTrans

             For   Each  oleParam  In  aryOleDbParameter
                oleCommand.Parameters.Add(oleParam)
             Next
             Return  oleCommand.ExecuteReader()        ' 'SQL文を検索する
         Finally
            oleCommand.Dispose()                     ' '対象を解放
         End   Try
     End Function


     Public   Function  Execute( ByVal  sSQL  As   String )  As   Integer
         Dim  oleCommand  As   New  OleDbCommand(sSQL, LoleConn)    ' 'OleDbCommandの新インスタンス
         Try
            oleCommand.Transaction  =  LoleTrans
             Return  oleCommand.ExecuteNonQuery()     
         Finally
            oleCommand.Dispose()                            
         End   Try
     End Function

 
     Public   Function  Execute( ByVal  sSQL  As   String ,  ByRef  aryOleDbParameter  As  ArrayList)  As   Integer
         Dim  oleCommand  As   New  OleDbCommand(sSQL, LoleConn)   
         Dim  oleParam  As  OleDbParameter
         Try
            oleCommand.Transaction  =  LoleTrans

             For   Each  oleParam  In  aryOleDbParameter
                oleCommand.Parameters.Add(oleParam)
             Next

             Return  oleCommand.ExecuteNonQuery()     
         Finally
            oleCommand.Dispose()  

         End   Try
     End Function

疯流成性 2006-06-09 12:24 发表评论

疯流成性 2006-06-09 11:11 发表评论

疯流成性 2005-08-16 18:21 发表评论

疯流成性 2005-08-16 16:36 发表评论

疯流成性 2005-08-16 16:31 发表评论