Txt dosyasından accsess tablosuna veri alma vb kodu
Tarih
13/07/2011 19:57
Konu Sahibi
ucloy
Yorumlar
3
Okunma
2122
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


C: \ GELEN.txt dosyasından ki sıralı veri olan bir dosya

Örnek olarak txt dosyası şöyle olsun

1111111122222222333
6666666677777777888 “
sıra 8 8 3 gibi

Bu txt deki bilgileri
C:\ deneme.mbd içindeki ANA_TABLO adlı tablonun alanlara

ALAN_1 e Txt de dosyasındaki ilk 8 karakteri
ALAN_2 ye Txt de dosyasındaki 9 ile 17 arasındaki karakteri
ALAN_3 e Txt de dosyasındaki ilk 18- 20 arasındaki karakteri

Aktarabilmek için nasıl bir kod yazmalıyım Accsess de yardımlarınız ile yaptım. VB de çok yeniyim bu ilk çalışmam olacak
Tabii başlangıçta ANA_TABLO tablosundaki eski verileri silmek gerekiyor

Yardımlarınız için teşekkür ederim.

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


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Sizin isteğinizi bir nebze karşılayacak birşeyler ayarladım

Öncelikle İndirdiğiniz dosyası C dizinine atınız oradan çalıştırınız.
Geliştirmek size kalmış 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub TxtToAccess()
Dim i As Integer, dosya As Variant, txtdizin As String, kayit1 As String
txtdizin = "C:\TXTToAccess" 'Text Dosyalarının Olduğu Konum
Dim conn As Object
Dim RsTxt As Object
Set conn = CreateObject("ADODB.Connection")
        With conn
            .Provider = "Microsoft.JET.OLEDB.4.0"
            .Open txtdizin & "\TxtToAccess.mdb" ' Veri Tabanı Olduğu Dizn
        End With
    
            Set RsTxt = CreateObject("ADODB.RECORDSET")
            RsTxt.Open "SELECT * FROM TxtToAccess", conn, 1, 3

    ChDir (txtdizin) ' Text Dosyalarının Olduğu Konum
    dosya = Dir("*.txt")
While dosya <> ""
    Open txtdizin & "\" & dosya For Input As 1
        Do While Not EOF(1)
            Line Input #1, kayit1
            If kayit1 <> Empty Then
            bolstr = ""
            bolstr = Split(kayit1, ";")
            x = 0
            RsTxt.AddNew
                    For x = 0 To UBound(bolstr)
                        RsTxt.Fields(x + 1) = bolstr(x)
                    Next x
                RsTxt.Update
            End If
        Loop
    Close #1
    
    dosya = Dir
Wend
RsTxt.Close
            Set RsTxt = Nothing
            conn.Close
            Set conn = Nothing
End Sub


Alıntıdır



Ek Dosyalar
.rar   TXTToAccess.rar (Dosya Boyutu: 25,01 KB / İndirme Sayısı: 36)
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
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 Puletin

Yol gösterdiğniz için teşekkür ederim.
Elinize sağlık

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


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
Sorunuz çözüme ulaştımı ?
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB6 ListView'e Accessten Veri Alma Sorunu alican60 4 2.354 12/03/2014, 11:05 ogulcan92
Çözüldü Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. oztuncla 9 3.370 01/06/2013, 02:33 drummers
Çözüldü exe kodu görmek bohemya2009 3 2.471 10/02/2012, 12:51 exam
Çözüldü Visucal Basic Koşullu (Filtreleme) Rapor Alma |By|KiDnArUt| 2 2.603 17/12/2011, 01:02 mcmaho
Çözüldü VB 6 Girilen Tarih İle Date Kontroluna Göre Rapor Alma |By|KiDnArUt| 6 3.419 24/05/2011, 18:06 |By|KiDnArUt|


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