Delphi Can › Delphi › Genel Programlama v
DBGrid1'deki Verileri Tabloya Aktarma
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Gösterim Stili
DBGrid1'deki Verileri Tabloya Aktarma
bydelphi Çevrimdışı
Tembel Düzeyi
**
Acemi
Yorumları: 277
Konuları: 50
Kayıt Tarihi: 05-08-2019
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.3


Rep Puanı: 1.294
Programcı
#11
28-09-2022, Saat: 15:40 (Son Düzenleme: 28-09-2022, Saat: 15:48, Düzenleyen: bydelphi.)
(28-09-2022, Saat: 14:58)OZCANK Adlı Kullanıcıdan Alıntı: Yardımlarınız için çok teşekkür ederim.
Ben şu şekilde kaydetmeyi başardım. Fakat 1 tane kayıt atıyor DBGrid1 de 1000 tane kayıt var. Hepsini nasıl kaydedebilirim?

begin
VeriKaydet.Close;
VeriKaydet.SQL.Text:='Insert Into TBLEMANET_FAT_AKTAR (Sube_Kodu,FtIrSip,Belge_No,Musteri_Kodu,Tarih,Tipi,Brut_Tutar,Toplam_Iskonto,KDV,'+
          'Aciklama,KDV_Dahilmi,Kalem_Adedi,Sira_No,Genel_Toplam,Plasiyer_Kodu,Gib_Fat_Irs_No) '+
                    'Values '+
                    '(:Sube_Kodu,:FtIrSip,:Belge_No,:Musteri_Kodu,:Tarih,:Tipi,:Brut_Tutar,:Toplam_Iskonto,:KDV,'+
                    ':Aciklama,:KDV_Dahilmi,:Kalem_Adedi,:Sira_No,:Genel_Toplam,Tonguelasiyer_Kodu,:Gib_Fat_Irs_No)';

     VeriKaydet.Parameters.ParamByName('Sube_Kodu').Value     := '0';
     VeriKaydet.Parameters.ParamByName('FtIrSip').Value       := '1';
     VeriKaydet.Parameters.ParamByName('Belge_No').Value      := DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
     VeriKaydet.Parameters.ParamByName('Musteri_Kodu').Value  := DBGrid1.DataSource.DataSet.FieldByName('Musteri_Kodu').AsString;
     VeriKaydet.Parameters.ParamByName('Tarih').Value         := DBGrid1.DataSource.DataSet.FieldByName('Tarih').AsDateTime;
     VeriKaydet.Parameters.ParamByName('Tipi').Value          := DBGrid1.DataSource.DataSet.FieldByName('Tipi').AsString;
     VeriKaydet.Parameters.ParamByName('Brut_Tutar').Value    := DBGrid1.DataSource.DataSet.FieldByName('Brut_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Toplam_Iskonto').Value:= DBGrid1.DataSource.DataSet.FieldByName('Toplam_Iskonto').AsInteger;
     VeriKaydet.Parameters.ParamByName('KDV').Value           := DBGrid1.DataSource.DataSet.FieldByName('KDV_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Aciklama').Value      := 'DENEME';
     VeriKaydet.Parameters.ParamByName('KDV_Dahilmi').Value   := 'H';
     VeriKaydet.Parameters.ParamByName('Kalem_Adedi').Value   := DBGrid1.DataSource.DataSet.FieldByName('Kalem_Adedi').AsInteger;
     VeriKaydet.Parameters.ParamByName('Sira_No').Value       := '0';
     VeriKaydet.Parameters.ParamByName('Genel_Toplam').Value  := DBGrid1.DataSource.DataSet.FieldByName('Genel_Toplam').AsInteger;
     VeriKaydet.Parameters.ParamByName('Plasiyer_Kodu').Value := '01';
     VeriKaydet.Parameters.ParamByName('Gib_Fat_Irs_No').Value:= DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
VeriKaydet.ExecSQL;







bunu bi dene istersen.



DBGrid1.DataSource.DataSet.first;

