Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 import from Access  [new]
nataSid
Member

Откуда:
Сообщений: 118
Привет.

Как импортировать таблицу из Access в VFP так чтобы пользователь указал откуда?
26 мар 04, 12:19    [598767]     Ответить | Цитировать Сообщить модератору
 Re: import from Access  [new]
bdv9
Member

Откуда:
Сообщений: 168

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()
26 мар 04, 12:48    [598867]     Ответить | Цитировать Сообщить модератору
 Re: import from Access  [new]
nataSid
Member

Откуда:
Сообщений: 118
Спасибо.
Вот только мне нужно выгрузить данные в таблицу и я написала вот это

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

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

В чем ошибка?
29 мар 04, 07:05    [601154]     Ответить | Цитировать Сообщить модератору
 Re: import from Access  [new]
bdv9
Member

Откуда:
Сообщений: 168
Потому-что файл выгружается не в таблицу, а в Recordset ADO.

Можно сделать так.
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 и т.д.
29 мар 04, 10:41    [601388]     Ответить | Цитировать Сообщить модератору
 Re: import from Access  [new]
bdv9
Member

Откуда:
Сообщений: 168
Забыл сказать tmp - это курсор.
29 мар 04, 10:43    [601391]     Ответить | Цитировать Сообщить модератору
 Re: import from Access  [new]
nataSid
Member

Откуда:
Сообщений: 118
Спасибо, пошло!
30 мар 04, 06:26    [603047]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить