X
xiaoxiami1
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tnew_data.BitBtn1Click(Sender: TObject);
var
sql:string;
begin
sql:='create table '+edit1.text+'(id int'+','+'name alpha (8))';
datamodule4.Query1.close;
datamodule4.Query1.sql.clear;
datamodule4.Query1.SQL.add(sql);
datamodule4.query1.ExecSQL;
end;
但是这么写就好使--
procedure Tnew_data.BitBtn1Click(Sender: TObject);
var
sql:string;
begin
sql:='create table '+edit1.text+'(id int'+','+'name int)';
datamodule4.Query1.close;
datamodule4.Query1.sql.clear;
datamodule4.Query1.SQL.add(sql);
datamodule4.query1.ExecSQL;
end;
var
sql:string;
begin
sql:='create table '+edit1.text+'(id int'+','+'name alpha (8))';
datamodule4.Query1.close;
datamodule4.Query1.sql.clear;
datamodule4.Query1.SQL.add(sql);
datamodule4.query1.ExecSQL;
end;
但是这么写就好使--
procedure Tnew_data.BitBtn1Click(Sender: TObject);
var
sql:string;
begin
sql:='create table '+edit1.text+'(id int'+','+'name int)';
datamodule4.Query1.close;
datamodule4.Query1.sql.clear;
datamodule4.Query1.SQL.add(sql);
datamodule4.query1.ExecSQL;
end;