while not DBGrid1.DataSource.DataSet.eof do
begin




 
VeriKaydet.Close;
VeriKaydet.SQL.Text:='Insert Into TBLEMANET_FAT_AKTAR (Sube_Kodu,FtIrSip,Belge_No,Musteri_Kodu,Tarih,Tipi,Brut_Tutar,Toplam_Iskonto,KDV,'+
          'Aciklama,KDV_Dahilmi,Kalem_Adedi,Sira_No,Genel_Toplam,Plasiyer_Kodu,Gib_Fat_Irs_No) '+
                    'Values '+
                    '(:Sube_Kodu,:FtIrSip,:Belge_No,:Musteri_Kodu,:Tarih,:Tipi,:Brut_Tutar,:Toplam_Iskonto,:KDV,'+
                    ':Aciklama,:KDV_Dahilmi,:Kalem_Adedi,:Sira_No,:Genel_Toplam,Tonguelasiyer_Kodu,:Gib_Fat_Irs_No)';

     VeriKaydet.Parameters.ParamByName('Sube_Kodu').Value     := '0';
     VeriKaydet.Parameters.ParamByName('FtIrSip').Value       := '1';
     VeriKaydet.Parameters.ParamByName('Belge_No').Value      := DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
     VeriKaydet.Parameters.ParamByName('Musteri_Kodu').Value  := DBGrid1.DataSource.DataSet.FieldByName('Musteri_Kodu').AsString;
     VeriKaydet.Parameters.ParamByName('Tarih').Value         := DBGrid1.DataSource.DataSet.FieldByName('Tarih').AsDateTime;
     VeriKaydet.Parameters.ParamByName('Tipi').Value          := DBGrid1.DataSource.DataSet.FieldByName('Tipi').AsString;
     VeriKaydet.Parameters.ParamByName('Brut_Tutar').Value    := DBGrid1.DataSource.DataSet.FieldByName('Brut_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Toplam_Iskonto').Value:= DBGrid1.DataSource.DataSet.FieldByName('Toplam_Iskonto').AsInteger;
     VeriKaydet.Parameters.ParamByName('KDV').Value           := DBGrid1.DataSource.DataSet.FieldByName('KDV_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Aciklama').Value      := 'DENEME';
     VeriKaydet.Parameters.ParamByName('KDV_Dahilmi').Value   := 'H';
     VeriKaydet.Parameters.ParamByName('Kalem_Adedi').Value   := DBGrid1.DataSource.DataSet.FieldByName('Kalem_Adedi').AsInteger;
     VeriKaydet.Parameters.ParamByName('Sira_No').Value       := '0';
     VeriKaydet.Parameters.ParamByName('Genel_Toplam').Value  := DBGrid1.DataSource.DataSet.FieldByName('Genel_Toplam').AsInteger;
     VeriKaydet.Parameters.ParamByName('Plasiyer_Kodu').Value := '01';
     VeriKaydet.Parameters.ParamByName('Gib_Fat_Irs_No').Value:= DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
VeriKaydet.ExecSQL;




DBGrid1.DataSource.DataSet.next;


end


tüm satırları döngüyle dolaşıp halledebilirsin.
yalnız dikkatimi çekti; Genel_Toplam, Brut_Tutar vb parasal alanları AsInteger olarak almışsın.
integer tamsayı olduğu için vilgülden sonraki küsüratları alamayacaksın.
bunun için asinteger yerine asfloat veya value falan diyebilirsin.
Kalan ömrünün en genç build’indesin.
Counter artar, deadline sabit.
Age++ çalışıyor, rollback yok.
Her yer exception
Cevapla
OZCANK Çevrimdışı
Başlangıç Düzeyi
*
Başlangıç
Yorumları: 374
Konuları: 66
Kayıt Tarihi: 16-12-2018
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 7


