Вот так я соединяюсь к таблице DBF необходимо на основе данных с этой таблицы создать новую таблицу:
Set ws = DBEngine.CreateWorkspace("", "Admin", "", dbUseODBC)
Set con = ws.OpenConnection("ConName", dbRunAsync, False, _
"ODBC;DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=c:\NSI;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;")

Соединяется нормально дальшо пишу запрос на создание таблицы:

con.Execute "CREATE TABLE c:\NSI\tblmy" & _
"([Vagon] text, [First] datetime, [Second] datetime)"
Создает отлично таблицу без проблем затем пытаюсь заполнить таблицу пишу запрос:

con.Execute "INSERT INTO tblmy IN 'C:\NSI' 'ODBC;DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=c:\NSI;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;'" & _
" SELECT VAGON, Format(DateSerial(Mid([DATEN],3,2), Mid([DATEN],5,2), Right([DATEN],2)), 'dd/mm/yy') AS [First]," & _
" Format(DateSerial(Mid([DATEK],3,2), Mid([DATEK],5,2), Right([DATEK],2)),'dd/mm/yy') AS [Second]" & _
" FROM Arenda"

пишет ошибку 3146 ODBC-ошибка вызова. Че не так?
Еще пробовал написать тут же запрос:

con.Execute "SELECT *" & _
" INTO d:\CrSprav\Input\tblAr" & _
" FROM Arenda" & _
" WHERE (('" & DData & "') Between DATEN And DATEK)"

пишет ошибку 3146 ODBC-ошибка вызова.
Хотя просто запрос на выборку
con.Execute "SELECT *" & _
" FROM Arenda" & _
" WHERE (('" & DData & "') Between DATEN And DATEK)"
работает нормально.

Т.е. Не хотят работать запросы INSERT ... INTO... и SELECT ... INTO ...
Подскажите что я упустил в запросах.

AndreyMpФормат даты должен быть американским mm/dd/yyyy.

Пробовал не помогает таже ошибка выходит.

AndreyMpДа, забыл сказать что дата должна ограничиваться диезами, т.е. #11/30/2005#

это тоже предусмотрел у меня переменная в запросе получается так
Dim DData As String
DData = "#" DData = "#" Mid(CStr(Date - 1), 4, 2) & "/" & Left(CStr(Date - 1), 2) & "/" & Mid(CStr(Date - 1), Len(Date - 1) - 1, 2) & "#"

Мне не понятно почему два запроса с одинаковыми выборками и с одной и той же переменной:

con.Execute "SELECT *" & _
" FROM Arenda" & _
" WHERE (('" & DData & "') Between DATEN And DATEK)"
работает нормально, а запрос:

con.Execute "SELECT *" & _
" INTO d:\CrSprav\Input\tblAr" & _" FROM Arenda" & _
" WHERE (('" & DData & "') Between DATEN And DATEK)"

не работает. Че не так посмотрите синтаксис Into может как то подругому надо указывать путь к таблице или указать DSN здесь.

TIKO\
попробуй так
SELECT *
INTO 'd:\CrSprav\Input\tblAr\имяфайла.dbf'
FROM Arenda


Так тоже попробовал, таже ошибка. У меня должен создаться файл tblAr.dbf
SELECT *
INTO 'd:\CrSprav\Input\tblAr.dbf'
FROM Arenda

Я гдето видел что в FoxPro синтаксис запросов INTO ... и INSERT ... INTO ...
отличается от Access-го, что надо INTO писать в самом конце. Примерно вот так:
SELECT *
FROM Arenda
WHERE (('" & DData & "') Between DATEN And DATEK)
INTO d:\CrSprav\Input\tblAr.dbf

Подскажите синтаксис, кто знает, этих SQL запросов в FoxPro. (INTO ... и INSERT ... INTO ...).

Пользователь2Посмотри здесь .

Спасибо за совет. Нашел кое что.

Сейчас запрос переделал по синтаксису FoxPro
con.Execute "SELECT *" & _
" FROM c:\NSI\Arenda.dbf" & _
" WHERE (('" & DData & "') Between DATEN And DATEK)" & _
" INTO TABLE d:\CrSPRAV\Input\tblAr.dbf"
Работает вроде без ошибок но таблицу в указанном месте не создает, хотя тот же запрос попробовал на FoxPro запустить
SELECT *;
FROM c:\NSI\Arenda.dbf;
WHERE (('20051212') Between DATEN And DATEK);
INTO TABLE d:\CrSPRAV\Input\tblAr.dbf

нормально создает таблицу в указанном месте. У кого есть какие новые соображения всегда им рад :-)