Veri Girişi (Siz ne düşünüyorsunuz)

MS SQL Server veritabanı ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Veri Girişi (Siz ne düşünüyorsunuz)

Mesaj gönderen pro_imaj »

Merhaba,

Arkadaşlar MSSQL veri tabanına bir programın vtsine ara yazılım yapıyorum baya uzun süredir ama şöyle sizlere danışmak istediğim birkaç şey var.

1)bazı veri tabanlarında yeni kayıt açmama gerekiyor, key alanlar dışında kalan integer olan alanlara değer yazmazsam kayıt ederken sorun oluyor bunu nasıl aşabilirim acaba.

Ben şöyle bir yönten kullanıyorum.
vtdeki integer integer alanları ve key alanlarıda alanın özelliklerine göre yazıyorum bununda şöyle zor bir yanı oluyor bir veri tabanında 130-160 arası alan var ve bunlardan en az 60-90 arası zorunlu alan+sayısal alan (böyle olmasının nedenide adamlar tarih ve saatler ilgili tüm alanlarıda sayısal tutuyorlar.


Ben saatlerce bu basit işlerle uğraşmaktan hem sağlıklı karar alamıyorum hemde çok yorucu oluyor siz ne tür bir yol önerirsiniz acaba.

işte sadece bir tabledeki alanlar

Kod: Tümünü seç

IslemTur, EvrakNo, Tarih, Chk, KynkEvrakTip, SiraNo, IrsFat, IslemTip, MalKodu, Miktar, Fiyat, Tutar, DovizCinsi, DovizKuru, DovizTutar, DvzBirimFiyat, Birim, BirimFiyat, BirimMiktar, Iskonto, IskontoOran, ToplamIskonto, KDV, KDVOran, KDVDahilHaric, OtvDahilHaric, OtvTutar, GtkListeNo, Aciklama, Kod1, Kod2, Kod3, Kod4, Kod5, Kod6, Kod7, Kod8, Kod9, Kod10, Kod11, Kod12, Kod13, Kod14, Depo, Vasita, SeriNo, SevkTarih, PromosyonMiktar, Miktar2, Tutar2, Tarih2, VadeTarih, Masraf, Maliyet, MlyYontem, MhsKod, MhsKarsiKod, MasrafMerkezi, MhsDurum, MlyMhs, MhsTabloNo, EvrakTarih, SiparisSiraNo, IskontoOran1, IskOran1Net, IskontoOran2, IskOran2Net, IskontoOran3, IskOran3Net, IskontoOran4, IskOran4Net, IskontoOran5, IskOran5Net, KlmTutarIsk, KlmTutarIskNet, TeslimChk, ButceKod, FytListeNo, FatMiktar, TesTemMalKod, DvzTL, BarkodNo, Katsayi, Operator, ValorGun, KaynakIrsEvrakNo, KaynakIrsTarih, KaynakIIFEvrakNo, KaynakIIFTarih, KaynakSiparisNo, KaynakSiparisTarih, ErekIFEvrakNo, ErekIFKEvrakTip, ErekIFMiktar, ErekIIFEvrakNo, ErekIIFKEvrakTip, ErekIIFMiktar, RenkBedenKod1, RenkBedenKod2, RenkBedenKod3, RenkBedenKod4, KayitTuru, Nesne1, Nesne2, Nesne3, IrsFat2, Miktar3, Tutar3, SiraNo2, KurTarihi, KrediBorcTutar, AktiflesenKrediFaizi, Kredi_Donem_BaslangicTarih, Kredi_Donem_BitisTarih, Kredi_Donem_VadeTarih, Kredi_Donem_VadeFarkiTutar, ReelOlmayanFinansmanMaliyet, KrediArindirmaSekli, FinansmanGiderTuru, Duz_Yapilan_Yıl, Duz_Yapilan_Donem, Duz_Yontemi, Duz_Mhs_Hesap_Kodu, Duz_Mhs_Durumu, Duz_Stok_Devir_Hizi, Duz_Katsayisi, Duz_Esas_Tutar, Duz_Tutar, Duz_Mly_Yontemi, Duz_Mly_Tarihi_Mly_Tutar, Duz_Mly_Satilan_Mal_Mly_Tutar, Duz_Mly_Mhs_Hesap_Kodu, Duz_Mly_Mhs_Durumu, GuvenlikKod, Kaydeden, KayitTarih, KayitSaat, KayitKaynak, KayitSurum, Degistiren, DegisTarih, DegisSaat, DegisKaynak, DegisSurum, CheckSum, Row_ID, timestamp

işte bir kayıt girmek için uğraştığım kod

Kod: Tümünü seç

DM.ErekSTIQuery.Append;
DM.ErekSTIQuery.Edit;
DM.ErekSTIQueryIslemTur	.text:=DM.KynkSTIQueryIslemTur	.text;
DM.ErekSTIQueryEvrakNo.Text:=DM.KynkSTIQueryEvrakNo.Text;
DM.ErekSTIQueryTarih	.text:=DM.KynkSTIQueryTarih	.text;
DM.ErekSTIQueryChk	.text:=DM.KynkSTIQueryChk	.text;
DM.ErekSTIQueryKynkEvrakTip	.text:=DM.KynkSTIQueryKynkEvrakTip	.text;
DM.ErekSTIQuerySiraNo	.text:=DM.KynkSTIQuerySiraNo	.text;
DM.ErekSTIQueryIrsFat	.text:=DM.KynkSTIQueryIrsFat	.text;
DM.ErekSTIQueryIslemTip	.text:=DM.KynkSTIQueryIslemTip	.text;
DM.ErekSTIQueryMalKodu	.text:=DM.KynkSTIQueryMalKodu	.text;
DM.ErekSTIQueryMiktar	.text:=DM.KynkSTIQueryMiktar	.text;
DM.ErekSTIQueryFiyat	.text:=DM.KynkSTIQueryFiyat	.text;
DM.ErekSTIQueryTutar	.text:=DM.KynkSTIQueryTutar	.text;
DM.ErekSTIQueryDovizCinsi	.text:=DM.KynkSTIQueryDovizCinsi	.text;
DM.ErekSTIQueryDovizKuru	.text:=DM.KynkSTIQueryDovizKuru	.text;
DM.ErekSTIQueryDovizTutar	.text:=DM.KynkSTIQueryDovizTutar	.text;
DM.ErekSTIQueryDvzBirimFiyat	.text:=DM.KynkSTIQueryDvzBirimFiyat	.text;
DM.ErekSTIQueryBirim	.text:=DM.KynkSTIQueryBirim	.text;
DM.ErekSTIQueryBirimFiyat	.text:=DM.KynkSTIQueryBirimFiyat	.text;
DM.ErekSTIQueryBirimMiktar	.text:=DM.KynkSTIQueryBirimMiktar	.text;
DM.ErekSTIQueryIskonto	.text:=DM.KynkSTIQueryIskonto	.text;
DM.ErekSTIQueryIskontoOran	.text:=DM.KynkSTIQueryIskontoOran	.text;
DM.ErekSTIQueryToplamIskonto	.text:=DM.KynkSTIQueryToplamIskonto	.text;
DM.ErekSTIQueryKDV	.text:=DM.KynkSTIQueryKDV	.text;
DM.ErekSTIQueryKDVOran	.text:=DM.KynkSTIQueryKDVOran	.text;
DM.ErekSTIQueryKDVDahilHaric	.text:=DM.KynkSTIQueryKDVDahilHaric	.text;
DM.ErekSTIQueryOtvDahilHaric	.text:=DM.KynkSTIQueryOtvDahilHaric	.text;
DM.ErekSTIQueryOtvTutar	.text:=DM.KynkSTIQueryOtvTutar	.text;
DM.ErekSTIQueryGtkListeNo	.text:=DM.KynkSTIQueryGtkListeNo	.text;
DM.ErekSTIQueryAciklama	.text:=DM.KynkSTIQueryAciklama	.text;
DM.ErekSTIQueryKod1	.text:=DM.KynkSTIQueryKod1	.text;
DM.ErekSTIQueryKod2	.text:=DM.KynkSTIQueryKod2	.text;
DM.ErekSTIQueryKod3	.text:=DM.KynkSTIQueryKod3	.text;
DM.ErekSTIQueryKod4	.text:=DM.KynkSTIQueryKod4	.text;
DM.ErekSTIQueryKod5	.text:=DM.KynkSTIQueryKod5	.text;
DM.ErekSTIQueryKod6	.text:=DM.KynkSTIQueryKod6	.text;
DM.ErekSTIQueryKod7	.text:=DM.KynkSTIQueryKod7	.text;
DM.ErekSTIQueryKod8	.text:=DM.KynkSTIQueryKod8	.text;
DM.ErekSTIQueryKod9	.text:=DM.KynkSTIQueryKod9	.text;
DM.ErekSTIQueryKod10	.text:=DM.KynkSTIQueryKod10	.text;
DM.ErekSTIQueryKod11	.text:=DM.KynkSTIQueryKod11	.text;
DM.ErekSTIQueryKod12	.text:=DM.KynkSTIQueryKod12	.text;
DM.ErekSTIQueryKod13	.text:=DM.KynkSTIQueryKod13	.text;
DM.ErekSTIQueryKod14	.text:=DM.KynkSTIQueryKod14	.text;
DM.ErekSTIQueryDepo	.text:=DM.KynkSTIQueryDepo	.text;
DM.ErekSTIQueryVasita	.text:=DM.KynkSTIQueryVasita	.text;
DM.ErekSTIQuerySeriNo	.text:=DM.KynkSTIQuerySeriNo	.text;
DM.ErekSTIQuerySevkTarih	.text:=DM.KynkSTIQuerySevkTarih	.text;
DM.ErekSTIQueryPromosyonMiktar	.text:=DM.KynkSTIQueryPromosyonMiktar	.text;
DM.ErekSTIQueryMiktar2	.text:=DM.KynkSTIQueryMiktar2	.text;
DM.ErekSTIQueryTutar2	.text:=DM.KynkSTIQueryTutar2	.text;
DM.ErekSTIQueryTarih2	.text:=DM.KynkSTIQueryTarih2	.text;
DM.ErekSTIQueryVadeTarih	.text:=DM.KynkSTIQueryVadeTarih	.text;
DM.ErekSTIQueryMasraf	.text:=DM.KynkSTIQueryMasraf	.text;
DM.ErekSTIQueryMaliyet	.text:=DM.KynkSTIQueryMaliyet	.text;
DM.ErekSTIQueryMlyYontem	.text:=DM.KynkSTIQueryMlyYontem	.text;
DM.ErekSTIQueryMhsKod	.text:=DM.KynkSTIQueryMhsKod	.text;
DM.ErekSTIQueryMhsKarsiKod	.text:=DM.KynkSTIQueryMhsKarsiKod	.text;
DM.ErekSTIQueryMasrafMerkezi	.text:=DM.KynkSTIQueryMasrafMerkezi	.text;
DM.ErekSTIQueryMhsDurum	.text:=DM.KynkSTIQueryMhsDurum	.text;
DM.ErekSTIQueryMlyMhs	.text:=DM.KynkSTIQueryMlyMhs	.text;
DM.ErekSTIQueryMhsTabloNo	.text:=DM.KynkSTIQueryMhsTabloNo	.text;
DM.ErekSTIQueryEvrakTarih	.text:=DM.KynkSTIQueryEvrakTarih	.text;
DM.ErekSTIQuerySiparisSiraNo	.text:=DM.KynkSTIQuerySiparisSiraNo	.text;
DM.ErekSTIQueryIskontoOran1	.text:=DM.KynkSTIQueryIskontoOran1	.text;
DM.ErekSTIQueryIskOran1Net	.text:=DM.KynkSTIQueryIskOran1Net	.text;
DM.ErekSTIQueryIskontoOran2	.text:=DM.KynkSTIQueryIskontoOran2	.text;
DM.ErekSTIQueryIskOran2Net	.text:=DM.KynkSTIQueryIskOran2Net	.text;
DM.ErekSTIQueryIskontoOran3	.text:=DM.KynkSTIQueryIskontoOran3	.text;
DM.ErekSTIQueryIskOran3Net	.text:=DM.KynkSTIQueryIskOran3Net	.text;
DM.ErekSTIQueryIskontoOran4	.text:=DM.KynkSTIQueryIskontoOran4	.text;
DM.ErekSTIQueryIskOran4Net	.text:=DM.KynkSTIQueryIskOran4Net	.text;
DM.ErekSTIQueryIskontoOran5	.text:=DM.KynkSTIQueryIskontoOran5	.text;
DM.ErekSTIQueryIskOran5Net	.text:=DM.KynkSTIQueryIskOran5Net	.text;
DM.ErekSTIQueryKlmTutarIsk	.text:=DM.KynkSTIQueryKlmTutarIsk	.text;
DM.ErekSTIQueryKlmTutarIskNet	.text:=DM.KynkSTIQueryKlmTutarIskNet	.text;
DM.ErekSTIQueryTeslimChk	.text:=DM.KynkSTIQueryTeslimChk	.text;
DM.ErekSTIQueryButceKod	.text:=DM.KynkSTIQueryButceKod	.text;
DM.ErekSTIQueryFytListeNo	.text:=DM.KynkSTIQueryFytListeNo	.text;
DM.ErekSTIQueryFatMiktar	.text:=DM.KynkSTIQueryFatMiktar	.text;
DM.ErekSTIQueryTesTemMalKod	.text:=DM.KynkSTIQueryTesTemMalKod	.text;
DM.ErekSTIQueryDvzTL	.text:=DM.KynkSTIQueryDvzTL	.text;
DM.ErekSTIQueryBarkodNo	.text:=DM.KynkSTIQueryBarkodNo	.text;
DM.ErekSTIQueryKatsayi	.text:=DM.KynkSTIQueryKatsayi	.text;
DM.ErekSTIQueryOperator	.text:=DM.KynkSTIQueryOperator	.text;
DM.ErekSTIQueryValorGun	.text:=DM.KynkSTIQueryValorGun	.text;
DM.ErekSTIQueryKaynakIrsEvrakNo	.text:=DM.KynkSTIQueryKaynakIrsEvrakNo	.text;
DM.ErekSTIQueryKaynakIrsTarih	.text:=DM.KynkSTIQueryKaynakIrsTarih	.text;
DM.ErekSTIQueryKaynakIIFEvrakNo	.text:=DM.KynkSTIQueryKaynakIIFEvrakNo	.text;
DM.ErekSTIQueryKaynakIIFTarih	.text:=DM.KynkSTIQueryKaynakIIFTarih	.text;
DM.ErekSTIQueryKaynakSiparisNo	.text:=DM.KynkSTIQueryKaynakSiparisNo	.text;
DM.ErekSTIQueryKaynakSiparisTarih	.text:=DM.KynkSTIQueryKaynakSiparisTarih	.text;
DM.ErekSTIQueryErekIFEvrakNo	.text:=DM.KynkSTIQueryErekIFEvrakNo	.text;
DM.ErekSTIQueryErekIFKEvrakTip	.text:=DM.KynkSTIQueryErekIFKEvrakTip	.text;
DM.ErekSTIQueryErekIFMiktar	.text:=DM.KynkSTIQueryErekIFMiktar	.text;
DM.ErekSTIQueryErekIIFEvrakNo	.text:=DM.KynkSTIQueryErekIIFEvrakNo	.text;
DM.ErekSTIQueryErekIIFKEvrakTip	.text:=DM.KynkSTIQueryErekIIFKEvrakTip	.text;
DM.ErekSTIQueryErekIIFMiktar	.text:=DM.KynkSTIQueryErekIIFMiktar	.text;
DM.ErekSTIQueryRenkBedenKod1	.text:=DM.KynkSTIQueryRenkBedenKod1	.text;
DM.ErekSTIQueryRenkBedenKod2	.text:=DM.KynkSTIQueryRenkBedenKod2	.text;
DM.ErekSTIQueryRenkBedenKod3	.text:=DM.KynkSTIQueryRenkBedenKod3	.text;
DM.ErekSTIQueryRenkBedenKod4	.text:=DM.KynkSTIQueryRenkBedenKod4	.text;
DM.ErekSTIQueryKayitTuru	.text:=DM.KynkSTIQueryKayitTuru	.text;
DM.ErekSTIQueryNesne1	.text:=DM.KynkSTIQueryNesne1	.text;
DM.ErekSTIQueryNesne2	.text:=DM.KynkSTIQueryNesne2	.text;
DM.ErekSTIQueryNesne3	.text:=DM.KynkSTIQueryNesne3	.text;
DM.ErekSTIQueryIrsFat2	.text:=DM.KynkSTIQueryIrsFat2	.text;
DM.ErekSTIQueryMiktar3	.text:=DM.KynkSTIQueryMiktar3	.text;
DM.ErekSTIQueryTutar3	.text:=DM.KynkSTIQueryTutar3	.text;
DM.ErekSTIQuerySiraNo2	.text:=DM.KynkSTIQuerySiraNo2	.text;
DM.ErekSTIQueryKurTarihi	.text:=DM.KynkSTIQueryKurTarihi	.text;
DM.ErekSTIQueryKrediBorcTutar	.text:=DM.KynkSTIQueryKrediBorcTutar	.text;
DM.ErekSTIQueryAktiflesenKrediFaizi	.text:=DM.KynkSTIQueryAktiflesenKrediFaizi	.text;
DM.ErekSTIQueryKredi_Donem_BaslangicTarih	.text:=DM.KynkSTIQueryKredi_Donem_BaslangicTarih	.text;
DM.ErekSTIQueryKredi_Donem_BitisTarih	.text:=DM.KynkSTIQueryKredi_Donem_BitisTarih	.text;
DM.ErekSTIQueryKredi_Donem_VadeTarih	.text:=DM.KynkSTIQueryKredi_Donem_VadeTarih	.text;
DM.ErekSTIQueryKredi_Donem_VadeFarkiTutar	.text:=DM.KynkSTIQueryKredi_Donem_VadeFarkiTutar	.text;
DM.ErekSTIQueryReelOlmayanFinansmanMaliyet	.text:=DM.KynkSTIQueryReelOlmayanFinansmanMaliyet	.text;
DM.ErekSTIQueryKrediArindirmaSekli	.text:=DM.KynkSTIQueryKrediArindirmaSekli	.text;
DM.ErekSTIQueryFinansmanGiderTuru	.text:=DM.KynkSTIQueryFinansmanGiderTuru	.text;
DM.ErekSTIQueryDuz_Yapilan_Yl	.text:=DM.KynkSTIQueryDuz_Yapilan_Yl	.text;
DM.ErekSTIQueryDuz_Yapilan_Donem	.text:=DM.KynkSTIQueryDuz_Yapilan_Donem	.text;
DM.ErekSTIQueryDuz_Yontemi	.text:=DM.KynkSTIQueryDuz_Yontemi	.text;
DM.ErekSTIQueryDuz_Mhs_Hesap_Kodu	.text:=DM.KynkSTIQueryDuz_Mhs_Hesap_Kodu	.text;
DM.ErekSTIQueryDuz_Mhs_Durumu	.text:=DM.KynkSTIQueryDuz_Mhs_Durumu	.text;
DM.ErekSTIQueryDuz_Stok_Devir_Hizi	.text:=DM.KynkSTIQueryDuz_Stok_Devir_Hizi	.text;
DM.ErekSTIQueryDuz_Katsayisi	.text:=DM.KynkSTIQueryDuz_Katsayisi	.text;
DM.ErekSTIQueryDuz_Esas_Tutar	.text:=DM.KynkSTIQueryDuz_Esas_Tutar	.text;
DM.ErekSTIQueryDuz_Tutar	.text:=DM.KynkSTIQueryDuz_Tutar	.text;
DM.ErekSTIQueryDuz_Mly_Yontemi	.text:=DM.KynkSTIQueryDuz_Mly_Yontemi	.text;
DM.ErekSTIQueryDuz_Mly_Tarihi_Mly_Tutar	.text:=DM.KynkSTIQueryDuz_Mly_Tarihi_Mly_Tutar	.text;
DM.ErekSTIQueryDuz_Mly_Satilan_Mal_Mly_Tutar	.text:=DM.KynkSTIQueryDuz_Mly_Satilan_Mal_Mly_Tutar	.text;
DM.ErekSTIQueryDuz_Mly_Mhs_Hesap_Kodu	.text:=DM.KynkSTIQueryDuz_Mly_Mhs_Hesap_Kodu	.text;
DM.ErekSTIQueryDuz_Mly_Mhs_Durumu	.text:=DM.KynkSTIQueryDuz_Mly_Mhs_Durumu	.text;
DM.ErekSTIQueryGuvenlikKod	.text:=DM.KynkSTIQueryGuvenlikKod	.text;
DM.ErekSTIQueryKaydeden	.text:=DM.KynkSTIQueryKaydeden	.text;
DM.ErekSTIQueryKayitTarih	.text:=DM.KynkSTIQueryKayitTarih	.text;
DM.ErekSTIQueryKayitSaat	.text:=DM.KynkSTIQueryKayitSaat	.text;
DM.ErekSTIQueryKayitKaynak	.text:=DM.KynkSTIQueryKayitKaynak	.text;
DM.ErekSTIQueryKayitSurum	.text:=DM.KynkSTIQueryKayitSurum	.text;
DM.ErekSTIQueryDegistiren	.text:='AUTO'; //DM.KynkSTIQueryDegistiren	.text;
DM.ErekSTIQueryDegisTarih	.text:=DM.KynkSTIQueryDegisTarih	.text;
DM.ErekSTIQueryDegisSaat	.text:=DM.KynkSTIQueryDegisSaat	.text;
DM.ErekSTIQueryDegisKaynak	.text:=DM.KynkSTIQueryDegisKaynak	.text;
DM.ErekSTIQueryDegisSurum	.text:=DM.KynkSTIQueryDegisSurum	.text;
DM.ErekSTIQueryCheckSum	.text:=DM.KynkSTIQueryCheckSum	.text;
DM.ErekSTIQuery.Post;
Görüşlerinizi bekliyorum arkadaşlar. :wink:
Saygılarımla
Teşekkür ederim
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Başa dön
Kullanıcı avatarı
sadettinpolat
Moderator
Mesajlar: 2131
Kayıt: 07 Ara 2003 02:51
Konum: Ankara
İletişim:
İletişim sadettinpolat

Mesaj gönderen sadettinpolat »

yukaridaki kodu su sekilde yazabilirsiniz.

Kod: Tümünü seç

while not dm.table2.eof do
begin
 dm.table1.insert;
  for i:=0 to dm.table1.field.count - 1 do
    dm.table1.field[i].variant := dm.table2.field[i].variant;
 dm.table1.post;
 dm.table2.next;
end;
yazim hatasi olabilir :)
En son sadettinpolat tarafından 14 Eyl 2005 04:20 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
"Sevmek, ne zaman vazgececegini bilmektir." dedi, bana.