Rep Puanı: 115
Başlangıç
#12
28-09-2022, Saat: 15:49
(28-09-2022, Saat: 15:40)bydelphi Adlı Kullanıcıdan Alıntı:
(28-09-2022, Saat: 14:58)OZCANK Adlı Kullanıcıdan Alıntı: Yardımlarınız için çok teşekkür ederim.
Ben şu şekilde kaydetmeyi başardım. Fakat 1 tane kayıt atıyor DBGrid1 de 1000 tane kayıt var. Hepsini nasıl kaydedebilirim?

begin
VeriKaydet.Close;
VeriKaydet.SQL.Text:='Insert Into TBLEMANET_FAT_AKTAR (Sube_Kodu,FtIrSip,Belge_No,Musteri_Kodu,Tarih,Tipi,Brut_Tutar,Toplam_Iskonto,KDV,'+
          'Aciklama,KDV_Dahilmi,Kalem_Adedi,Sira_No,Genel_Toplam,Plasiyer_Kodu,Gib_Fat_Irs_No) '+
                    'Values '+
                    '(:Sube_Kodu,:FtIrSip,:Belge_No,:Musteri_Kodu,:Tarih,:Tipi,:Brut_Tutar,:Toplam_Iskonto,:KDV,'+
                    ':Aciklama,:KDV_Dahilmi,:Kalem_Adedi,:Sira_No,:Genel_Toplam,Tonguelasiyer_Kodu,:Gib_Fat_Irs_No)';

     VeriKaydet.Parameters.ParamByName('Sube_Kodu').Value     := '0';
     VeriKaydet.Parameters.ParamByName('FtIrSip').Value       := '1';
     VeriKaydet.Parameters.ParamByName('Belge_No').Value      := DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
     VeriKaydet.Parameters.ParamByName('Musteri_Kodu').Value  := DBGrid1.DataSource.DataSet.FieldByName('Musteri_Kodu').AsString;
     VeriKaydet.Parameters.ParamByName('Tarih').Value         := DBGrid1.DataSource.DataSet.FieldByName('Tarih').AsDateTime;
     VeriKaydet.Parameters.ParamByName('Tipi').Value          := DBGrid1.DataSource.DataSet.FieldByName('Tipi').AsString;
     VeriKaydet.Parameters.ParamByName('Brut_Tutar').Value    := DBGrid1.DataSource.DataSet.FieldByName('Brut_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Toplam_Iskonto').Value:= DBGrid1.DataSource.DataSet.FieldByName('Toplam_Iskonto').AsInteger;
     VeriKaydet.Parameters.ParamByName('KDV').Value           := DBGrid1.DataSource.DataSet.FieldByName('KDV_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Aciklama').Value      := 'DENEME';
     VeriKaydet.Parameters.ParamByName('KDV_Dahilmi').Value   := 'H';
     VeriKaydet.Parameters.ParamByName('Kalem_Adedi').Value   := DBGrid1.DataSource.DataSet.FieldByName('Kalem_Adedi').AsInteger;
     VeriKaydet.Parameters.ParamByName('Sira_No').Value       := '0';
     VeriKaydet.Parameters.ParamByName('Genel_Toplam').Value  := DBGrid1.DataSource.DataSet.FieldByName('Genel_Toplam').AsInteger;
     VeriKaydet.Parameters.ParamByName('Plasiyer_Kodu').Value := '01';
     VeriKaydet.Parameters.ParamByName('Gib_Fat_Irs_No').Value:= DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
VeriKaydet.ExecSQL;







bunu bi dene istersen.



DBGrid1.DataSource.DataSet.first;

