VB串連ORACLE資料庫

'開啟資料庫  
   
  Public   Sub   OpenOraDB()  
          On   Error   GoTo   ToExit  
          OraDB_Open   =   False  
          Set   OraDB   =   New   ADODB.Connection  
          OraConstr   =   "Provider=OraOLEDB.Oracle.1;Password="   &   strOraPWD   &   ";User   ID="   &   strOraUser   &   ";Data   Source="   &   OraDBNetName   &   ";Persist   Security   Info=False"  
          OraDB.CursorLocation   =   adUseServer  
           
          OraDB.Open   OraConstr  
          OraDB_Open   =   True  
           
          Exit   Sub  
  ToExit:  
          'MsgBox   "串連資料庫伺服器錯誤，您可以在網路正常後繼續使用。",vbInformation   ,   "錯誤資訊"  
          OraDB_Open   =   False  
  End   Sub  
   
  '關閉資料庫  
   
  Public   Sub   CloseOraDB()  
          If   OraDB_Open   =   True   Then  
                  If   (OraDB.State   =   adStateOpen)   Then  
                          OraDB.Close  
                          Set   OraDB   =   Nothing  
                          OraDB_Open   =   False  
                  End   If  
          End   If  
  End   Sub  
   
  '開啟資料集，寫入資料  
   
          Set   OraRS   =   New   ADODB.Recordset  
          OraRS.ActiveConnection   =   OraDB  
          OraRS.CursorLocation   =   adUseServer  
          OraRS.LockType   =   adLockBatchOptimistic  
          strOraRS   =   "select   *   from   "   &   OraDBtablename  
          OraRS.Open   strOraRS,   OraDB,   adOpenStatic,   adLockOptimistic    
          OraRS.AddNew  
          OraRS.Fields("PID")   =   strOraPID  
          OraRS.Fields("pname")   =   strName").Value  
          OraRS.Fields("psex")   =   strPsex  
          OraRS.Update  
   
  '關閉資料集  
   
          OraRS.Close  
          Set   OraRS   =   Nothing   
http://topic.csdn.net/t/20050508/19/3990155.html