N
noall
Unregistered / Unconfirmed
GUEST, unregistred user!
function TFRMCREATEDATABASE.getstr: string;
var s:string;
begin
s:='CREATE PROCEDURE ABCsdf';
s:=s+' AS';
s:=s+' begin';
s:=s+' update dehlk set clmc=''a'';';
s:=s+' end';
result:=s;
end;
procedure DoSql(aSql:TIBsQL;SqlTxt:String);Overload;{执行一SQL语句}
begin{执行一Sql语句}
with asql do begin
close;
sql.Clear;
sql.Add(sqltxt);
ExecQuery;
end;
end;
现在执行
dosql(IBDataSet1,getstr);
也可以执行过去了?但为什么在数据库时没有呢?
var s:string;
begin
s:='CREATE PROCEDURE ABCsdf';
s:=s+' AS';
s:=s+' begin';
s:=s+' update dehlk set clmc=''a'';';
s:=s+' end';
result:=s;
end;
procedure DoSql(aSql:TIBsQL;SqlTxt:String);Overload;{执行一SQL语句}
begin{执行一Sql语句}
with asql do begin
close;
sql.Clear;
sql.Add(sqltxt);
ExecQuery;
end;
end;
现在执行
dosql(IBDataSet1,getstr);
也可以执行过去了?但为什么在数据库时没有呢?