Dim adoConnectionX As New ADODB.Connection
adoConnectionX.Open "Provider=MSDAORA.1;User ID=demo;Password=demo;server=beq-local;Persist Security Info=False"
Dim adoRecordsetX As New ADODB.Recordset
adoRecordsetX.Open "select rownum as 序号,employee.* from employee", adoConnectionX, adOpenKeyset, adLockOptimistic
adoConnectionX.Open "Provider=MSDAORA.1;User ID=demo;Password=demo;server=beq-local;Persist Security Info=False"
Dim adoRecordsetX As New ADODB.Recordset
adoRecordsetX.Open "select rownum as 序号,employee.* from employee", adoConnectionX, adOpenKeyset, adLockOptimistic
2.建立ODBC
3.用ADO訪問Database(建議)
应用 Oracle OLE DB 的专用接口:
OraOLEDB.Oracle.1 (Oracle 提供下载: http://download.oracle.com/otn/other/ole-oo4o/OraOLEDB_81710.exe)
MSDAORA.1 (Microsoft MDAC 2.X(ADO) 提供下载: http://download.microsoft.com/download/dasdk/install/2.60.6526.3/WIN98Me/CN/mdac_typ.exe)