Bir sorunum var yardımcı olursanız çok sevinirim.
DBGrid1 de ki verilerimi Tablo ya nasıl yazabilirim?
1.Yol bu şekilde denedim hiçbir işlem yapmadı hatada vermedi.
Kod: Tümünü seç
procedure TForm27.BitBtn2Click(Sender: TObject);
var
i: Integer;
begin
DBSTHAR.SQL.Clear;
with DBGrid1 do
begin
for i:=0 to FieldCount-1 do
DBSTHAR.SQL.Add(Fields[0].AsString);
DBSTHAR.SQL.Add(Fields[1].AsString);
DBSTHAR.SQL.Add(Fields[2].AsString);
DBSTHAR.Append;
// DBSTHAR.ExecSQL;
end;
end;
Kod: Tümünü seç
DBSTHAR.SQL.Text:='INSERT INTO TBLEMANETSTHAR (STOK_KODU,FISNO,STHAR_GCMIK,STHAR_GCMIK2,STHAR_GCKOD,STHAR_TARIH,STHAR_NF,STHAR_BF,'+
'STHAR_IAF,STHAR_KDV,DEPO_KODU,STHAR_ACIKLAMA,STHAR_SATISK,STHAR_MALFISK,STHAR_FTIRSIP,STHAR_SATISK2,LISTE_FIAT,'+
'STHAR_HTUR,STHAR_DOVTIP,PROMASYON_KODU,STHAR_DOVFIAT,STHAR_ODEGUN,STRA_SATISK3,STRA_SATISK4,STRA_SATISK5,STRA_SATISK6,'+
'STHAR_BGTIP,STHAR_KOD1,STHAR_KOD2,STHAR_SIPNUM,STHAR_CARIKOD,STHAR_SIP_TURU,PLASIYER_KODU,EKALAN_NEDEN,EKALAN,EKALAN1,'+
'REDMIK,REDNEDEN,SIRA,STRA_SIPKONT,AMBAR_KABULNO,FIRMA_DOVTIP,FIRMA_DOVTUT,FIRMA_DOVMAL,UPDATE_KODU,IRSALIYE_NO,IRSALIYE_TARIH,'+
'KOSULKODU,ECZA_FAT_TIP,STHAR_TESTAR,OLCUBR,VADE_TARIHI,LISTE_NO,BAGLANTI_NO,SUBE_KODU,MUH_KODU,S_YEDEK1,S_YEDEK2,F_YEDEK3,F_YEDEK4,'+
'F_YEDEK5,C_YEDEK6,B_YEDEK7,I_YEDEK8,L_YEDEK9,D_YEDEK10,PROJE_KODU,FIYATTARIHI,KOSULTARIHI,SATISK1TIP,SATISK2TIP,SATISK3TIP,'+
'SATISK4TIP,SATISK5TIP,SATISK6TIP,EXPORTTYPE,EXPORTMIK,DUZELTMETARIHI,ONAYTIPI,ONAYNUM,KKMALF,STRA_IRSKONT,YAPKOD,MAMYAPKOD,OTVFIYAT)' +
'VALUES (STOK_KODU,FISNO,STHAR_GCMIK,STHAR_GCMIK2,STHAR_GCKOD,STHAR_TARIH,STHAR_NF,STHAR_BF,'+
'STHAR_IAF,STHAR_KDV,DEPO_KODU,STHAR_ACIKLAMA,STHAR_SATISK,STHAR_MALFISK,STHAR_FTIRSIP,STHAR_SATISK2,LISTE_FIAT,'+
'STHAR_HTUR,STHAR_DOVTIP,PROMASYON_KODU,STHAR_DOVFIAT,STHAR_ODEGUN,STRA_SATISK3,STRA_SATISK4,STRA_SATISK5,STRA_SATISK6,'+
'STHAR_BGTIP,STHAR_KOD1,STHAR_KOD2,STHAR_SIPNUM,STHAR_CARIKOD,STHAR_SIP_TURU,PLASIYER_KODU,EKALAN_NEDEN,EKALAN,EKALAN1,'+
'REDMIK,REDNEDEN,SIRA,STRA_SIPKONT,AMBAR_KABULNO,FIRMA_DOVTIP,FIRMA_DOVTUT,FIRMA_DOVMAL,UPDATE_KODU,IRSALIYE_NO,IRSALIYE_TARIH,'+
'KOSULKODU,ECZA_FAT_TIP,STHAR_TESTAR,OLCUBR,VADE_TARIHI,LISTE_NO,BAGLANTI_NO,SUBE_KODU,MUH_KODU,S_YEDEK1,S_YEDEK2,F_YEDEK3,F_YEDEK4,'+
'F_YEDEK5,C_YEDEK6,B_YEDEK7,I_YEDEK8,L_YEDEK9,D_YEDEK10,PROJE_KODU,FIYATTARIHI,KOSULTARIHI,SATISK1TIP,SATISK2TIP,SATISK3TIP,'+
'SATISK4TIP,SATISK5TIP,SATISK6TIP,EXPORTTYPE,EXPORTMIK,DUZELTMETARIHI,ONAYTIPI,ONAYNUM,KKMALF,STRA_IRSKONT,YAPKOD,MAMYAPKOD,OTVFIYAT)';
DBSTHAR.ExecSQL;