Каков правильный синтаксис для создания таблицы DBF IV dbase с CODEPAGE с Delphi 10.3? - PullRequest
Новая
       41

Каков правильный синтаксис для создания таблицы DBF IV dbase с CODEPAGE с Delphi 10.3?

0 голосов
/ 02 марта 2019 
var
      ADOConnDBF  : TADOConnection;
      ADOCommand : TADOCommand;
      var ConnStringDBF,file_name:string;
    begin
      ADOConnDBF := TADOConnection.Create(nil);
      ConnStringDBF:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(ParamStr(0))+';'+
    'Extended Properties=dBASE IV;User ID=Admin;Password=;';

      ADOConnDBF.ConnectionString := ConnStringDBF;
      ADOCommand := TADOCommand.Create(nil);
      ADOCommand.Connection := ADOConnDBF;

      file_name:='B5SPEX'+formatdatetime('yy',Now);
      if FileExists(extractfilepath(ParamStr(0))+'\'+file_name+'.dbf') then
        DeleteFile(extractfilepath(ParamStr(0))+'\'+file_name+'.dbf');

      ADOCommand.CommandText := 'Create Table ' + file_name +
                                ' CODEPAGE=620 '+
        ' ('+
            '[SDR] Char(1),'+
            '[STV] Char(1),'+
            '[TTR] Char(1)'+
           ') ';  
      ADOCommand.Execute;

Этот синтаксис не работает.Это дает синтаксическую ошибку.Цель состоит в том, чтобы создать файл DBF dBase IV с кодовой страницей 620 в среде Delphi.

...