---
http://sadettinpolat.blogspot.com/
Başa dön
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:
İletişim vkamadan

Mesaj gönderen vkamadan »

Merhaba,
Aşağıdaki gibi halledebilirsin,

Kod: Tümünü seç

var
i:integer;
begin
 DM.ErekSTIQuery.Append; 
 for i:=0 to DM.ErekSTIQuery.FieldCount-1 do     DMErekSTIQuery.Fields[i].Value:=DM.KynkSTIQuery.FieldByName(DMErekSTIQuery.Fields[i].FieldName).value;
DM.ErekSTIQuery.Post;
end;
Kolay gelsin.
Volkan KAMADAN
www.polisoft.com.tr
Başa dön
Ali Erdoğan
Kıdemli Üye
Mesajlar: 1026
Kayıt: 11 Şub 2005 02:12
Konum: İstanbul

Mesaj gönderen Ali Erdoğan »

Dostum sendeki iyi sabır bu kadar kod yazabiliyorsun ben bazen for begin yazmaya üşeniyorum :D
Başa dön
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Mesaj gönderen ender_arslanturk »

Ali Erdoğan yazdı:Dostum sendeki iyi sabır bu kadar kod yazabiliyorsun ben bazen for begin yazmaya üşeniyorum :D
+1 :D
Başa dön
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Mesaj gönderen pro_imaj »

