-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Link-àÿ òàáëèöà Oracle

Ñðåäà, 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó