Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
20/06/2011 12:26
Konu Sahibi
ucloy
Yorumlar
6
Okunma
2160
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.032
05/11/2008
KONYA
Ofis 2010
18/09/2017,01:08
Çö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.032
05/11/2008
KONYA
Ofis 2010
18/09/2017,01:08
Çö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
Çözüldü form üzerinde filtre ve sorgu bazk 17 9.380 07/09/2017, 09:08 alperen2006
Çözüldü Seçili Dönemi Pdf Aktarma paseidon19 6 228 04/09/2017, 11:27 ozanakkaya
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 335 21/08/2017, 12:04 direnist
Çözüldü Üst Formdan Alt Forma Veri Aktarma teo81a 2 127 21/08/2017, 08:45 teo81a
Çözüldü Sorgu Kriteri metin02 3 187 21/08/2017, 00:11 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.