@Ali Erdoğan Çaresizliklikten elden ne gelir. en iyi yolu bulana kadar bu yollarlada yapılıyor. senin üşendiğin kadar diilde zor oluyordu artık dayanamadım fikir alayım dedim. :D

@vkamadan ve @sadettinpolat hocam ikinizede çok teşekkür ederim.

@vkamadan

Kod: Tümünü seç

DM.ErekSTIQuery.Fields[i].Value:=DM.KynkSTIQuery.FieldByName(DM.ErekSTIQuery.Fields[i].FieldName).value; bu satırı tam olarak anlayamadım.
Birde ben mesele yukarıda aynı olan tablolardan bilgi attığım için hani böyle bişey sözkonusu olabilir ama baştan bir şey yaparsam yani atıyorum ben bir ara yazılım yaptım diyelim. Oradaki alanlar 10-15 tane oluyor. ama veriyi atacağım tablede 100-150 tane alan var böyle bir durum için ne önerirsiniz peki.

Saygılarımla.
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Başa dön
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Mesaj gönderen pro_imaj »

Merhaba,

@vkamadan hocam senin dediğin gibi yapıyorum ama bu seferde şöyle bir sorun oluyor.

timestamp diye bir alan var ben bu alana normalde bişey yazdırmıyorum çünkü ikili diye tabir edilen türde birde artan alan var bunlarda hata veriyor.

