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

Previous  Top  Next

    
 

 

 

Code:

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

 

 

©Drkb::02936

       

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