ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / import from Access
6 сообщений из 6, страница 1 из 1
import from Access
    #32458252
nataSid
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataSid
Гость
Привет.

Как импортировать таблицу из Access в VFP так чтобы пользователь указал откуда?
...
Рейтинг: 0 / 0
26.03.2004, 12:19
| Ответить | Цитировать | Написать  
import from Access
    #32458323
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
lcFile = GetFile('MDB')
ADOConn = CreateObject( "ADODB.Connection" )
ADOComm = CreateObject( "ADODB.Command" )
ADORSrc = CreateObject( "ADODB.Recordset" )

ADOConn.ConnectionString =  "Driver={Microsoft Access Driver (*.mdb)};"  + ;
			 "Dbq="  + AllTrim(lcFile) +  ";"  + ;
			 "Uid=Admin;"  + ;
			 "Pwd=;" 
ADOComm.CommandText =  "select * from <нужная таблица>" 

ADOConn.Open()
ADOComm.ActiveConnection = ADOConn
ADORSrc = ADOComm.Execute()
...
Рейтинг: 0 / 0
26.03.2004, 12:48
| Ответить | Цитировать | Написать  
import from Access
    #32460022
nataSid
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataSid
Гость
Спасибо.
Вот только мне нужно выгрузить данные в таблицу и я написала вот это

ADOComm.CommandText = "select * from 5g into table tmp.dbf"

На ADORSrc = ADOComm.Execute() ругается, что не может выполнить

В чем ошибка?
...
Рейтинг: 0 / 0
29.03.2004, 07:05
| Ответить | Цитировать | Написать  
import from Access
    #32460227
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
Потому-что файл выгружается не в таблицу, а в Recordset ADO.

Можно сделать так.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
lcFile = GetFile('MDB')
lcString =  "Driver={Microsoft Access Driver (*.mdb)};"  + ;
	 "Dbq="  + AllTrim(lcFile) +  ";"  + ;
	 "Uid=Admin;"  + ;
	 "Pwd=;" 
lnConn = SqlStringConnect(lcString)
loExec = SqlExec(lnConn, 'select * from 5g', 'tmp')
Sele tmp
brow
SqlDisConnect(lnConn)

См. HELP по SQLEXEC, SQLCONNECT, SQLSTRINGCONNECT и т.д.
...
Рейтинг: 0 / 0
29.03.2004, 10:41
| Ответить | Цитировать | Написать  
import from Access
    #32460230
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bdv9
Участник
Забыл сказать tmp - это курсор.
...
Рейтинг: 0 / 0
29.03.2004, 10:43
| Ответить | Цитировать | Написать  
import from Access
    #32461609
nataSid
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataSid
Гость
Спасибо, пошло!
...
Рейтинг: 0 / 0
30.03.2004, 06:26
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / import from Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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