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
Txt dosyasından accsess tablosuna veri alma vb kodu
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
Alıntıdır
Öncelikle İndirdiğiniz dosyası C dizinine atınız oradan çalıştırınız.
Geliştirmek size kalmış Kolay gelsin
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
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sayın Puletin
Yol gösterdiğniz için teşekkür ederim.
Elinize sağlık
Yol gösterdiğniz için teşekkür ederim.
Elinize sağlık
Sorunuz çözüme ulaştımı ?
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Konuyu Okuyanlar: 1 Ziyaretçi