dbgridden seçip sil

[zaxacm]

procedure TFgenel.DBGrid1CellClick(Column: TColumn);
begin
oid:= Fana.ADOQuery1.Fields[0].AsInteger ;
edit2.text:=oid; //dbgridden bir kayıt seçilip seçilmediğini kontrol etmek istiyorum.
end;


procedure TFgenel.SpeedButton2Click(Sender: TObject);
begin
if edit2.text='' then
windows.MessageBox(Fgenel.Handle,'Silinecek kaydı seçmelisiniz','Uyarı',mb_ok or mb_iconinformation)
else begin
Fana.ADOquery1.Close;
Fana.ADOquery1.SQL.Clear;
Fana.ADOquery1.SQL.Add('DELETE from genel where id =oid');
Fana.ADOquery1.ExecSQL;
Fana.ADOquery1.Open;
end;
end;

[husonet]

procedure TFgenel.DBGrid1CellClick(Column: TColumn);
begin
oid:= Fana.ADOQuery1.Fields[0].AsInteger ;
edit2.text:=oid; //dbgridden bir kayıt seçilip seçilmediğini kontrol etmek istiyorum.
end;


procedure TFgenel.SpeedButton2Click(Sender: TObject);
begin
if edit2.text='' then
windows.MessageBox(Fgenel.Handle,'Silinecek kaydı seçmelisiniz','Uyarı',mb_ok or mb_iconinformation)
else begin
Fana.ADOquery1.Close;
Fana.ADOquery1.SQL.Clear;
Fana.ADOquery1.SQL.Add('DELETE from genel where id =oid');
Fana.ADOquery1.ExecSQL;
Fana.ADOquery1.Open;
end;
end;

burada execSql den sonra open yapmanıza gerek yok ama dataseti açmak istiyorsanuz close değip select sqlinizi yazmalısınız...

kolay gelsin...

[rsimsek]

Sonuç döndürmeyen sorgular/Query (INSERT/UPDATE/DELETE) için;

Kod: Tümünü seç

Query1.ExecSQL;

Sonuç döndürecek sorgular için ise;

Kod: Tümünü seç

Query1.Open; 

kullanmalısınız.