27/05/2009, 12:42
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)
Sayfalar: 1 2
27/05/2009, 13:08
bende bu konuda çalıştım sanırım size faydalı olabilirim. isterseniz txt dosyanızı ekleyin örnek olarak hazırlayıp anlatayım.
27/05/2009, 20:05
23/08/2009, 14:52
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..
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..
23/08/2009, 17:27
ş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 Sub23/08/2009, 17:54
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