Skip to main content

AccessTr.neT


TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz?

TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz?

#1
Arkadaşlar txt dosyasından Access e veri aktarmak istiyorum. bunu nası yapabilrim?Yani butona bastığımda txt dosyasını göstercem istediğim tabloya aktarma yapacak(tablo ve txt dosyasında stunlar aynı olcak şekilde)Fur
Son Düzenleme: 27/05/2009, 12:52, Düzenleyen: kayitliol.
Cevapla
#2
bende bu konuda çalıştım sanırım size faydalı olabilirim. isterseniz txt dosyanızı ekleyin örnek olarak hazırlayıp anlatayım.
Cevapla
#3
Aşağıdaki linkteki uygulamayı incele

https://accesstr.net/konu-veritabani-nes...aydet.html
Cevapla
#4
arkadaşlar teşekkür ederim ama asıl olayı söleyim.

ekteki gibi txt dosyam var. form üzerine gözat butonu ekleyip bu txt dosyasını seçmek istiyorum ve bunu

numara, ad ,soyad,

stunları olan bir tabloya aktarmak istiyorum..
.txt örnek.txt (Dosya Boyutu: 44 Bayt | İndirme Sayısı: 65)
Cevapla
#5
şimdilik sana ekteki örnek kodu veriyorum bu senin şu andaki verine göre ayarlanmış bir koddur sen geliştirdikçe öğrenirsin
Kod:
Private Sub Komut0_Click()
Dim Text
Dim rst As Recordset
Dim strSQL As String
     strSQL = "SELECT * FROM Tablo1"
    Set rst = CurrentDb.OpenRecordset(strSQL)
Open "C:\Documents and Settings\Administrator\Desktop\örnek.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, Text
    On Error Resume Next
       rst.AddNew
      rst("numara") = Trim(Mid(Text, 1, 3))
       rst("ad") = Trim(Mid(Text, 5, 5))
      rst.Update
      Loop
Close #1
End Sub

meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
#6
Sayın esrefigit'in kodlardaki Mid fonksiyonu üstteki eklentiye göre, ancak verilerin uzunluğu standart olamıyacağından, aralarında da boşluk ile ayırıldığını farzederek üstteki kodlarda kullanılan Mid fonksiyonu yerine Split fonksiyonu kullanılabilir.
Kod:
rst("numara") = Split(Text, " ")(0)
rst("ad") = Split(Text, " ")(1)
rst("soyad") = Split(Text, " ")(2[/quote])

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task