去oracle.com下载ado或odbc的驱动程序,安装好之后就可以在客户端访问 Oracle了。
for example;
Sub connectOracleData()
'Oracle·þÎñÆ÷µÄ·þÎñÃûΪmaster,Óû§ÃûΪscott
Dim sConnect As String, sSql As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
sConnect = "Provider=OraOLEDB.Oracle.1;Password=tiger;" & _
"Persist Security Info=True;User ID=scott;Data Source=master"
Set cn = New ADODB.Connection
cn.ConnectionString = sConnect
cn.Open 'Connect to Oracle8i Database server
MsgBox "Connection Successful!"
sSql = "select * from softinfo"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.source = sSql
rs.CursorLocation = adUseClient
rs.LockType = adLockReadOnly
rs.Open
MsgBox "Recordset opened successfully!"
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub