N Kadar CSV Dosyasını Access İçine Atmak - Baskı Önizleme +- 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ığı: N Kadar CSV Dosyasını Access İçine Atmak (/konu-n-kadar-csv-dosyasini-access-icine-atmak.html) |
N Kadar CSV Dosyasını Access İçine Atmak - aliyuzen - 23/10/2020 Değerli Üstadlarım, Bir klasörüm var. Bu klasör içerisinde n kadar csv formatında Excel dosyası var. Access veritabanımda bir form olsa ve bir de browser - gözat penceresini çalıştıran bir buton olsa, bastığımda göz at penceresi açılsa, çoklu olarak Excel dosyalarını seçip OK butonuna bastığımda tüm Excel dosyaları Access içerisindeki bir tabloda toplanabilir mi? Ya da form üzerindeki bir buton olsa bastığımda browser açılsa tek tek Excel dosyalarını seçip içeri atıp append query yapabilir miyim? 64 bitte çalışan ve Browser (gözat penceresini ) açan kodu bulamadım. office sürümüm: office 365 Dosyaları sizinle ekte paylaştım. şimdilik bu üç Excel dosyasını - ama yarın 30 da olabilir- bir kerede bir tabloya append edebilmek için desteklerinizi rica ederim. Teşekkürler. Sağlıklı kalın. RE: N Kadar Excel Dosyasını Access İçine Atmak - feraz - 24/10/2020 (23/10/2020, 22:18)aliyuzen yazdı: browser - gözat penceresini çalıştıran bir buton olsa Merhaba alttaki gibi kod işinizi görmez mi? Denemedim lakin olacağını sanıyorum örnek açısından.Kodu internetten bulup ekledim. Heralde multiselect=true gibi bir özellikte vardı unuttum.
Alttaki kod heralde file için önceki klasör olması gerek.
Re: N Kadar Excel Dosyasını Access İçine Atmak - alicimri - 24/10/2020 1-İlk önce menüden Dışveri/Al/Metin Dosyası na tıklayın. 2-Gözat dan csv dosyalarınızdan birini seçin. 3-Açılan Metin Alma sihirbazında Sınırlanmışı seçip, ileriyi tıklayın. 4-"İlk Satır Alan Adlarını İçerir" onaylayıp, ileriyi tıklayın. 5-"Birincil Anahtar Olmasın" onaylayıp, ileriyi tıklayın. 6-Metin Alma Sihirbazında Sol altta bulunan "Gelişmiş" Düğmesine tıklayın. 7-Açılan İletişim kutusunda "Farklı Kaydet" düğmesine tıklayın. 8-Yine açılacak İletişim kutusuna herhangi bir isim yazıp "Tamam" düğmesini tıklayın 9-"Farklı Kaydet" Düğmesinin üstündeki "Tamam" düğmesine tıklayın. 10-"Son" düğmesine tıklayın. 11-"Kapat" düğmesini tıklayın. Yukardaki tüm işlemleri 8. maddede belirtilen işlem içindi. Bir form oluşturun, formda 1 adet Liste kutusu, bir adette düğme olsun. Liste kutusunun özelliklerinde "Satır Kaynak Türü" = Değer "Çoklu Seçim" = Basit olarak ayarlayın. Formun Kod Modülüne aşağıdaki kodlarını kendinize uyarlayarak yapıştırın Kod:
Private Sub Form_Load() Re: N Kadar Excel Dosyasını Access İçine Atmak - aliyuzen - 24/10/2020 Üstadlarım, Desteğiniz ile veritabanını bir yere kadar getirdim. Öncelikle, denemek için ekteki dosyaları masaüstünde bir klasöre çıkartabilir misiniz? Şimdi de, Access dosyasını çalıştırdığınızda Form1 isimli formu çalıştırınız. Talebim şu şekilde; 1. Yol: Aynı klasörde olduğu için listbox a csv dosyaları şu an geliyor. Tüm bu csv dosyalarını seçsek ve form üzerinde bir buton oluştursak ve bastığımda da bu csv dosyaları bir kerede bir tabloya append edilebilir mi? 2. Yol: Yukarıda bahsettiğim konudan bağımsız olarak sadece command2 butonunu tıkladığımda gözat penceresi şu anda geliyor. Bu pencereden AYNI ANDA tüm csv dosyalarını seçip bir tabloya append edebilir miyim? Bu iki yoldan birini yapabilir miyiz? Beni aşan bir kod yapısı var ve ben ne yazık ki bu konuda zayıfım. Değerli vaktinizi ayırıp destek olabilirseniz çok sevinirm. Teşekkürler. RE: N Kadar Excel Dosyasını Access İçine Atmak - berduş - 24/10/2020 yalnız eklediğiniz CSV dosyalarında 3 sorun var 1. alanlar ; ile ayrılmış oysa TransferText metodu sadece virgül "," ile ayrılmış alanları tanıyor bu nedenle de sadece 1 alan görüyor 2. ; ile , değiştirip almaya çalıştığımızda bu sefer de Plugin ID alanını Plugin ID olarak, Dosya Adı alanını da Dosya Adı olarak alıyor bu nedenle de ALL Excel File tablosuna ekleyemiyor 3. tablonuzda tüm alanlar Dosya Adı dışında sayı türünde oysa csv dosyanızda hem sayısal hem de metin var aşağıdaki kod sadece seçtiğiniz dosyaların isimlerini ekrana yazmaya yarar yani kod sadece dosya seçmek için
RE: N Kadar Excel Dosyasını Access İçine Atmak - berduş - 24/10/2020 aşağıdaki dosya önce CSVAktar tanım dosyası oluşturularak yapılan bir çalışmadır, tüm alanlar kısa metin türünde ayarlanmıştır. dilerim işinize yarar Buton kodu
|