Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme ek
Tarih
20/06/2011 12:26
Konu Sahibi
ucloy
Yorumlar
6
Okunma
1814
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
Herkese Merhaba

Sorgu dan txt dosyasına veri aktarma ve farklı ad ile kaydetme sorunumu
Daha önce Sayın Kur@l hocam sorunumu cözmüştü
txt ye aktarılan kayıt sayısını da görmek istiyorum nasıl bir ek yapılmalı
ben uğraştım ama başaramadım.

Yardımlarınız için teşekkürler



Ek Dosyalar
.zip   KUR@L _TXT_YE_YOLLAMA_03.zip (Dosya Boyutu: 26,79 KB / İndirme Sayısı: 11)
ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
Sayın ucloy;
Eklediğiniz örnek sizin için yaptığım çalışan nihayi örnek değil. Ancak yaptığımız nihayi örneğe aşağıda yeni ekledim dediğim alanları o nihayi örneğe ilave ederseniz probleminiz çözülmüş olur. Ayrıca dikkatli incelerseniz sayac mantığınıda öğrenmiş olursunuz.
Kolay gelsin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim rs_kural As ADODB.Recordset
Set rs_kural = New ADODB.Recordset
 Dim sayac As Long              'YENİ EKLEDİM
rs_kural.Open "select * from 02_TXT_CEVİR_SON_HALI", CurrentProject.Connection, dbOpenDynaset, adLockOptimistic
Dim fs, dosyam_AccessTR
Set fs = CreateObject("Scripting.FileSystemObject")
Set dosyam_AccessTR = fs.CreateTextFile("C:\" & Me.Metin1.Value & ".TXT", True)
sayac = 0             'YENİ EKLEDİM
 
Do Until rs_kural.EOF = True
 sayac = sayac + 1             'YENİ EKLEDİM
dosyam_AccessTR.writeline (rs_kural.Fields("txt_01") & rs_kural.Fields("txt_03") & rs_kural.Fields("txt_03"))
DoEvents
 
rs_kural.MoveNext
 
Loop
rs_kural.Close
Set rs_kural = Nothing
Me.Metin5.Value = sayac           'HEM METİN5 ALANININ HEM BU SATIRI YENİ EKLEDİM.
MsgBox "İşlem Tamamlanmıştır. Dosyanız " & "C:\" & Me.Metin1.Value & ".TXT Konumundadır"
dosyam_AccessTR.Close

Cevapla


ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
Merhaba Sayın Kur@l hocam
Evet ben yanlış eki koymuşum ama siz doğru olanı yapmışşsınız hemen deneyecegim
ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
Sayın Kur@l Hocam

Me.Metin5.Value
Me.Metin1.Value olarak değiştirdim tamadir.
Elinize sağlık. Teşekkür ederim

ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ucloy
Aktif Üye
Kullanici Avatari
Aktif Üye
95
10/10/2009
15
Kocaeli
Ofis XP
29/04/2016,12:54
Çözüldü 
Bu sefer de dosya adı msj ekranına
dosya ismi yerine kayıt sayısını yazıyor
ucloy, 10-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
Sayın ucloy;
Forma Yeni bir metin kutusu ekleyin ve o metin kutusuna sayac değişkenini yazdırın.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tablomu hangi sorgu rapor kullanıyor atyaty 5 201 29/11/2016, 14:14 atyaty
  Ayrı butonlardaki farklı işlevleri tek buton ile gerçekleştirmek murat dikme 9 338 20/11/2016, 16:06 murat dikme
  formda farklı kriterde toplama access acemisi 3 123 06/11/2016, 12:59 atoz112
  Seçime göre Excelle veri aktarma. metbal 5 140 06/11/2016, 12:56 atoz112
  Rapor kaydetme uyarısı m_demir 7 203 04/11/2016, 08:28 m_demir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya