Скорость добавления в Access базу...

[Summer.05]

Antonariy
Efiop

Спасибо Вам Други, все заработало! Здорово!

[Summer.05]

Если позволите - два вопроса:

1. Есть код:
SELECT DISTINCT поля INTO NewTable FROM tblSrc

Работает, но в конце выдает ошибку:
Operation is not allowed when the object is closed

О каком объекте идет речь?

2. Есть код:
With Adodc1
.RecordSource = "SELECT Name INTO tbl2 From tblSrc WHERE tbl2.Title = tblSrc.Title"
.Refresh
End With

Не работает, требует какие-то дополнительные параметры.

Не подскажите ли?
Спасибо!

[Antonariy]

Потому что этот запрос создает таблицу, а не возвращает записи.

[Summer.05]

Antonariy
Я понял, спасибо! Меня устраивает. А по второму коду мнения есть?

[Antonariy]

Тоже самое.

[Summer.05]

Antonariy
Нет, не так.
Если первый код выполняется и создает таблицу, а только потом дает ошибку, то второй код не выполняется из-за ошибки в синтаксисе.

[Antonariy]

INTO tbl2 From tblSrc WHERE tbl2.Title = tblSrc.Title

Даже синтаксис знает, что сравнить по полю несуществующей таблицы будет затруднительно...

Summer.05, когда голову включишь?

[Summer.05]

INTO tbl2 From tblSrc WHERE tbl2.Title = tblSrc.Title

Даже синтаксис знает, что сравнить по полю несуществующей таблицы будет затруднительно...

Summer.05, когда голову включишь?

М-да.. А ты не прав, Повелитель...

Дано:
tbl1 - заполнена (8 полей)
tbl3 - пустая (поля аналогичны tbl1)
tbl2 - одно поле Title (заполнено)

Имеется код:

With Adodc1
.RecordSource = "INSERT INTO tbl3 (Title) SELECT Title FROM tbl1"
.Refresh
End With

Код работает, операция выполняется. Однако при добавлении в код условия WHERE

With Adodc1
.RecordSource = "INSERT INTO tbl3 (Title) SELECT Title FROM tbl1 WHERE tbl1.Title = tbl2.Title"
.Refresh
End With

выпадает ошибка: отсутствуют значения для одного или нескольких требуемых параметров.

Не подскажите, где затычка?

[Konst_One]

tbl2 отсутствует в выборке

[Summer.05]

Konst_One
Во, правильно! Спасибо!

[GSerg]

Summer.05, а когда двумя постами выше тебе то же самое сказал Antonariy, тебе почему-то показалось, что он не прав?

[Summer.05]

GSerg
Я понял так, что он имел в виду не существующую таблицу. А она существует. Только не включена была в запрос. Здесь нет разницы?

[GSerg]

С моей точки зрения, сказанное двумя предыдущими ораторами эквивалентно. Так что для меня да, разницы нет.

[Summer.05]

GSerg

Если так, то приношу свои извинения!

Antonariy
Прошу извинить, Повелитель!

[Antonariy]

С моей точки зрения, сказанное двумя предыдущими ораторами эквивалентно. Так что для меня да, разницы нет.

Не совсем.
1й запрос:

SELECT Name INTO tbl2 From tblSrc WHERE tbl2.Title = tblSrc.Title

Здесь парсер увидел INTO и решил, что таблица tbl2 не существует или будет все равно удалена, поэтому какой смысл ее использовать в WHERE?
2й запрос:

INSERT INTO tbl3 (Title) SELECT Title FROM tbl1 WHERE tbl1.Title = tbl2.Title

Здесь действительно, tbl2 отсутствует в выборке.

Судя по всему, автору нужен запрос такого типа:

Код: Выделить всё

INSERT INTO tbl3 (Title) SELECT Title FROM tbl1 WHERE Title in (select Title from tbl2)

Хотя глубокого смысла в нем не вижу.

[Summer.05]

Antonariy
Спасибо за разбор полетов!

Если можно, объясню логику словами.
Есть таблица tbl1. В ней, как я уже говорил, 8 полей, 38к тем диссертаций. Все поля заполнены.

Есть таблица tbl2. В ней только одно поле Title, но в этой таблице уже 26к тем диссертаций, так как она содержит убранное дублирование тем из таблицы tbl1. Но в ней нет данных по другим семи полям.

Замысел:

Отобрать в таблицу tbl3 из tbl1 содержание ВСЕХ ее полей, но вывести в tbl3 не все 38к тем, а только те, которые уже есть в tbl2.
Иными словами, из tbl2 взять содержимое поля Title, и к нему привязать содержимое других полей из tbl1, где эти названия совпадают.

Поэтому мне и надо соcтавить код, где WHERE tbl1.Title = Tbl2.Title
А он и не получается, хотя чувствую, что истина где-то рядом