AdoQuery ile access

[MAydinli]

AdoQuery ile access veri tabanına sql (insert into) ile kayıt yapamıyorum.
hata veriyor..
"Geçerli Sağlayıçı, Tek yürütmede birden çok kayıt dizisi döndürmeyi Desteklemiyor"

Yapıda Adotable nesnesi kullanmam yasak
Sistem Tamammen SQL olaçak.
Sorgulama yapıyorum ama delete, update, ve kayıt ekliyemiyorum.

Tşk ederim.

[Caylaq]

Sönmüş Alevi Canlandıralım




Update için şeklinde bir SQL

      With qry2 Do      //   KAYIT gÜNCELLENİYOR
      Begin
      With SQL Do
      Begin
      Clear;
      Add('UPDATE CariHareket  SET  MusteriKodu=''' + edt2.Text + '''  ,Tutar=''' + edt6.Text + '''  ,EvrakNo=''' + edt3.Text + '''  ,   Tarihi=''' + DateToStr(dtp1.Date) + ''',   Vade=''' + DateToStr(dtp2.Date) + '''      ,  UpdateUser=''' + KULLANICI + '''    ,   UpdateDate=''' + DateTimeToStr(Now) + '''             ');
      Add('Where PoliceSiraNo=''' + edt1.Text + '''   ');
      ExecSQL;
      end;
      end;

INSERT için şeklinde bir yapı kullanabilirsiniz

 
  with AdoQuery5 do begin 
  SQL.Text := 'INSERT INTO _HesapSahibiTel (MusteriKodu ,Unvani ,Tipi ,  Telefon, Aciklama , DeleteUser ,DeleteDate , CreateUser ,CreateDate ,UpdateUser ,UpdateDate,TELSIRANO )   VALUES (:param1  ,:param2     ,:param3     ,:param4   '+' ,:param5  ,:param6 ,:param7     ,:param8  ,:param9  ,:param10 ,:param11 ,:param12)';

      Parameters.ParamByName('param1').value  :=Label54.Caption; // Müşteri Kodu
      Parameters.ParamByName('param2').value  :=Edit1.Text;        // Ünvanı
      Parameters.ParamByName('param3').value  :=ComboBox6.text;     // tEL TİPİ
      Parameters.ParamByName('param4').value :=MaskEdit4.text;     // tEL
      Parameters.ParamByName('param5').value :=Edit13.text;     // AÇıklama
      Parameters.ParamByName('param8').value  :=KULLANICI;       //CreateUser
      Parameters.ParamByName('param9').value  :=DateTimeToStr(Now);         ExecSQL;
      end;