AccessTr.neT

Tam Versiyon: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
bende bu konuda çalıştım sanırım size faydalı olabilirim. isterseniz txt dosyanızı ekleyin örnek olarak hazırlayıp anlatayım.
Aşağıdaki linkteki uygulamayı incele

https://accesstr.net/konu-veritabani-nes...aydet.html
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..
ş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
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])
Sayfalar: 1 2