powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Access2Fox
7 сообщений из 7, страница 1 из 1
Access2Fox
    #33754172
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребята, как можно проще объясните!

Есть база на Аксессе - BASE. В ней таблица TABLE. В ней поля FIELD1,FIELD2.
Интересуют значения полей для определенной уникальной записи (для которой FIELD1="13" например).

Как мне загнать в массив или в таблицу Фокса значения этих полей?
...
Рейтинг: 0 / 0
Access2Fox
    #33754199
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подцепись к базе Accessa через ODBC и выбери SQL запросом
...
Рейтинг: 0 / 0
Access2Fox
    #33754227
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AleksMedПодцепись к базе Accessa через ODBC и выбери SQL запросом

А можно куском кода? Очень быстро надо!!!
...
Рейтинг: 0 / 0
Access2Fox
    #33754297
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А мне очень быстро квартиру в Москве надо. Слабаешь? :(
...
Рейтинг: 0 / 0
Access2Fox
    #33754574
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
проходящийА мне очень быстро квартиру в Москве надо. Слабаешь? :(

Мне бы тоже не мешало! ;-)
Да нет, я понимаю, что халява имеет границы, но просто думал, что это буквально 2-3 строки и есть просто стандартный вариант.
Ладно, засяду.
...
Рейтинг: 0 / 0
Access2Fox
    #33754771
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно так:
Код: plaintext
1.
2.
3.
4.
m.lcDSNLess = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb;Uid=Admin;Pwd=;"
m.lConnect = SQLSTRINGCONNECT(m.lcDSNLess)
SQLEXEC(m.lConnect, "SELECT * FROM Товары", "CurResult")
BROWSE LAST
Использовал базу данных Борей.mdb, которая идет в поставке MS Office 2003
Для вашего примера будет, наверное, так:
Код: plaintext
1.
2.
3.
4.
m.lcFind = "12"
m.lcCommand = [SELECT  FIELD1,FIELD2 FROM TABLE WHERE FIELD1='] + m.lcFind + [']
SQLEXEC(m.lConnect, m.lcCommand, "CurResult")
BROWSE LAST
С уважением, Алексей
...
Рейтинг: 0 / 0
Access2Fox
    #33754862
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У-у-у-у-у-у-у!!!
Спасибо огромное, а то времени действительно в обрез!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Access2Fox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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