注册 登录
编程论坛 Delphi论坛

请教一个为字串加上引号的语句

hspyrhzc 发布于 2007-01-25 12:02, 928 次点击

我有一个语句是这样的
adodataset1.commandtext := ' select * from table-name where field-name='+函数名(edit1.text);

假设运行时在edit1中输入了1023这个数据。上述语句的
作用是使它的commandtext成为 select * from table-name where field-name='1023'

这个Q开头的函数我不记得了,请告之。先行谢过。

5 回复
#2
nongen2007-01-25 13:47
' select * from table-name where field-name='''+edit1.text+'''';
' select * from table-name where field-name='+quotedstr(edit1.Text);

[此贴子已经被作者于2007-1-25 13:50:54编辑过]

#3
hspyrhzc2007-01-25 16:57
谢谢你,已按你的方法完美解决了这个问题

还是这样的问题又有一个
我有一个表,名为 dptmp 字段为 db碟编 ds碟数 dz租金
里面存的是当前一个客户要租出去的各部碟片的信息,是从碟片信息表dp中查询并添加进dptmp表中来的。

另有一个表,名为zl 用来存放租赁的详细情况,包含字段 zb租编号 kb 客户号 db 碟片号 zf 支付 cz操作员

先将这五个字段的应填值用变量a1,a2,a3,a4,a5保存下来,其中a4存支付,存为True,是Boolean类型。其它为字符型

adocommand1.CommandText:='insert into zl values('''+a1+''','''+a2+''','''+a3+''',a4,'''+a5+''','''+a6+''')';
adocommand1.Execute;

运行时显示参数 a4 没有默认值,为什么呀
#4
nongen2007-01-25 17:47
boolean中存t or f
不是字符串。这里应该是:
'insert into zl values('''+a1+''','''+a2+''','''+a3+','+booltostr(a4,true)+','+a5+''','''+a6+''')';

[此贴子已经被作者于2007-1-25 17:56:17编辑过]

#5
autosun2007-01-25 19:12
quotedstr()这个函数什么意思?
#6
nongen2007-01-25 19:54

加一个字符串,发现'的地方加一个'

1