Saygılrımla
Teşekkür ederim
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Başa dön
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:
İletişim vkamadan

Mesaj gönderen vkamadan »

Merhaba ,
yukarıda vermiş olduğum kod bloğu , bire bir aynı olan tabloların bütün alanlarını bir birine aktartır, eğer bazı alanların aktarılmasını istemiyorsak şuna benzer bir deiğişiklik olayı çözecektir;

Kod: Tümünü seç

var
i:integer;
begin
 DM.ErekSTIQuery.Append;
 for i:=0 to DM.ErekSTIQuery.FieldCount-1 do     
begin
if DMErekSTIQuery.Fields[i].FieldName<>'AktarimYapılmasınıistemediğim alanadi' then
DMErekSTIQuery.Fields[i].Value:=DM.KynkSTIQuery.FieldByName(DMErekSTIQuery.Fields[i].FieldName).value;
end;
DM.ErekSTIQuery.Post;
end;
kolay gelsin.
Volkan KAMADAN
www.polisoft.com.tr
Başa dön
aLonE CoDeR
Kıdemli Üye
Mesajlar: 1223
Kayıt: 26 Nis 2005 04:08

Mesaj gönderen aLonE CoDeR »

Ben bir şeyi merak ettim, ara yazılım yaptığınıza göre bu kalıplaşmış muhtemelen muhasebe programlarından birisi..Böyle bir tablo yapısını hangi firma hazırlamış ya da benimsemiş kafama takıldı :roll:
Başa dön
Kullanıcı avatarı
lazio
Moderator
Mesajlar: 1527
Kayıt: 11 Tem 2003 04:55
Konum: İstanbul

