Создание таблицы 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