| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/5 10:45:55 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | sql.Text:='select * from edit where ht_num= '+quotedstr(edit1.Text+); 大哥们帮我改改错啊 ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/5 11:42:48 | ||||
| 1楼： | sql.txt:='select * from edit where ht_num=''+floattostr(edit1.txt)+''; ---------------------------------------------- -我喜欢ＤＥＬＰＨＩ，但我不会用． |
|||||
| 作者： |
|
2004/3/5 11:57:53 | ||||
| 2楼： | 1楼说的对 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/5 12:32:37 | ||||
| 3楼： | 1楼的不对！ try num:=strtoint(edit1.text); sql.txt:='select * from edit where ht_num='+edit1.text; except //不合法的数字 end; ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/5 12:51:51 | ||||
| 4楼： | sql.Text:='select * from edit where ht_num = '+quotedstr(edit1.Text+'); 这样就行了，谢谢各位！ 但如果找不到ht_num，则显示“没有这个记录”！怎么写啊？ ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/5 12:54:26 | ||||
| 5楼： | 如果数据库里没有要找的值的话，系统会显示"不能变量转换：类型null到类型string!怎么改啊？ ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/6 9:17:03 | ||||
| 6楼： | try num:=strtoint(edit1.text); sql.txt:='select * from edit where ht_num='+edit1.text; qury.open; if qury.recordcount<1 then ...没有这个记录 except //不合法的数字 end; ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/8 9:34:57 | ||||
| 7楼： | 谢谢大哥了！那要是通过一个按钮删除两个表里的内容呢procedure TForm4.BitBtn1Click(Sender: TObject); begin with dm.ADOQuery1 do begin close; sql.Clear; sql.Text:='delete * from edit where ht_num = '+quotedstr(edit1.Text+'); open; close; sql.Clear; sql.Text:='delete * from chanpin where ht_num = '+quotedstr(edit1.Text+'); open; end; end; 这样只删除了表edit的内容,没有删除表chanpin的内容 ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/8 9:55:19 | ||||
| 8楼： | open 改成execsql即可。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/8 12:03:15 | ||||
| 9楼： | 安全的做法： try open; except execsql; end; 这样，不管有没有结果返回都不会出错！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/8 13:39:41 | ||||
| 10楼： | 谢谢各位大哥，如果我要保存修改，用什么方法好？ ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/8 14:36:02 | ||||
| 11楼： | procedure TForm4.BitBtn9Click(Sender: TObject); begin with dm.ADOQuery1 do begin close; sql.Clear; sql.Text:='update edit set ht_num = '+quotedstr(edit1.Text+'); try open; except execsql; end; end; 这样不能保存修改后的数据啊？ ---------------------------------------------- 我是菜鸟！ |
|||||
| 信息 |
| 登陆以后才能回复 |
