Delphi ADODB 创建dbf表

Question

我必须在我的 Delphi 应用程序中创建 dbf 文件。

对于本例，我使用 ADODB。

连接字符串:

const
  ConnStringDBF =
  'Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=%s;';
  //'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBASE III;OLE DB Services=-1;Data Source=%s;';
  //'Driver={Microsoft Visual Foxpro Driver};SourceType=DBF;SourceDB=%s;';
  //Driver='Microsoft.ACE.OLEDB.12.0;Data Source=%s;';

和程序(不起作用):

procedure InsertRecordInDBF(file_name: string; DbfRecord: TDbfRecord);
var
  ADOConnDBF  : TADOConnection;
  ADOCommand : TADOCommand;
begin
  ADOConnDBF := TADOConnection.Create(nil);
  ADOConnDBF.ConnectionString := Format(ConnStringDBF, [data_dir]);
  ADOCommand := TADOCommand.Create(nil);
  ADOCommand.Connection := ADOConnDBF;
  ADOCommand.CommandText := 'Create Table ' + file_name + ' ('
                        + 'NUMBER CHAR(11)'
                        + ')'
                        ;
  ADOCommand.Execute;
end;

错误是:

引发异常类 EOleException 并带有消息“[Microsoft][Драйвер ODBC dBase] Ошибка синтаксиса при определении поля”。

这意味着:俄语翻译中存在语法错误。

但是这个 CommandText 工作得很好:

  ADOCommand.CommandText := 'Create Table ' + file_name + ' ('
                        + 'NUMBER_ CHAR(11)'
                        + ')'
                        ;

字段名称的差异(Number_ 而不是 Number)

如何创建带有数字字段的表格？

也许我需要不同的连接字符串？

Answer 1

看来我找到了解决这个问题的方法。正确的语法是:

  ADOCommand.CommandText := 'Create Table ' + file_name + ' ('
                        + '[NUMBER] CHAR(11)'
                        + ')'
                        ;

我在字段名称中添加了 []