Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
27/05/2009 12:42
Konu Sahibi
kayitliol
Yorumlar
10
Okunma
4438
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

kayitliol

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



Kullanici Avatari

kadirdursun

Aktif Üye*
KA.... DU....
 38
 1.291
 104
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
bende bu konuda çalıştım sanırım size faydalı olabilirim. isterseniz txt dosyanızı ekleyin örnek olarak hazırlayıp anlatayım.



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.501
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,12:40
Aşağıdaki linkteki uygulamayı incele

https://www.accesstr.net/konu-veritabani...aydet.html


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

kayitliol

Üye
 39
 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ı: 61)

Kullanici Avatari

esrefigit

Aktif Üye
 Belirtilmemiş
 599
 59
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
ş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

Kullanici Avatari

maytas

Onursal Üye
 52
 545
 24
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
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])




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 7 5.018 08/04/2018, 20:58
Son Yorum: Mali06
  Form Üzerindeki Buton İle Otomatik Mail Gönderme fguveli 1 700 15/07/2017, 19:32
Son Yorum: fguveli
  Silinen Otomatik Sayının yerini doldurma mehmetdemiral 34 11.111 08/06/2017, 17:50
Son Yorum: access acemisi
  Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Örnek Uygulama mehami 1 924 14/04/2016, 23:44
Son Yorum: ozanakkaya
  Merkez Bankasından Kurları Listeye Online Olarak Alma esrefigit 20 8.204 29/01/2016, 10:18
Son Yorum: karaayhan

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444