DELPHI中如何屏蔽内容中的引号?(100分)

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #1

假若有这么一个SQL语句:
insert into A(field) values('''+edit.text+''');
但若edit.text有引号就会报错,怎么屏蔽edit.text中的引号?
哪位高手帮忙解答一下:

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #2

我曾经这样处理过，你先搜索edit.txt里面是不是有引号，如果有，你进行修改。变成两个引号''，这样sql语句才不会出错。

 

L

lanyun2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #3

将1个单引号改为2个单引号

 

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #4

不行啊,我那edit.text中内容要加密,我也说不准哪里会产生引号
只能把整个edit.text的引号屏蔽掉.

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #5

循环一下edit把引号清除

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #6

'.... values('+QuotedStr(edit.text)+')';
注意,QuotedStr会自动给edit.text的字符串两边加上单引号,而edit.text里面包含的单引号会被QuotedStr改成连续两个单引号,所以不会在查询中报错,这是标准用法.

 

M

mole

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #7

用POS()函数判断是否有引号等异常字符，如果有则更换为加一字符。

 

L

lxw5214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #8

赞成zqw0117

 

S

shunzi1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #9

QuotedStr

 

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #10

values('+QuotedStr(edit.text)+')'试过了
但edit.text里面包含的单引号并没有被QuotedStr改成连续两个单引号,跟原来的一样啊
[?]~~~~~~~~~~~~

 

S

shunzi1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #11

你从哪里看到一样啊，是指最终保存到库里的内容吗？

至于QuotedStr的用法你可以自己再测试一下，试试就明白了。
QuotedStr(Edit1.Text) = ??

 

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #12

哦
谢谢楼上的,我加密后用那个函数不知怎么不能变双引号
不加密还是可以解决那个问题

 

Z

zswang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #13

AnsiQuotedStr(Edit1.Text, '"')

 

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #14

AnsiQuotedStr(Edit1.Text, '"')
也试过了,也不行,不知怎么字符加密后里面的变不了
如还是 ')I'#9'f媌u儏<泦?'#$1E'虏5'#$B'弇>輆盿e袩葒_'#3'?彑?鱤Kl'#$1D'蒏?詙?氾'#$B'?e??CR?'#4#0'箍犻??'#$13')!|C

 

N

nicki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #15

帮顶

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #16

使用参数:
qr.sql.text := insert into A(field) valuesvalue);
qr.parameters[0].value := edit.text;

 

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #17

一定要用SQL,要不提交出错怎么回滚,有很多表关联的

 

W

wskanss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-20

• #18

多人接受答案了。