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
1875
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ü 
Sponsor Reklam
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.031
05/11/2008
KONYA
Ofis 2010
13/02/2017,14:56
Çö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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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.031
05/11/2008
KONYA
Ofis 2010
13/02/2017,14:56
Çö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
  tabloya veri kaydetme hatası murat dikme 3 54 17/02/2017, 19:14 murat dikme
  Listeden Forma Bilgi Aktarma U.ALTUN 25 967 13/02/2017, 14:13 atoz112
  excele aktarma, sutun başları ve hücre ayarları hknct 3 60 11/02/2017, 21:17 hknct
  formdaki bilgileri rapora aktarma murat dikme 4 61 10/02/2017, 20:54 murat dikme
  Verileri Excele Aktarma Hatası hknct 7 94 09/02/2017, 12:33 atoz112


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