Создание таблицы FOXPRO

Материал из DRKB

Создание таблицы FOXPRO[править | править код]

if SaveDialog1.Execute then
begin
  if FileExists(SaveDialog1.FileName) then
    DeleteFile(SaveDialog1.FileName);
    // QUERY.DataSource НЕ ЗАПОЛНЕНО иначе взрыв гарантирован
  with Session do
  begin
    ConfigMode := cmSession;
    try
      AddStandardAlias('TEMPDB', extractfilepath(savedialog1.filename),
        'FOXPRO'); //FOXPRO
    finally
      ConfigMode := cmAll;
    end;
  end;
  with database1 do
  begin
    databasename := 'tst';
    LoginPrompt := False;
    Params.Values['PATH'] := ExtractFilePath(SaveDialog1.FileName);
    DriverName := 'Microsoft FoxPro Driver (*.dbf)';
    AliasName := 'TEMPDB';
  end;
  
  Query1.ParamCheck := False;
  Query1.DatabaseName := 'tst';
  Query1.SQL.Clear;
  vrem := Trim(ChangeFileExt(ExtractFileName(SaveDialog1.FileName), ' '));
  Query1.SQL.Add('CREATE TABLE ''' + vrem + ''' (');
  Query1.SQL.Add('last_name CHAR(20),');
  Query1.SQL.Add('first_name CHAR(15),');
  Query1.SQL.Add('salary DECIMAL(10,2));');  // NUMERIC
  Query1.ExecSQL;
  Query1.Close;
end; // от savedialog


Source: Взято с http://delphiworld.narod.ru
ID: 02936