Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

kayitliol
kayitliol
Access Örnekleri ve Uygulamaları
10
6122

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

#1
kayitliol
Üye
kayitliol
Bul
Üye
Adı Soyadı:
Yaşı: 45
Konum: Adana
Ofis Versiyonu: Ofis 2003
Son Oturumu: 01/01/2022,13:07
Yorumları: 6
Konuları: 3
Kayıt Tarihi: 28/12/2008
Teşekkür Puanı: 0
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
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 29/06/2024,16:26
Yorumları: 1.300
Konuları: 107
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 13/11/2024,22:08
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Aşağıdaki linkteki uygulamayı incele

https://accesstr.net/konu-veritabani-nes...aydet.html
Cevapla
#4
kayitliol
Üye
kayitliol
Bul
Üye
Adı Soyadı:
Yaşı: 45
Konum: Adana
Ofis Versiyonu: Ofis 2003
Son Oturumu: 01/01/2022,13:07
Yorumları: 6
Konuları: 3
Kayıt Tarihi: 28/12/2008
Teşekkür Puanı: 0
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
esrefigit
Aktif Üye
esrefigit
Bul
Aktif Üye
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 01/03/2024,17:22
Yorumları: 599
Konuları: 59
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 364
ş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
maytas
Uzman
maytas
Bul
Uzman
Adı Soyadı:
Yaşı: 58
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 20/09/2022,13:21
Yorumları: 540
Konuları: 24
Kayıt Tarihi: 21/12/2008
Teşekkür Puanı: 178
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