Question

我需要将大型xls文件导入MySQL基础。我尝试使用“LOAD DATA INFILE”结构。 xls中的数据包含西里尔字符，因此我遇到了一些问题。我手动创建转储文件，但“LOAD DATA INFILE”不加载西里尔字符。 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以这种编码保存文件？

Answer 1

load data infile会加载你的西里尔字母。

确保您正在阅读的csv文件正在使用unicode并正确显示字符确保您正在读取的数据库字段具有正确的编码。我建议UTF8使用西里尔文整理。

接下来确保您的数据库连接（！）使用UTF8，否则这些字符会在传输中发生变异。

这样做，load data infile应该有用。

以下是如何将西里尔数据读入MySQL：Howto import a UTF8 textbook (book) in MySQL table / A simple step by step guide through on howto import books in MySQL

Delphi和二进制字符集（适用于MySQL）

1 个答案: