我的代码如下: adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select * from BookInfo where BookID= ' + trim(bookIDEdit.text) +
''' or bookname=''' + trim(booknameEdit.Text) + ''' or classes= '
+ trim(TypeEdit.text) + '''';
adoquery1.Open;
if adoquery1.RecordCount = 0 then
begin
Application.MessageBox('no result in database','^_^注意!',MB_OK);
bookIDEdit.Text :='';
typeEdit.Text :='';
end
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select * from BookInfo where BookID= ' + trim(bookIDEdit.text) +
''' or bookname=''' + trim(booknameEdit.Text) + ''' or classes= '
+ trim(TypeEdit.text) + '''';
adoquery1.Open;
if adoquery1.RecordCount = 0 then
begin
Application.MessageBox('no result in database','^_^注意!',MB_OK);
bookIDEdit.Text :='';
typeEdit.Text :='';
end
解决方案 »
- 有一个线程的问题,请教
- delphi里用spcomm发短信,总是返回ERROR
- fastreport 修改报表时菜单怎么全是2378、2379等数字啊,不现实中文的菜单。
- 将StringList转换成分号分隔的字符 和 反向的函数,请求优化,不怕代码难懂__这是新版本旧的有错误。
- COM DLL问题,紧急求大家帮助,谢谢
- 怎么可以获得MSSQL的服务器时间????应该不要像ECHO 那个13端口那样吧?
- 高分求 能显示 gif 图形格式的 vcl 控件 !!!!!!
- 三层结构中,怎样在应用服务器上写方法,和调用这个方法!在线等!!
- 关于数据库的问题。为什么会出错???
- 自动计算字段如何排序?
- 为什么ACTIVEX签名后和没有签名一样?
- Dbgrideh 一个单元格中显示多行文本,怎么控制各行的字体属行和行间距?
''' or bookname=''' + trim(booknameEdit.Text) + ''' or classes= '''
+ trim(TypeEdit.text) + '''';
adoquery1.SQL.Text := 'select * from BookInfo where BookID='+ trim(bookIDEdit.text) + ' or bookname=''' + trim(booknameEdit.Text) + ''' or classes= '''+ trim(TypeEdit.text) +'''';[/code
这样就行了,BookInfo是整型, 第一个or前面为什么也是单引号呢?