powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таблицы MDB and .DBF
14 сообщений из 14, страница 1 из 1
Таблицы MDB and .DBF
    #33102341
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Подскажите как скопировать одну запись из таблицы
Bp_a базы  Stacks.MDB  в таблицу  Bp_a_dbf.DBF
Bp_a_dbf.DBF .DBF аходится на диске C: в корневом оглавлении

Dim d As DAO.Database  ‘ птицу  поставил в  Tools \ References \  Microsoft  DAO  3 . 6   Object Library

DoCmd.TransferDatabase acLink, "dBase III", "c:\", acTable, _
    "Bp_a_dbf.DBF", "Bp_a"

Set d = DBEngine.Workspaces( 0 ).Databases( 0 )

SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III" 
'  Выборка из прилинкованной таблицы

d.Execute SQLText  ' Run-time error ' 3131 '  Ошибка синтаксиса в предложении FROM


СПАСИБО
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33102365
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Емеля2
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Подскажите как скопировать одну запись из таблицы
Bp_a базы  Stacks.MDB  в таблицу  Bp_a_dbf.DBF
Bp_a_dbf.DBF .DBF аходится на диске C: в корневом оглавлении

Dim d As DAO.Database  ‘ птицу  поставил в  Tools \ References \  Microsoft  DAO  3 . 6   Object Library

DoCmd.TransferDatabase acLink, "dBase III", "c:\", acTable, _
    "Bp_a_dbf.DBF", "Bp_a"

Set d = DBEngine.Workspaces( 0 ).Databases( 0 )

SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III" 
'  Выборка из прилинкованной таблицы

d.Execute SQLText  ' Run-time error ' 3131 '  Ошибка синтаксиса в предложении FROM


СПАСИБО
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33102370
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Емеля2
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Подскажите как скопировать одну запись из таблицы
Bp_a базы  Stacks.MDB  в таблицу  Bp_a_dbf.DBF
Bp_a_dbf.DBF .DBF аходится на диске C: в корневом оглавлении

Dim d As DAO.Database  ‘ птицу  поставил в  Tools \ References \  Microsoft  DAO  3 . 6   Object Library

DoCmd.TransferDatabase acLink, "dBase III", "c:\", acTable, _
    "Bp_a_dbf.DBF", "Bp_a"

Set d = DBEngine.Workspaces( 0 ).Databases( 0 )

SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III" 
'  Выборка из прилинкованной таблицы

d.Execute SQLText  ' Run-time error ' 3131 '  Ошибка синтаксиса в предложении FROM


СПАСИБО
вы же ее уже подключили, а по этому:
SQLText = "SELECT * FROM [Bp_a]"
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33103986
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор'вы же ее уже подключили, а по этому:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
DoCmd.TransferDatabase acLink, "dBase III", "c:\", acTable, _
"Bp_a_dbf.DBF", "Bp_a"
Set d = DBEngine.Workspaces( 0 ).Databases( 0 )
'- SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III"
'  Выборка из прилинкованной таблицы
'- d.Execute SQLText  ' Run-time error '3131'  Ошибка синтаксиса в предложении FROM

SQLText = "SELECT * FROM [Bp_a]"
d.Execute SQLText  ' Run-time error ' 3065 ' Невозможен запуск запроса на выборку
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33105565
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПОМОГИТЕ НАЙТИ ERROR

DoCmd.TransferDatabase acLink, "dBase III", "c:\", acTable, _
"Bp_a_dbf.DBF", "Bp_a"
Set d = DBEngine.Workspaces(0).Databases(0)
'- SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III"
' Выборка из прилинкованной таблицы
'- d.Execute SQLText ' Run-time error '3131' Ошибка синтаксиса в предложении FROM

SQLText = "SELECT * FROM [Bp_a]"
d.Execute SQLText ' Run-time error '3065' Невозможен запуск запроса на выборку
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33106411
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Емеля2ПОМОГИТЕ НАЙТИ ERROR

DoCmd.TransferDatabase acLink, "dBase III", "c:\", acTable, _
"Bp_a_dbf.DBF", "Bp_a"
Set d = DBEngine.Workspaces(0).Databases(0)
'- SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III"
' Выборка из прилинкованной таблицы
'- d.Execute SQLText ' Run-time error '3131' Ошибка синтаксиса в предложении FROM

