小狗学delphi

Question

这样就没有问题了
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
    query1.SQL.Clear;
    for i:=0 to memo1.Lines.Count-1 do
    Begin
        query1.SQL.Add(memo1.Lines.Strings[i]);
    End;
    query1.Active:=true;
end;

Answer 1

那请问上面俺的程序错出在何处呢/DELPHI的帮助里面就有一条一样的例子,不知道错在何处呢?

Answer 2

那请问上面俺的程序错出在何处呢/DELPHI的帮助里面就有一条一样的例子,不知道错在何处呢?而且楼上的查询程序里面,也就不必一定要用Memo控件了!可以直接写出来但是如果直接用query的SQL写的话,会出现错误:Customer.db不存在,怎么解决!注意:这个是在客户端登录,在服务器上面检查!

Answer 3

  ClientData.Close;
  ClientData.CommandText:=Memo1.Lines.Text;
  ClientData.Open;
你的SQL语是不是Select 
如是Select 就应用open 或 Active:= true 去执行.
如果是Insert delete ...就用Exectue

Answer 4

gaochunguang(Borlphi)兄,小弟也曾用过ClientData.open,可是出现的错误相同!一般来说,Execute执行时不返回值,而open有返回值我想在这种情况下,应该是用Execute吧,因为没有用GBGrid控件来查看返回值