powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запрос из Ексель в Аксесс
2 сообщений из 2, страница 1 из 1
Запрос из Ексель в Аксесс
    #36120205
Гусь@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
        Set cnnConn = New ADODB.Connection
        Dim rstRecordset As ADODB.Recordset
                With cnnConn
                    .ConnectionString = _
                        "Provider=Microsoft.Jet.OLEDB.4.0"
                    .Open "D:\Ñîòðóäíèêè\Ãðà÷åâ\MyDb.mdb"
                End With
 StrSQL = "SELECT ZhurnalVedomosti.Kod, ZhurnalVedomosti.Uchastok, ZhurnalVedomosti.Mesyazc, ZhurnalVedomosti.God, ZhurnalVedomosti.Data, Material.NameM, Material.Uzel, MaterialiPoVedomostyam.Kolvo, Lift.Adress, MaterialiPoVedomostyam.Lift, Sotrudniki.FIO, Sotrudniki.Êîä " & _
"FROM Lift INNER JOIN (Material INNER JOIN (Sotrudniki INNER JOIN (ZhurnalVedomosti INNER JOIN MaterialiPoVedomostyam ON ZhurnalVedomosti.Kod = MaterialiPoVedomostyam.Vedomost) ON Sotrudniki.Êîä = MaterialiPoVedomostyam.FIO) ON Material.Kod = MaterialiPoVedomostyam.Material) ON (Material.Kod = Lift.Kod) AND (Lift.NomerLifta = MaterialiPoVedomostyam.Lift) " & _
"WHERE (((ZhurnalVedomosti.Kod) = " & KodVedomost & "))"

        Set rstRecordset = cnnConn.Execute(StrSQL)
Точно такой же запрос вставляю в Аксесс работает, а из Екселя никуя, вернее зависает и пипец.
Уважаемы специалисты, подскажите где собака зарыта?
ЗЫ : Подозреваю, что надо не через АДО, а как-то по другому, а как ХЗ
...
Рейтинг: 0 / 0
Запрос из Ексель в Аксесс
    #36120511
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запрос из Ексель в Аксесс
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]