我所有的引用,设置都完成了,代码如下:
procedure Tchaxun.BitBtn1Click(Sender: TObject);
begin
form3.ADOConnection1.Connected:=true;
if (edit1.Text<>'') or (edit2.Text<>'') then
with form3.adoquery1 do
begin
close;
sql.clear;
if (edit1.text<>'') and (edit2.text='')then
begin
sql.add('select * from 信息表 where 姓名 like ''%'+trim(edit1.Text)+'%''');
execsql;
sql.clear;
form3.DataSource1.DataSet.Active:=true;
form3.visible:=true;
end;
end;
end;
运行的时候出现'missing sql property',到底哪出错了呢?

解决方案 »

  1.   

    form3.DataSource1.DataSet 有没有设为 form3.adoquery1
      

  2.   

    form3.DataSource1.DataSet 有没有设为 form3.adoquery1
      

  3.   

    procedure Tchaxun.BitBtn1Click(Sender: TObject);
    begin
    form3.ADOConnection1.Connected:=true;
    if (edit1.Text<>'') or (edit2.Text<>'') then
    with form3.adoquery1 do
    begin
    close;
    sql.clear;
    if (edit1.text<>'') and (edit2.text='')then
    begin
    sql.add('select * from 信息表 where 姓名 like ''%'+trim(edit1.Text)+'%''');
    execsql;              //1。------------Open;
    sql.clear;            //2。 -----------删除
    form3.DataSource1.DataSet.Active:=true;  
    form3.visible:=true;
    end;
    end;
    end;
    -------  1。execsql  不返回數據集  应改为  Open;
    ------  2。form3.adoquery1在此处sql  属性被清除  应删除此句
      

  4.   

    execsql;
    sql.clear;
    form3.DataSource1.DataSet.Active:=true;改成 
    execsql;
    form3.DataSource1.DataSet.Active:=true;
    sql.Clear;
      

  5.   

    ft 老兄
    sql.clear;form3.DataSource1.DataSet.Active:=true;//清除了sql怎么active啊
    form3.visible:=true;
      

  6.   

    'missing sql property'
    Sql语句被清掉了