解决方案 »
- 由delphi2007升级到delphi2009,发现操作sqlserver出现了奇怪问题?????
- intraweb 中 动态显示多个相同的图片
- ocx控件可以反编译吗?用dede?怎么做啊?
- 请教个小问题:
- 如何把系统的输入法定于自己选择的??高分求急。QQ:2059478 在线。。。
- 三层的问题:怎样将DataSet打包成OleVariant???,怎样解包???
- 新年好!绝对送分!
- 0-8个数 怎样打乱(比如打成:4,6,7,3,0,5,1,8,2)
- ShellListView1有没可能实现把“文件名”为“A开头”的列出?
- 简单问题请教高手??^_^
- 请问怎么读取webbrowser中打开的网页的session?
- 关于Tchart做曲线图时的问题
如何获取,最终执行的SQL
'SELECT * FROM TEST WHERE ID=1001';
var
i:integer;
sqlstr:string;
begin
cds1.Close;
cds1.CommandText :='SELECT * FROM test WHERE ID=:TID and Code=:Code';
cds1.Params.ParamByName('TID').AsInteger:=1001;
cds1.Params.ParamByName('Code').AsString:= '5668';
sqlstr:=cds1.CommandText;
for i:=0 to cds1.Params.Count-1 do
begin
if cds1.Params.Items[i].DataType in [ftString,ftMemo] then //根据数据类型 自己再修改一下
sqlstr:=StringReplace(sqlstr,':'+cds1.Params.Items[i].Name,QuotedStr(cds1.Params.Items[i].Value),[rfReplaceAll])
else
sqlstr:=StringReplace(sqlstr,':'+cds1.Params.Items[i].Name,cds1.Params.Items[i].Value,[rfReplaceAll]);
end;
mmo1.Text:=sqlstr;
cds1.Open;
end;试试这个 循环可以的