VB连接ORACLE数据库

    '打开数据库  
   
  Public   Sub   OpenOraDB()  
          On   Error   GoTo   ToExit  
          OraDB_Open   =   False  
          Set   OraDB   =   New   ADODB.Connection  
          OraConstr   =   "Provider=OraOLEDB..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  

【责编:Youping】

--------------------next---------------------