数据库使用MSSQL固定情况下调用存储过程
//换了数据库后台就肯定失败
function MaxVal(TableName: string) : integer;
var
ADOQMax:TADOQuery;
begin
ADOQMax := TADOQuery.Create(nil);
ADOQMax.ConnectionString:=connstr;
with ADOQMax do
begin
//取编号的最大值
Close;
SQL.Clear;
SQL.Add('declare @GetMax int' + #13);
SQL.Add('exec @GetMax = SET_MAX '+''''+TableName+''''+','+'1'+#13);
SQL.Add('select @GetMax as fname');
Open;
MaxVal := FieldByName('fname').AsInteger;
end;
end;
function MaxVal(TableName: string) : integer;
var
ADOQMax:TADOQuery;
begin
ADOQMax := TADOQuery.Create(nil);
ADOQMax.ConnectionString:=connstr;
with ADOQMax do
begin
//取编号的最大值
Close;
SQL.Clear;
SQL.Add('declare @GetMax int' + #13);
SQL.Add('exec @GetMax = SET_MAX '+''''+TableName+''''+','+'1'+#13);
SQL.Add('select @GetMax as fname');
Open;
MaxVal := FieldByName('fname').AsInteger;
end;
end;
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.