Delphi и двоичный набор символов (для MySQL)

Мне нужно импортировать в базу MySQL большой xls-файл. Я пытаюсь использовать конструкцию "ЗАГРУЗИТЬ ИНФАЙЛ ДАННЫХ". Данные в xls содержат символы кириллицы, поэтому у меня с этим возникают проблемы. Я создаю файл дампа вручную, но "ЗАГРУЗИТЬ ИНФАЙЛ ДАННЫХ" не загружает кириллические символы. Инструкция MySQL «SELECT ... INTO OUTFILE» работает отлично, но я не могу ее использовать, потому что мне нужен импорт из файла сохранения «SELECT ... INTO OUTFILE» с двоичным набором символов, как я могу сделать это с Delphi 2009?

Мой код:

procedure TfmImportGoods.btnImportClick(Sender: TObject);
var
  sToFile: TStringStream;
  sTemp: AnsiString;

  function FixString(s: String): String;
  begin
    Result := s;
    Result := SysUtils.StringReplace(Result, #10, '', [rfReplaceAll]);
    Result := SysUtils.StringReplace(Result, #13, '', [rfReplaceAll]);
  end;

begin
  fmMain.MyScript.SQL.Text := 'TRUNCATE TABLE goods';
  fmMain.MyScript.Execute;

  adoImport.Close;
  adoImport.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
    fmMain.dlgOpenGoods.FileName+
    ';Mode=ReadWrite|Share Deny None;Extended Properties=Excel 8.0;Persist Security Info=False';

  adoImport.SQL.Text := 'SELECT * FROM ['+lbTables.Items[0]+']';
  adoImport.Open;

  sTemp := '';
  try
    while not adoImport.Eof do
    begin
      sTemp := sTemp +
        #9+adoImport.FieldByName('Код').AsString+#9+
        adoImport.FieldByName('Производитель').AsString+#9+
        adoImport.FieldByName('Модель').AsString+#9+
        adoImport.FieldByName('Артикул').AsString+#9+
        FixString(adoImport.FieldByName('Описание').AsString)+#9+
        adoImport.FieldByName('Кол-во').AsString+#9+
        //TODO: проверить
        {SysUtils.StringReplace(
          adoImport.FieldByName('Розн#цена').AsString), ',', '.', [rfReplaceAll]),}
        adoImport.FieldByName('Розн#цена').AsString+#9+
        adoImport.FieldByName('Информация').AsString+#9+
        adoImport.FieldByName('Гарантия').AsString+#10;
      adoImport.Next;
    end;

    sToFile := TStringStream.Create(sTemp, 1252);
    sToFile.SaveToFile(ExtractFilePath(Application.ExeName)+'import.txt');

    fmMain.MyScript.SQL.Text := 'LOAD DATA INFILE '''+
     fmMain.ScreenSpecs(ExtractFilePath(Application.ExeName)+'import.txt')+''' INTO TABLE goods';
    fmMain.MyScript.Execute;

    ShowMessage('Новый список товаров был успешно импортирован!');
  finally
    sToFile.Free;
  end;
end;

Я знаю, какой файл создает MySQL, и мне нужно создать такой файл с помощью Delphi. В справке MySQL эта кодировка называется «двоичным набором символов», так как я могу сохранить файл в этой кодировке с помощью Delphi?


mysql encoding delphi
person m1know    schedule 24.06.2011    source источник

Ответы (1)


arrow_upward
1
arrow_downward

load data infile отлично загрузит ваши символы кириллицы.

Убедитесь, что CSV-файл, из которого вы читаете, использует Unicode и правильно отображает символы.
Убедитесь, что поля базы данных, в которые вы читаете, имеют правильную кодировку. Я предлагаю UTF8 с кириллицей.

Затем убедитесь, что ваше соединение с базой данных (!) Использует UTF8, иначе эти символы будут видоизменены в транспорте.

Сделайте это, и load data infile должно работать.

Вот как читать кириллические данные в MySQL: Как импортировать учебник (книгу) UTF8 в таблицу MySQL / Простое пошаговое руководство по инструкции импортировать книги в MySQL

person Johan    schedule 24.06.2011