Kod: Tümünü seç
var
ip:string;
port:string;
camNu:string;
begin
try
camNu:=edtCamNu.Text;
ip:=edtIP.Text;
port:=edtPort.Text;
s:='UPDATE TBL_KAMERA set IP='+ip+',PORT='+port+',CAMNU='+camNu+' where ID=1';
DMstartSettings.IBQuery1.Close;
DMstartSettings.IBQuery1.SQL.Clear;
DMstartSettings.IBQuery1.SQL.Add(s);
DMstartSettings.IBQuery1.ExecSQL;
DMstartSettings.IBTransaction1.CommitRetaining;
ShowMessage('Kaydedildi');
saygılarımla
