s:='update TBLPUANLARGECICI set LANE='+lane+' where ID=1';

[forumsad]

firebird denemelerim devam ediyor..

değer alma;

Kod: Tümünü seç

IBQuery1.SQL.Clear;						
IBQuery1.SQL.Add('select * from TBLPUANLARGECICI where ID=1');						
IBQuery1.Open;						
Edit1.Text:= IBQuery1.fieldbyname('TARIH').value;						
Edit2.Text:= IBQuery1.fieldbyname('LANE').value;						
Edit3.Text:= IBQuery1.fieldbyname('OYADI').value;

değer arama;

Kod: Tümünü seç

ibQuery1.Close;		
ibQuery1.SQL.Clear;		
ibQuery1.SQL.Add('SELECT * FROM TBLPUANLARGECICI WHERE OYADI LIKE ''%'+Edit2.text+'%''');		
ibQuery1.Active := True;	

forumda bulduğum yukardaki örnekler çalıştı

ama altdaki örnek çalışmıyor

Kod: Tümünü seç

var
s,lane:string;
begin
lane:='3';
s:='update TBLPUANLARGECICI set LANE='+lane+' where ID=1';
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(s);
IBQuery1.ExecSQL;

kullandığım elemanlar
IBDatabase1
IBTransaction1
DataSource1
IBQuery1

ayrıca IBTransaction1 çift tıklayıp read-write yaptım

kod delphiyi kilitliyor

saygılarımla

[SimaWB]

LANE string ise;

Kod: Tümünü seç

s:='update TBLPUANLARGECICI set LANE='+lane+' where ID=1';

deki lane tırnak içine alınmalı sanırım.

Kod: Tümünü seç

s:='update TBLPUANLARGECICI set LANE="'+lane+'" where ID=1';

[forumsad]

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
s,lane:string;
begin
lane:='3';
s:='update TBLPUANLARGECICI set LANE="'+lane+'" where ID=1';
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(s);
IBQuery1.ExecSQL;
end;

malesef hata devam ediyor

[cecihan]

LANE=" '+lane....... ifadesindeki çift tırnakları tek tırnağa çevirirmisiniz. firebird SQl de stringler tek tırnakla çerçevelenir.

[forumsad]

daha önce tek tırnakla denemiştim hata devam etmişti şimdi her ne olduysa tek tırnağa çevirince hata vermeden çalıştı

çok teşekkürler saygılarımla

çalışan hali;

Kod: Tümünü seç

procedure TfrmQuery.Button2Click(Sender: TObject);
var
s,lane:string;
begin
lane:='5';
s:='UPDATE TBLPUANLARGECICI set LANE='+lane+' where ID=1';
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(s);
IBQuery1.ExecSQL;

end;