Последняя версия DataExpress 3 beta от 23 февраля 2018 года. Скачать.

Подключение к БД FoxPro

Все о том как сделать что-то с помощью скриптов.
alexaf
Новичок
Сообщения: 11
Зарегистрирован: Ср янв 17, 2018 7:56 am

Подключение к БД FoxPro

Сообщение alexaf » Ср янв 17, 2018 1:56 pm

Подключение к БД FoxPro (кодировка таблиц 866), но в строке подключения стоит 1251, чтобы на экране было в правильной кодировке.

Код: Выделить всё

procedure TestConnect(Sender:TObject);
 var Connect,RS:variant;
 begin
 Connect := CreateOleObject('ADODB.Connection');
    try
    Connect.open('Provider=VFPOLEDB.1;Data Source=D:\projects\db_folder;Password="";Collating Sequence=MACHINE;CODEPAGE=1251; ');
    except;
    MsgBox('','Отсутствует связь с базой!');
    Debug(ExceptionParam);
    Exit;
    end;

      RS := CreateOleObject('ADODB.Recordset');
      try
      RS.Open('SELECT top 10 * FROM sometable ORDER BY some_field', Connect );
      except;
        debug ('Проблемы с выполнением запроса к SQL серверу: "'+ExceptionParam+'"');
        RS.Close;
        Exit;
      end;

       while  RS.EOF = 0 do
          begin
            debug(RS.Fields('spec').Value);
            RS.MoveNext();
          end;

RS.Close;
Connect.Close;
end;       

albereznyuk
Новичок
Сообщения: 20
Зарегистрирован: Вт мар 07, 2017 1:37 am
Откуда: Украина

Re: Подключение к БД FoxPro

Сообщение albereznyuk » Сб фев 17, 2018 6:55 pm

А реально ли соорудить функцию импорта таблицы DBF в проект?

jurist23rus
Эксперт
Сообщения: 1908
Зарегистрирован: Пт сен 30, 2016 9:42 am
Откуда: Майкоп

Re: Подключение к БД FoxPro

Сообщение jurist23rus » Сб фев 17, 2018 7:11 pm

alexaf, а в чём вопрос?
Destiny is a very convenient word for those who never take decisions.


Вернуться в «Общие вопросы.»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 2 гостя