while not DBGrid1.DataSource.DataSet.eof do
begin




 
VeriKaydet.Close;
VeriKaydet.SQL.Text:='Insert Into TBLEMANET_FAT_AKTAR (Sube_Kodu,FtIrSip,Belge_No,Musteri_Kodu,Tarih,Tipi,Brut_Tutar,Toplam_Iskonto,KDV,'+
          'Aciklama,KDV_Dahilmi,Kalem_Adedi,Sira_No,Genel_Toplam,Plasiyer_Kodu,Gib_Fat_Irs_No) '+
                    'Values '+
                    '(:Sube_Kodu,:FtIrSip,:Belge_No,:Musteri_Kodu,:Tarih,:Tipi,:Brut_Tutar,:Toplam_Iskonto,:KDV,'+
                    ':Aciklama,:KDV_Dahilmi,:Kalem_Adedi,:Sira_No,:Genel_Toplam,Tonguelasiyer_Kodu,:Gib_Fat_Irs_No)';

     VeriKaydet.Parameters.ParamByName('Sube_Kodu').Value     := '0';
     VeriKaydet.Parameters.ParamByName('FtIrSip').Value       := '1';
     VeriKaydet.Parameters.ParamByName('Belge_No').Value      := DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
     VeriKaydet.Parameters.ParamByName('Musteri_Kodu').Value  := DBGrid1.DataSource.DataSet.FieldByName('Musteri_Kodu').AsString;
     VeriKaydet.Parameters.ParamByName('Tarih').Value         := DBGrid1.DataSource.DataSet.FieldByName('Tarih').AsDateTime;
     VeriKaydet.Parameters.ParamByName('Tipi').Value          := DBGrid1.DataSource.DataSet.FieldByName('Tipi').AsString;
     VeriKaydet.Parameters.ParamByName('Brut_Tutar').Value    := DBGrid1.DataSource.DataSet.FieldByName('Brut_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Toplam_Iskonto').Value:= DBGrid1.DataSource.DataSet.FieldByName('Toplam_Iskonto').AsInteger;
     VeriKaydet.Parameters.ParamByName('KDV').Value           := DBGrid1.DataSource.DataSet.FieldByName('KDV_Tutar').AsInteger;
     VeriKaydet.Parameters.ParamByName('Aciklama').Value      := 'DENEME';
     VeriKaydet.Parameters.ParamByName('KDV_Dahilmi').Value   := 'H';
     VeriKaydet.Parameters.ParamByName('Kalem_Adedi').Value   := DBGrid1.DataSource.DataSet.FieldByName('Kalem_Adedi').AsInteger;
     VeriKaydet.Parameters.ParamByName('Sira_No').Value       := '0';
     VeriKaydet.Parameters.ParamByName('Genel_Toplam').Value  := DBGrid1.DataSource.DataSet.FieldByName('Genel_Toplam').AsInteger;
     VeriKaydet.Parameters.ParamByName('Plasiyer_Kodu').Value := '01';
     VeriKaydet.Parameters.ParamByName('Gib_Fat_Irs_No').Value:= DBGrid1.DataSource.DataSet.FieldByName('Belge_No').AsString;
VeriKaydet.ExecSQL;




DBGrid1.DataSource.DataSet.next;


end


tüm satırları döngüyle dolaşıp halledebilirsin.
yalnız dikkatimi  çekti; Genel_Toplam, Brut_Tutar vb parasal alanları AsInteger olarak almışsın.
integer tamsayı olduğu için vilgülden sonraki küsüratları alamayacaksın.
bunun için asinteger yerine asfloat veya value falan diyebilirsin.

Çok teşekkür ederim kardeşim yüreğine sağlık.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DBGrid1 Alanlarını Gizle Göster Olarak Kullanmak. OZCANK 4 1.086 05-04-2025, Saat: 22:02
Son Yorum: metemet
  Stringgrid seçili sütunları aktarma cvheneburi 1 1.139 26-02-2025, Saat: 10:24
Son Yorum: delphiman
  Delphi 7 deki pencereleri nasıl sabitleyebilirim? mxpain 1 566 12-12-2024, Saat: 08:50
Son Yorum: 3ddark
  Delphi 7 Excel'e Veri Aktarma mahone 6 2.549 02-05-2023, Saat: 08:34
Son Yorum: COMMANDX
  farkli tablolardan verileri dataset e toplama sadikacar60 12 3.411 23-03-2023, Saat: 18:34
Son Yorum: sadikacar60



Konuyu Okuyanlar: 1 Ziyaretçi