SQLText = "SELECT * FROM [Bp_a]"
d.Execute SQLText ' Run-time error '3065' Невозможен запуск запроса на выборку
Собственно в сообщении об ошибке все написано - Select не переваривается функцией execute без присваивание объекту Recordset - DAO-модели просто НЕЧЕМ показать Вам результат выборки. Зато всякие INSERT, DELETE и проч. пройдут в нем без проблем. В чем цель Вашего execute? Если нужно ПОКАЗАТЬ пользователю результат выборки, то нужно воспользоваться интерфейсом формы, передав ему в кач-ве источника записей эту строку. Или использовать объект Recordes из той же библиотеки.
И, если Вы используете Access, лучше все-таки перейти в соответствующую ветку форума. :)) Это я к тому, что использование вот этой строки
Код: plaintext
Set d = DBEngine.Workspaces( 0 ).Databases( 0 )
не является обязательным, достаточно сделать
Код: plaintext
Set d = CurrentDB
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33106417
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
nibblesЭто я к тому, что использование вот этой строки
Код: plaintext
Set d = DBEngine.Workspaces( 0 ).Databases( 0 )
не является обязательным, достаточно сделать
Код: plaintext
Set d = CurrentDB

Кофе не выпил, не проснулся :) - можно даже вот так:
Код: plaintext
CurrentDB.Execute SQLText
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33106968
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
Dim D As DAO.Database
Dim SQLText As String
SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III"
Set D = CurrentDb '- имя текущей базы данных - Stocks.MDB
[color=red]D.Execute SQLText  ' Run-time error ' 3131 ':   Ошибка синтаксиса  в предложении FROM[/color]
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33107826
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Емеля2
Код: plaintext
1.
2.
3.
4.
Dim D As DAO.Database
Dim SQLText As String
SQLText = "SELECT * FROM [Bp_a] IN C:\Bp_a_dbf dBASE III"
Set D = CurrentDb '- имя текущей базы данных - Stocks.MDB
[color=red]D.Execute SQLText  ' Run-time error ' 3131 ':   Ошибка синтаксиса  в предложении FROM[/color]


IN 'C:\Bp_a_dbf'[dBASE III;]
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33109151
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторIN 'C:\Bp_a_dbf'[dBASE III;]


Код: plaintext
1.
2.
3.
4.
Dim D As DAO.Database
Dim SQLText As String

SQLText = "SELECT * FROM [Bp_a] IIN 'C:\Bp_a_dbf'[dBASE III;]"
'Set D2 = Stocks ' CurrentDb - имя текущей базы данных - Stocks.MDB
D.Execute SQLText ' Run-time error '3131': Ошибка синтаксиса в предложении FROM
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33109178
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
После исправления   IIN   на  IN 

Run-time error ‘ 3044 ’:

Строка ‘C:\Bp_a_dbf’ задаёт ошибочный путь. Я проверил,
файл
Bp_a_dbf.DBF  находится на С: , старой версии
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33110511
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Емеля2
Код: plaintext
1.
2.
3.
4.
5.
6.
После исправления   IIN   на  IN 

Run-time error ‘ 3044 ’:

Строка ‘C:\Bp_a_dbf’ задаёт ошибочный путь. Я проверил,
файл
Bp_a_dbf.DBF  находится на С: , старой версии

Для файлов dbf в подобных запросах указывается каталог, по этому - просто
"C:". А в качестве таблицы - имя файла...
т.е. вот так (ну, ошибся я)
"SELECT * FROM [Bp_a_dbf] IIN 'C:'[dBASE III;]"
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33110512
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"IIN" читать, как "IN"
...
Рейтинг: 0 / 0
Таблицы MDB and .DBF
    #33112798
Емеля2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim D As DAO.Database
Dim SQLText As String

'- имя текущей базы данных - Stocks.MDB

[Bp_a] - это КОПИРУЕМАЯ таблица из  Stocks.MDB
т.е. ОТКУДА

[Bp_a_dbf] - в эту таблицу копируем, т.е. КУДА

В нижеидущих обоих вариантах одна и та же ОШИБКА
' Run-time error
' '3065' Невозможен запуск запроса на выборку

'SQLText = "SELECT * FROM [Bp_a_dbf] IN 'C:'[dBASE III;]" 
SQLText = "SELECT * FROM [Bp_a] IN 'C:'[dBASE III;]" 
Set D = CurrentDb 
D.Execute SQLText
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таблицы MDB and .DBF
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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