çalışma anında sql kodu çalıştırmak

[hacikisi]

query1.databasename:='c:\baksil\data';
query1.sql.clear;
Query1.active:=false;
Query1.sql.add('select birimi, cinsi, cpu,tahsiseden from bilgisayar');
Query1.sql.add('order by birimi');
query1.open;
query1.active:=true;


kodları böyle butonun clicki ile çalıştırınca sorun yok ancak aşağıdaki gibi
bir butona ekleyip

runtime anında forumdaki memo1 e yazıp kodları çalıştırmak istiyorum.
hata veriyor. çözüm???????

query1.databasename:='c:\baksil\data';
query1.sql.clear;
Query1.active:=false;
Query1.sql.add('select birimi, cinsi, cpu,tahsiseden, count (*) from bilgisayar');

Query1.sql.add('group by birimi, cinsi, cpu,tahsiseden');
Query1.sql.add('order by birimi');
query1.open;
query1.active:=true;


grup yapmak istediğimde hata veriyor. nasıl çözebilirim.
kodlarımı bir butona değilde çalışma anında kendim memoya yazarak işletmek istiyorum.

[Kuri_YJ]

query1.databasename:='c:\baksil\data';
query1.open;
query1.active:=true;
...

Query1.Open demek Zaten Query1.Active demek ile aynı

Ayrıca, Hangi veri tabanını kullanıyorsunuz ve size söylediği hata tam olarak nedir?

Kolay Gelsin

[mucar]

Merhaba,

Kod: Tümünü seç

procedure Tform1.Memo1Change(Sender: TObject);
begin

while Pos('delete',memo1.Lines.Text)>0 do
begin
Memo1.Lines.Text:='';
MessageDlg('Delete sorgularına izin yok!',mtInformation,[mbok],0);
end;

while Pos('insert',memo1.Lines.Text)>0 do
begin
Memo1.Lines.Text:='';
MessageDlg('Insert sorgularına izin yok!',mtInformation,[mbok],0);
end;

while Pos('create',memo1.Lines.Text)>0 do
begin
Memo1.Lines.Text:='';
MessageDlg('Create sorgularına izin yok!',mtInformation,[mbok],0);
end;

while Pos('update',memo1.Lines.Text)>0 do
begin
Memo1.Lines.Text:='';
MessageDlg('Update sorgularına izin yok!',mtInformation,[mbok],0);
end;

try
begin
    with query1 do
    begin
      close;
      SQL.Clear;
      SQL:=Memo1.Lines;
      open;
    end;
end
except on exception do
begin
end;
end;

end;

Memodan Sql kodunu yukarıdaki girdirebilirsiniz. Ayrıca bazı SQL kelimelerini kullanmamaları için de sınırlayabilirsiniz. 2. yazdğınız SQL cümlesinde bir hata görünmüyor. Hata nedir?