insert de raised exception class EOLeException

[kazimates]

Kod: Tümünü seç

procedure TDovizForm.BBKaydetClick(Sender: TObject);
var
   dovtur:string;
begin

   with dm1.ADOQDOVIZLISTESI do
   begin
      close;
      sql.clear;
      sql.Text:='select * from DOVIZLISTESI '+
                'where DOVIZADI=:D1';
      Parameters.ParamByName('D1').value:= ComboBox1.Text;
      If not prepared then
         prepared;

      Active:=True;
      EDovizKodu.Text:=Dm1.ADOQDOVIZLISTESI.fieldbyname('DOVIZKODU').AsString; // USD, YTL vs
      dovtur:=Dm1.ADOQDOVIZLISTESI.fieldbyname('DOVIZKODU').AsString;
      EDovtip.Text:=Dm1.ADOQDOVIZLISTESI.fieldbyname('DOVIZTURU').AsString; // DOVIZTIPI NEDIR 1,2,vs
   end;

   with DM1.ADOQDOVIZKUR do
   begin
      close;
      sql.Clear;
      sql.Text:='insert into DOVIZKUR(KAYITNO,DOVIZTARIHI,DOVIZTIPI,DOVIZALIS,'+
                'DOVIZSATIS,EFEKTIFALIS,EFEKTIFSATIS)'+
                'VALUES (:KN,:DT,:DOCTIP,:DOVAL,:DOVSAT,:EFAL,:EFSAT)';
      Parameters.ParamByName('KN').value:=strtoint(ESonKayit.Text);
      Parameters.ParamByName('DT').value:=DateToStr(DateTimePicker1.Date);
      Parameters.ParamByName('DOCTIP').value:=EDovTip.Text;
      Parameters.ParamByName('DOVAL').value:=Edit1.Text;
      Parameters.ParamByName('DOVSAT').value:=Edit2.Text;
      Parameters.ParamByName('EFAL').value:=Edit3.Text;
      Parameters.ParamByName('EFSAT').value:=Edit4.Text;
      ExecSql;
   end;
   Application.MessageBox('Kayıt Yapıldı !!!','',MB_OKCANCEL);


   with DM1.ADOQDOVIZKUR do
    begin
       close;
       sql.Clear;
       SQL.Text:='select * from DOVIZ';
      If not prepared then
         prepared;

      Active:=True;
    end;

   DBGrid1.Refresh;

   ESonKayit.Text:=inttostr(DM1.ADOQDOVIZKUR.fieldbyname('KAYITNO').AsInteger+1);
   Edit1.Text:='';
   Edit2.Text:='';
   Edit3.Text:='';
   Edit4.Text:='';

end;

bu kodlar dovizkurunu kaydet (yeni ekle) dediğimde oluyor ve verdiği hata ise Project eczane.exe raised exception class EOLeException with message 'Invalid object name 'DOVIZ''.
şeklinde ve cursor sonrasında dbgrid1.refresh; satırında kalıyor program delphi7 ve mssqlserver 2000 kullanıyorum.
[/code]

[kazimates]

kafa yormaya gerek yok ben esseklik etmişim tablo adı doviz dedil dovizkur du yazınca düzeldi.

[rsimsek]

Kendinize haksızlık etmeyin RM-Cobol la yazdığım zamanlarda pascaldakine benzer şekilde satır sonlarında noktalı virgüle benzer şekilde blok nokta ile sonlanıyor. Bir nokta için bir kaç gün tırmaladığımı hatırlarım