---------------------------
Çok adımlı işlem hatalar üretti. Her bir durum değerini denetleyin.
---------------------------
böyle bir hata mesajı geliyor bir süre sonra.. Nerde hata yapıyorum acaba.
buradaki cds1 clientdataset.
Kod: Tümünü seç
procedure TForm1.Button5Click(Sender: TObject);
//veritabanına aktarma
begin
dbgrid2.DataSource:=nil;
Adoconnection1.Connected:=true;
cds1.DisableControls;
cds1.First;
adodataset1.Active:=true;
while not cds1.Eof do
begin
adodataset1.Insert;
adodataset1ECZANE_ID.Value:= cds1.RecNo;
adodataset1GLN_NO.Value:=CDS1GLN.Value;
adodataset1ECZANE_ADI.Value:=copy(CDS1COMPANYNAME.Value,1,30);
adodataset1ECZACI_ADI.Value:=copy(CDS1AUTHORIZED.Value,1,15);
adodataset1ECZANE_EPOSTA.Value:=CDS1EMAIL.Value;
adodataset1ECZANE_TEL1.Value:=CDS1PHONE.Value;
adodataset1.Post;
cds1.Next;
//label3.Caption:=inttostr(cds1.RecNo);
end;
cds1.EnableControls;
showmessage(inttostr(cds1.RecordCount)+ ' adet '+uppercase(cb1.Text)+' aktarıldı');
adodataset1.Active:=false;;
end;
