+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / (/konu-tekst-dosyanin-icinde-datalari-ms-access-aktarma-txt-to-ms-access.html)
RE: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / - berduş - 24/07/2022
(24/07/2022, 22:28)hakkih yazdı: Kare 1 tablosunda veriler yatay tek satır çok sütünbunun anlamı tablonuzdaki sütun sayısının değişebileceği mi yoksa
tekst verisinde her zaman eşit sayıda veri olacağı mı?
RE: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / - hakkih - 25/07/2022
tekst veri olacak karakter sayısı iki sağ slaç arasında sayı olacak.
kare 1 tekst dosyasından aktardığımda örnekleme öyle oldu
kare 1 sütün sayısı değişebilir saydırmak lazım
10 - 25 sütün arasında değişebilir
bazı durumda 10 aktarma bazı 20 aktarma bazen 25 lik olabilir
------------
RE: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / - hakkih - 25/07/2022
tekrar merhaba
şekillenmiş olan çalışma kod 2 Access uygulaması ektedir.
Kısacası;
KODE_TOP_Form1
kod top alanında yer alan bilgiler
koli No= KL-010275
Açıklama = Smps beslemeli Str2
Tarih :04.25.2022
ve
kod:100204865
ve ek olarak personel
bu bilgiler
KARE_2 tablosunun içine kayıt
KARE_2 tablonun içinde kayıt var olması gereken şekilde
çalışma kod 2 örnek ektedir
Teşekkürler
RE: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / - berduş - 26/07/2022
çalışma kod 2 için formdak aktarma kodu
- KL-010275
- /Smps beslemeli Str20
- /04.25.2022
- /100204865
- /100204848
- ...
- ...
veri sıralamasının sabit olduğu varsayılmıştır
ilk / işaretinden önceki alan KOLI_DATA = KL-010275
ikinci / işaretinden önceki alan Açıklma = /Smps beslemeli Str20
üçüncü / işaretinden önceki alan KL_TARİH = /04.25.2022
geriye kalanlar ise eğer 100 ile başlıyorsa KOD_K1 = /100204865
Private Sub Komut1_Click()
DzTmp = Split(Me.KODE_TOP, "/")
xKoliData = DzTmp(0)
xAciklama = DzTmp(1)
xKlTarih = CLng(CDate(DzTmp(2)))
xPersonel = Me.PERSONEL
For x = 3 To UBound(DzTmp)
xKodK1 = DzTmp(x)
If Left(xKodK1, 3) = 100 Then
xSQL = "INSERT INTO KARE_2 ( KOLI_DATA, Açıklma, KOD_K1, PERSONEL,KL_TARİH) VALUES ('" & _
xKoliData & "','" & xAciklama & "','" & xKodK1 & "','" & xPersonel & "'," & xKlTarih & ");"
CurrentDb.Execute (xSQL)
End If
Next x
End SubRE: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / - berduş - 26/07/2022
açıkçası yaptığınız her açıklama, eklenen her örnek kafamı daha çok karıştırıyor ve tam olarak ne yapılmasını istediğinizi henüz anlayabilmiş değilim.
mesela neden 2 farklı dosya eklediniz?
1. dosyada ne yapmaya çalışıyorsunuz, 2. dosyada ne?
eğer amacınız txt dosyasını seçip içindeki verilerin KARE_2 tablosuna aktarılmasıysa KODE_TOP tablosunun amacı ne?
derli toplu şekilde amacınızı ve izleyeceğiniz süreci anlatabilirseniz daha çok yardımcı olabiliriz.
RE: Tekst Dosyanın İçinde Dataları Ms Access Aktarma / *.txt To Ms Access / - hakkih - 26/07/2022
evet biraz karışık oldu
bu işe başlamadan önce kafamda tam olarak oturmuş bir şey yoktu / nasıl olacak ne olacak net değildi
aynı durum bende de vardı
göndermiş olduğunuz kodlar için teşekkür ederim
------------------
son halini ek dosya olarak ilave etim
KARE_QR formda takıldı
kodları daha önce çalışmış olduğum bir projeden aldım ama bir yerde yanlış yaptım galiba
QR CODE Üret ve Tüm Kayıtlar düğümeler istediğim gibi çalışmadı.
kodlarla ilgili bu kısımda yardım alabilir miyim
son halini bitirdiğimde sizinle paylaşırım
çok değişik bir proje ama işe yarayacak diğer üyelerimiz de kullanabilir