这句错了
if not fileexists('sz_tem.db') then 另外,临时表要这样吧
create table #sz_tem(szsort char(20),charge number,charge1 number)
if not fileexists('sz_tem.db') then 另外,临时表要这样吧
create table #sz_tem(szsort char(20),charge number,charge1 number)
begin
query1.Close;
query1.sql.clear;
query1.SQL.add('create table sz_tem(szsort char(20),charge number,charge1 number)');
query1.execsql;
end;
先制定table1的database,等等
with table1 do
begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
with IndexDefs do begin
Clear;
with AddIndexDef do begin Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin
Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
CreateTable;
end;