+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? (/konu-txt-dosyasindan-otomatik-olarak-access-e-veri-aktara-bilirmiyiz.html)
Sayfalar:
1
2
TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? - kayitliol - 27/05/2009
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)
Cvp: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? - kadirdursun - 27/05/2009
bende bu konuda çalıştım sanırım size faydalı olabilirim. isterseniz txt dosyanızı ekleyin örnek olarak hazırlayıp anlatayım.
Cvp: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? - ozanakkaya - 27/05/2009
Aşağıdaki linkteki uygulamayı incele
https://accesstr.net/konu-veritabani-nesnelerini-txt-olarak-kaydet.html
Cvp: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? - kayitliol - 23/08/2009
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..
Cvp: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? - esrefigit - 23/08/2009
ş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 SubCvp: TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz? - maytas - 23/08/2009
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])