ADO資料庫操作總結

一、


設定連線物件和串連記錄集
:

       Public gLoginCn As ADODB.Connection 
'

串連
Login

資料庫

       Public gLoginRs As ADODB.Recordset  
'

定義記錄集

二、


在模組中執行個體化對象：

Set gloginCn=new adodb.connection

Set gloginRs=new adodb.Recordset

三、


三種資料庫的連結方法

Oracle

 
strSQL = "Provider=OraOLEDB.Oracle.1;Password=" & tOracle.Password & ";Persist Security Info=True;User ID=" & _

   
tOracle.UserName & ";Data Source=" & tOracle.DataSource & ";Pooling =false"

             

'

問題由於
oracle

重啟或者串連中斷而
ADO.Net

仍然未釋放串連所致
,

'

解決方案是通過禁用
OracleClient

的
Pooling,

禁用方法是在連接字串中加上
Pooling=false.

' http://blog.joycode.com/uestc95/archive/2005/09/27/64200.aspx

             

   
Set gLinkOracle9i = New ADODB.Connection

   
gLinkOracle9i.CursorLocation = adUseClient

   
gLinkOracle9i.Open strSQL

 

Access:

  

 
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _

           
"Data Source=" & App.Path & "/

資料庫
/" & Mdb & ".mdb"                  
'

串連資料庫
SQL

語句

   
Set AccessCn = New ADODB.Connection    
''

執行個體化
Connection

對象
AccessCn

   
AccessCn.ConnectionString = strSQL

AccessCn.Open              
'

開啟資料庫連接

 

      
SQL:

             
strSQL = "Provider=SQLOLEDB.Oracle.1;Password=" & tOracle.Password & ";Persist Security Info=True;User ID=" & _

   
tOracle.UserName & ";Data Source=" & tOracle.DataSource & ";Pooling =false"

             

'

問題由於
oracle

重啟或者串連中斷而
ADO.Net

仍然未釋放串連所致
,

'

解決方案是通過禁用
OracleClient

的
Pooling,

禁用方法是在連接字串中加上
Pooling=false.

' http://blog.joycode.com/uestc95/archive/2005/09/27/64200.aspx

             

   
Set gLinkSQL = New ADODB.Connection

   
gLinkSQL.CursorLocation = adUseClient

gLinkSQL.Open strSQL

四、


判斷表是否存在於資料庫中

gOldTableRs.CursorLocation = adUseClient

       
strSQL = "SELECT Table_Name FROM Tabs WHERE Table_Name='" & UCase(labOldTab.Caption) & "'"  
'

表名強製為大寫
,

判斷是否存在

       
gOldTableRs.Open strSQL, gOldTableCn, adOpenDynamic, adLockReadOnly        
'

開啟資料庫

返回
gOldTableRs.RecordCount

為一表存在，反之不存在

五、


記錄集主要是用於對欄位的操作和記錄的操作

tTable.ZdName(i) = ObjRs.Fields(i).Name

tTable.ZdType(i) = ObjRs.Fields(i).Type

tTable.ZdSize(i) = ObjRs.Fields(i).DefinedSize

tTable.ZdScale(i) = ObjRs.Fields(i).NumericScale