Link- Oracle |
Private Sub CommandButton1_Click() Dim rsA As New ADODB.Recordset, S As String S = "ODBC;DRIVER={Oracle in OraClient11g_home1_32bit};UID=xxx;PWD=xxx_xxxxxxxx;DBQ=INFOBASE;SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=INFOBASE)))" rsA.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEMP\RR10.xls;Extended Properties=""Excel 8.0""" rsA.Source = "select F1 from [Excel 8.0;HDR=YES;IMEX=1;DATABASE=C:\TEMP\RR10.xls].[RR] union all select NAIM from [" & S & "].[SLAN]" rsA.Open rsA.Move (5) MsgBox rsA.Fields(0) End Sub