Mesaj gönderen lazio »

stored procedure ile kayıt yapabilirsin. bölece yapman gereken sadece bir procedure e parametre geçirmek olur ve bu uzun insert bloğu veritabanı tarafında çalışmış olur :wink:
DeveloperToolKit

..::|YeşilMavi|::..
Başa dön
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Mesaj gönderen pro_imaj »

Merhaba,

@vkamadan hocam çok teşekkür ederim. belirtiğiniz şekilde uyarladım sorunsuz çalışıyor.


Yukarıda yazmıştım ama o sorunumada çözüm bulursam artık büyük vtlere kötü gözle bakmicam :)

Birde ben mesele yukarıda aynı olan tablolardan bilgi attığım için hani böyle bişey sözkonusu olabilir ama baştan bir şey yaparsam yani atıyorum ben bir ara yazılım yaptım diyelim. Oradaki alanlar 10-15 tane oluyor. ama veriyi atacağım tablede 100-150 tane alan var böyle bir durum için ne önerirsiniz peki.
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Başa dön
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Mesaj gönderen pro_imaj »

Merhaba,

@lazio hocam söylediğinize aynen katılıyor ama böyle bir yapı çok yanlış oluyor çünkü ben bu işi sadece ara yazılım için yaptığım için programlarda kurulum felan olduğu için hiç vt ile uğraşmak istemiyorum yani vtyi ben oluştursam ve kendi veri tabanımda bunları yapıyor olsam kesinlikle öyle yapardım ama işte ara yazılım yapmanın zorluklarından biri bu.


Herkeze tşk. ederim
İyi akşmalr
saygılarımla
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Başa dön
Cevapla

“MS SQL Server” sayfasına dön