Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Можно ли из фокса открыть MDB файл? 
:(
    Опции темы
Данкинг
Дата 29.3.2007, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130
Вопрос, собственно. И перегнать в DBF потом...


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Данкинг
Дата 29.3.2007, 22:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130
Вопрос решён с помощью ФАКа и домысливания. smile 

Код

SET SAFETY OFF

p=GETFILE('MDB')
IF EMPTY(p)
CANCEL
ENDIF

_cn=CREATEOBJECT('adodb.connection')
_cn.Open('Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+p+';Persist Security Info=False')
rd=CREATEOBJECT('adodb.recordset')
rd.open('infa',_cn)
d=STRTRAN(p,UPPER('.MDB'),'.DBF')
CREATE TABLE  &d (DATE_ST D(10),text1 c(30),metka c(100))
CLOSE databases
USE &d IN 100
SELECT 100
rd.movefirst

DO while not rd.eof()

a1=' '
a2=' '
a3=' '
a1=rd.fields('datta').value
a2=rd.fields('text').value
a3=rd.fields('metka').value
APPEND blan
REPLACE date_st WITH a1,metka WITH a3
rd.movenext()
enddo


CLOSE ALL



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0396 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.