在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
ClientDataSet1.CommandText := sSQL; ClientDataSet1.Params.Clear; ClientDataSet1.CommandText :='SELECT * FROM test WHERE ID=:TID and Code=:Code '; //传参后面加一个空格 ClientDataSet1.Params.ParamByName('TID').AsInteger:=1001; ClientDataSet1.Params.ParamByName('Code').AsString:= '5668'; //每个":Code "后面,都跟上一个“ ”(空格) function TWorkWindowForm.GetDataSetSQL(DataSet: TClientDataSet): string; var i:integer; sSQL, sName, sVaule:string; begin Result := ''; DataSet.Close; sSQL := DataSet.CommandText; for i:=0 to DataSet.Params.Count-1 do begin sName := DataSet.Params.Items[i].Name; sVaule := DataSet.Params.Items[i].Value; if DataSet.Params.Items[i].DataType in [ftString,ftMemo] then //根据数据类型 自己再修改一下 sSQL:=StringReplace(sSQL, ':'+sName+' ' , QuotedStr(sVaule)+' ',[rfReplaceAll]) else sSQL:=StringReplace(sSQL, ':'+sName+' ' ,sVaule+' ' ,[rfReplaceAll]); end; Result := sSQL; end; ---------------------
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论