Sayın arkadaşlarım
Delphi 10.2 , windows 10 ve MSSQL server Management Studio 17 kullanıyorum.
Aşağıdaki kodlar ile veritabanında düzeltme yapmak istiyorum ama başarılı olamadım. Yanlışım nerede bilgi veren arkadaşlarıma sonsuz teşekkür ederim.
NOT: MusNo--> Musteri_ID (edit10 dan alıyorum)
Kod: Tümünü seç
procedure TMusteriFormu.Duzeltme;
Var
musno:Integer;
begin
musno:=StrToInt(Edit10.Text);
ADOQuery_Musteri.SQL.Clear;
with ADOQuery_Musteri do
begin
SQL.Text:='UPDATE MusteriBilgileri SET Musteri_ADI=:Mus_ADI , Musteri_SOYADI=:Mus_SOYADI , Musteri_VERGIDAIRESI=:VergiDA WHERE Musteri_ID=:musno';
Parameters.ParamByName('Mus_ADI').Value:= Edit1.Text;
Parameters.ParamByName('Mus_SOYADI').Value:= Edit2.Text;
Parameters.ParamByName('VergiDA').Value:= Edit14.Text;
ExecSQL;
Close;
sql.text:='select * from MusteriBilgileri';
Open;
end;
end;