使用一个查询。送3个参数。表名/表字段/字符值!!!函数部分:代码如下:
function TMlog_form.CheckItem(var tableN,fieldN,Fstring: string): boolean;
var
strSQL:string;
begin
with ADOQuery2 do
begin
if Active=True then Active:=False;
SQL.Clear;
strSQL:='select count(*) from :tname1 where :fieldN1=:type1';
SQL.Add(strSQL);
Parameters[0].Value:=tableN;
Parameters[1].Value:=fieldN;
Parameters[2].Value:=Fstring;
open; if Fields[0].AsInteger=1 then
result:=true
else
result:=false;
close;
end;
end;//调用部分
var
p1,p2,p3:string;
begin
p1:='MalfunctionCode';
p2:='MalCode';
p3:=dbcombobox2.Text;
if CheckItem(p1,p2,p3)=false then showmessage('NOT');
end;这样的错误该如何解决呢?请大家指教!!!谢谢!!!
function TMlog_form.CheckItem(var tableN,fieldN,Fstring: string): boolean;
var
strSQL:string;
begin
with ADOQuery2 do
begin
if Active=True then Active:=False;
SQL.Clear;
strSQL:='select count(*) from :tname1 where :fieldN1=:type1';
SQL.Add(strSQL);
Parameters[0].Value:=tableN;
Parameters[1].Value:=fieldN;
Parameters[2].Value:=Fstring;
open; if Fields[0].AsInteger=1 then
result:=true
else
result:=false;
close;
end;
end;//调用部分
var
p1,p2,p3:string;
begin
p1:='MalfunctionCode';
p2:='MalCode';
p3:=dbcombobox2.Text;
if CheckItem(p1,p2,p3)=false then showmessage('NOT');
end;这样的错误该如何解决呢?请大家指教!!!谢谢!!!
解决方案 »
- 鬼怪号(Wraith)太空射击游戏 -- Pascal版源码
- 遇到无法识别Mozilla/4.0,请问Mozilla是什么来的,属于哪个控件还是哪个use?
- TQuickRep问题
- combobox 内容修改 简单
- 用TCanvas在TButton表面绘图
- 请教大家:有人想买我的软件,我应该怎么卖??
- 高手快帮忙,关于Treeview里节点的绝对索引(AbsoluteIndex)的问题
- 用DELPHI生成创建表的SQL语句 ???
- 求购MIS系统完整源代码和文档!!!
- Delphi确实不如Power Builer吗????!!!!!!
- DELPHI是否有等价于BCB中的这个函数?
- 关于Object Pascal,const Bit1=$10000是什么意思?
strSQL:='select count(*) from :tname1 where :fieldN1=:type1';
SQL.Add(strSQL);
Parameters[0].Value:=tableN;
Parameters[1].Value:=fieldN;
Parameters[2].Value:=Fstring;
open;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sql.clear;
strSQL:='select count(*) from '+tableN+' where '+fieldN+'='+Fstring;
sql.add(strsql);
open;
strSQL:='select * from :tname1 where :fieldN1=:type1';
SQL.Add(strSQL);
Parameters[0].Value:=tableN;
Parameters[1].Value:=fieldN;
Parameters[2].Value:=Fstring;
open;
a,s:string;
begin
a:='test';
s:=Format('select * from %s',[a]);
ShowMessage(s);
end;
楼主表名不可以当参数传递的