怎么实现这样难度的方法？请高手出招！(200分)

D

delphi英雄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

我想写一个方法：ParamsToSQL(ds:TClientDataSet);是想从ClientDataSet中
CommandText的带参数的SQL语句和其参数Params中撮出真实的SQL语句来，例如：
ClientDataSet1.CommandText:='Select * from Table1 where aa=:QQ';
clientdataset.fieldbyname('QQ').asstring:='中国人';
ParamsToSQL(ClientDataSet1);
得到真实的SQL语句结果：SQL：='Select * from Table1 where aa=''中国人''';
那位高手能给些思路？谢谢！

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #2

提取冒号与下一个空格之间的字符串做为参数表
找出所有参数并变为可以插入到SQL中的字符串，如
数字用 inttostr
日期加 # 到两边
…………
再根据参数表替换应该可以

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #3

const s='Select * from Table1 where aa=%s'
format(s,['中国人'])
clientdataset.commandtext.text

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #4

在表没打开的时候，clientdataset.fieldbyname('QQ').asstring:='中国人' 这一句能
成立吗？
要取得ClientDataset的真实SQL语句，用它的CommandText属性就行了。

 

H

hqx_zlm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #5

较好的解决方法：
用字符串函数StringReplace将PARAM替代为想要的值即可!

 

D

delphi英雄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #6

多人接受答案了。