, 15 2014 . 03:03
+
!
MJet
XLS+Oracle
[SLAN] - ( )
.
rsA.Source = "select F1 from [Excel 8.0;HDR=YES;IMEX=1;DATABASE=C:\TEMP\RR10.xls].[RR] union all select NAIM from [" & S & "].[select * from T1 left join T2 on .....................................where ........]"
?
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
http://www.sql.ru/forum/1070933/link-aya-tablica-oracle