Question

在delphi语言中，一个表中有多个字段，但是查询的时候只能给知道的字段输入值，这样的sql语句怎么写啊？

假如一个图书管理信息系统，查询图书的信息，假如只知道图书名和作者，或者是只知道作者和出版社信息，这种情况用一个sql语句应该怎么写啊？

Answer 1

//假设图书名存储在string类型变量BookName中，作者存储在Author中，出版社存储在Pub中
//再假设数据库中的这几个字段都是字符串类型，那就只需要根据以上几个变量的值，来组合查询语句

var
  Sql: string;
begin
  Sql := 'select * from your_db where 1=1'; //使用恒真条件1=1是为了方便后面的组合编写
  if BookName <> '' then
    Sql := Sql + ' and 图书名=''' + BookName + '''';
  if Author <> '' then
    Sql := Sql + ' and 作者=''' + Author + '''';
  if Pub <> '' then
    Sql := Sql + ' and 出版社=''' + Pub + '''';
   
   //条件组合完成后执行查询
   ADOQuery1.Close;
   ADOQuery1.SQL.Text := Sql;
   ADOQuery1.Open;
end;

Answer 2

你的意思是指，当前的表很多字段，但根据不同的场合只使用了某些表字段进行编辑维护。在查询时汲了多少字段就操作多少的字段，想要动态由这些字段来生成SQL语句是吗？

我的思路：

关于所有表的条件查询时的
使用adoquery查询select * from 表名 得到所有的字段. 然后显示在一个datagrid中,
用户根据喜好填写了查询条件.然后我们就根据些 query来构造SQL的条件查询语句.
var
whereSqL:stirng;
sql:string;
begin
for i:=0 to query.fields.count -1 do

beign
if (query.fileds[i].value <> Unassigned) and (query.fileds[i].value<> '' ) then

begin
sql := sql + ' and ' + query.fileds[i].name + '=' + quotedstr(query.fileds[i].value)
end;
end;
wehresql := 'select * from '+表名+' where 1=1 ' + sql;
end;

关于插入时的：

使用 adoquery 查询 select 某些字段之后 from 表名 where 条件。
然后根据这个 query 动态构造SQL语句插入
var
sql:string;
ins:string;
runsql :stirng;
for i:=0 to query.fields.count-1 do
begin
sql := sql + query.fields[i].name + ',';
ins:= ins + quotedstr( query.fileds[i].value)+',';
end;
delete(sql,Length(sql)-1,1); // 删除 构造 字段名称后自动加上的 ,
delete(ins,Length(ins)-1,1); //同上。
runsql = 'insert into ' + 表名 + '(' + sql + ') values(' + ins + ')';

这样子就可以动态的根据查询得出对应的SQL语句了。

Answer 3

sql:='select * from library where (name=delphi教程) and(author=谭浩强)'