Быстрый экспорт данных в Access

[Прик]

С кодировкой, действительно, облом.
Ответов на эти вопросы у меня нет.

[Kerby666]

Сообщение от Прик

С кодировкой, действительно, облом.
Ответов на эти вопросы у меня нет.

А так красиво стало получаться.

[Kerby666]

C кодировкой проблему решил. Нагуглил такой вариант.
"Для борьбы с "кракозябами" надо подправить немного реестр Windows. Пример дан для Windows 98/NT4.0.
[HKEY_LOCAL_MACHINESoftwareMicrosoft Jet4.0EnginesXbase]
"DataCodePage"="OEM" параметр надо изменить на на ANSI:
"DataCodePage"="ANSI"
P.S. При изменении реестра программным способом изменения вступают после перезагрузки Access."

[ReportCube]

Попробуйте указать dBase 5.0. У меня ADO KLADR.DBF открывает без смены кодировок.

[Kerby666]

Сообщение от ReportCube

Попробуйте указать dBase 5.0. У меня ADO KLADR.DBF открывает без смены кодировок.

Указал, не прокатило

[Slym]

http://www.computerplus.com.ua/docum...k_DBF_file.doc

можно попробовать альтернативные компоненты например http://tdbf.sourceforge.net
иногда быстрей получается

на TDBF поиск "последней" строки из 4500 тупым перебором 31мс

procedure TForm1.Button2Click(Sender: TObject);
var
  Field:TField;
  t:dword;
begin
  Dbf1.Active:=true;
  T:=GetTickCount;
  Dbf1.DisableControls;
  try
    Dbf1.First;
    Field:=Dbf1.FieldByName('VKEY_B');
    while not Dbf1.Eof do
    begin
      if Field.AsString = 'HDNDBHFCPEFFEEMD' then
      begin
        Caption:=Dbf1.Fields[1].AsString;
        Break;
      end;
      Dbf1.Next;
    end;
  finally
    Dbf1.EnableControls;
  end;
  T:=GetTickCount-T;
  Caption:=InttoStr(t);
end;

[ReportCube]

Посмотрел у себя:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Jet\4.0\Engines\Xbase] DataCodePage=OEM
[HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Jet\4.0\Engines\Xbase] CollatingSequence=Ascii
Открывается без проблем в нужной кодировке

[Kerby666]

Сообщение от Slym

http://www.computerplus.com.ua/docum...k_DBF_file.doc

можно попробовать альтернативные компоненты например http://tdbf.sourceforge.net
иногда быстрей получается

на TDBF поиск "последней" строки из 4500 тупым перебором 31мс

procedure TForm1.Button2Click(Sender: TObject);
var
  Field:TField;
  t:dword;
begin
  Dbf1.Active:=true;
  T:=GetTickCount;
  Dbf1.DisableControls;
  try
    Dbf1.First;
    Field:=Dbf1.FieldByName('VKEY_B');
    while not Dbf1.Eof do
    begin
      if Field.AsString = 'HDNDBHFCPEFFEEMD' then
      begin
        Caption:=Dbf1.Fields[1].AsString;
        Break;
      end;
      Dbf1.Next;
    end;
  finally
    Dbf1.EnableControls;
  end;
  T:=GetTickCount-T;
  Caption:=InttoStr(t);
end;

Копаю в этом направлении. Смущает статус demo у этого компонента. Какие ограничения?
И опять же трабл с кодировкой. Не выводит русский буквы этот компонент почему-то.

[Slym]

не демо... для русских букв выстави пустой обработчик на OnTranslate

[Kerby666]

Сообщение от Slym

не демо... для русских букв выстави пустой обработчик на OnTranslate

Это типа в Events компонента TDbf в событии OnTranslate кликнуть дважды и все??