(09/12/2017, 17:26)ozanakkaya yazdı: Hazırladığım örnek uygulama ektedir. Uygulamadaki kodları kendinize göre uyarlayabilirsiniz.
Ozan hocam ve arkadaşlar herkese merhabalar.En güncel hali ile hazırladığım kod ekte yer almakta.Dosyayı masaüstüne 'metin dosyaları ' ismi ile kaydetmek istiyorum ve ;
Sub Yazdir()
Dim Dosya As String, DSZ As Long, SrYp As QueryDef, Str
Dosya = "C:\Users\" & Environ("Onurcan") & "\Desktop\MetinDosyalari"
If Len(Dir(Dosya, vbDirectory)) = 0 Then MkDir Dosya
komutunu ekledim.Sorun burada mı emin değilim ama kod çalışmıyor.Sorun between komutunda diye düşünüyorum,yanlış kullanıyorum.121 tane sütun olduğu için el ile yazıldığında kod sayfası kabul etmiyor sığmıyor çünkü.Ben de between denedim ancak başaramadım...Kodu inceleyip hatayı nerede yaptığımı söyleyebilir misiniz?
Merhaba,
Kodu bu şekilde ayırırsanız kod çalışmaz. Kodun bütünlüğünü bozmamanız gerekli,
Yapılan işlemler;
1-) Alan1'deki veri sıralı olması için srg_test sorgusuna gsiram alanı eklendi.
2-) Masaüstünün dizininin bulunması için GetDesktop fonksiyonu eklendi.
3-) Kod içerisindeki insert into içeren sorgu kaldırıldı, yerine srg_ekleme adında sorgu eklendi,
4-) Belirlenen aktarım sayısından sonra artan verilerinde aktarılması için düzenleme yapıldı.
(27/12/2017, 05:59)ozanakkaya yazdı: Merhaba,
Kodu bu şekilde ayırırsanız kod çalışmaz. Kodun bütünlüğünü bozmamanız gerekli,
Yapılan işlemler;
1-) Alan1'deki veri sıralı olması için srg_test sorgusuna gsiram alanı eklendi.
2-) Masaüstünün dizininin bulunması için GetDesktop fonksiyonu eklendi.
3-) Kod içerisindeki insert into içeren sorgu kaldırıldı, yerine srg_ekleme adında sorgu eklendi,
4-) Belirlenen aktarım sayısından sonra artan verilerinde aktarılması için düzenleme yapıldı.
Ozan hocam merhabalar.Kodu çalıştırdım ellerinize sağlık gerçekten çok güzel bir çalışma olmuş.Ancak ufak bir problem var.Metin dosyaları kaydedilirken karmaşık ve belirli bir sıralama olmaksızın kaydediliyor.Aslında parametreler virgül ile ayrılarak düzenli bir şekilde kayıt yapılabiliyor.Ancak bu karmaşaya yol açan problemi bulamadım ve size her iki metin dosyasını da ekte gönderiyorum.Düzenli bir şekildek kaydettirmemiz mümkün olabilir mi?
İnceleyip olumlu/olumsuz bildirimde bulununuz.
(28/12/2017, 01:33)ozanakkaya yazdı: İnceleyip olumlu/olumsuz bildirimde bulununuz.
Hocam merhabalar.Gönderiyi indiremiyorum zip hata veriyor.