用TQuery的Params,或者直接动态生成语句,如 SQL.Text := STR_YOURSQL + ' Where XXX = ''' + Combox1.Text + '''';
解决方案 »
- 在Delphi 的DBGrid中如何响应鼠标的滚轮的事件?
- 【dll问题】Undeclared identifier: 'Handle'怎么回事?
- 邮件中如何保证在中文及日文系统都正常显示?
- 我在动态使用ADOConnection出现的问题?
- 关于DBGrid的奇怪问题????急!!!急!!!急!!!
- 如何使用不同的数据库系统?
- 请问有没有关于treeview的资料
- 怎样动态改变日期型字段的显示格式
- 请教SQL SERVER 中数据备份和恢复的问题
- StringGrid中的某一列被修改宽时进行操作。
- delphi中的query怎么没有length函数
- 请教高手,怎样实现类似MSGBOX的效果?内详
....where :Field=××××
Query1。ParamByName(‘Field’)。Asstring:=Combox1.text
Query1.sql.add('Select field1,field2,... from mytable');
Query1.sql.add('where 1 = 1') \\ <<<=== 注意這裡 =====>>>if Edit1.text <> '' then
Query1.sql.add('and field1='+edit1.text);
if Edit2.text <> '' then
Query1.sql.add('and field2='+edit1.text);
....Query1.sql.open;
Query1.sql.add('Select field1,field2,... from mytable');
Query1.sql.add('where 1 = 1') \\ <<<=== 注意這裡 =====>>>if Edit1.text <> '' then
Query1.sql.add('and field1='+edit1.text);
if Edit2.text <> '' then
Query1.sql.add('and field2='+edit1.text);
....Query1.sql.open;
DmForm.Query1.Close;
DmForm.Query1.SQL.Clear;
DmForm.Query1.SQL.Add('select * from filminfo.db where ChName=:note');
DmForm.Query1.ParamByName('Field').Asstring:=Field;
DmForm.Query1.ParamByName('note').Asstring:=Edit1.Text;
DmForm.Query1.Open;
但系统提示"Field"无效