TXT dosyasından otomatik olarak access e veri aktara bilirmiyiz?
Tarih
27/05/2009 12:42
Konu Sahibi
kayitliol
Yorumlar
10
Okunma
3632
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kayitliol
Üye
Kullanici Avatari
Üye
6
3
28/12/2008
0
Adana
Ofis 2003
28/05/2014,11:18
Sponsor Reklam
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
Cevapla

kadirdursun

Kullanici Avatari
Özel Üye
K.... D....
1.263
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
Dün,18:13
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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.176
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Sponsor Reklam
Aşağıdaki linkteki uygulamayı incele

http://www.accesstr.net/konu-veritabani-...aydet.html
Cevapla

kayitliol
Üye
Kullanici Avatari
Üye
6
3
28/12/2008
0
Adana
Ofis 2003
28/05/2014,11:18
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..


Ek Dosyalar
.txt   örnek.txt (Dosya Boyutu: 44 Bayt / İndirme Sayısı: 57)
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
06/11/2015,13:38
Sponsor Reklam
şimdilik sana ekteki örnek kodu veriyorum bu senin şu andaki verine göre ayarlanmış bir koddur sen geliştirdikçe öğrenirsin

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Örnek Uygulama mehami 1 400 14/04/2016, 23:44 ozanakkaya
  Merkez Bankasından Kurları Listeye Online Olarak Alma esrefigit 20 6.537 29/01/2016, 10:18 karaayhan
  formda arama yada rehber olarak kullanabileceğiniz bir örnek kayaaltin 0 772 08/06/2015, 14:23 kayaaltin
  Metin Kutularında Otomatik Tamamlama esrefigit 37 14.814 28/01/2015, 13:02 atoz112
  Access Raporları Pdf Olarak Görüntüleme mehmetdemiral 58 21.361 29/09/2014, 22:56 mehmetdemiral


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya