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

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

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

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

Мне бы тоже не мешало! ;-)
Да нет, я понимаю, что халява имеет границы, но просто думал, что это буквально 2-3 строки и есть просто стандартный вариант.
Ладно, засяду.
...
Рейтинг: 0 / 0
26.05.2006, 16:08
    #33754771
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access2Fox
Можно так:
Код: 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
26.05.2006, 16:28
    #33754862
StandD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access2Fox
У-у-у-у-у-у-у!!!
Спасибо огромное, а то времени действительно в обрез!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Access2Fox / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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