Excelden Veri Alma Ve Kaydı Güncelleme - 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ığı: Excelden Veri Alma Ve Kaydı Güncelleme (/konu-excelden-veri-alma-ve-kaydi-guncelleme.html) |
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 01/02/2020 Rica ederim. Satır bulmayıda ekledim. sSql = "select [KOD],[AD],[YAÞ] from [Sayfa1$B3:E] where [KOD] Is Not Null" ' Yukarıdaki exceldeki kod,ad ve yaş sütundaki verileri hafızaya (recordset) alıyor. sSqlCount = "select count(*) from [Sayfa1$B3] " burdaki count ile satır sayısı bulunur. Dikkat etmeniz gerek mesela exceldeki kod yani B sütunundaki veriler accessteki tablonun kod alanındada varsa hepsi güncellenir. Yani Access kod alanında 1.satırda A1 ,10.satırdada A1 varsa ikiside güncellenir. Birde rs.LockType = adLockPessimistic yerine rs.LockType = adLockOptimistic ekledim doğrusu bu olmalı gibi karıştırıyorum onlar sorun olmuyor her ikisindede. Kodları inceleyebilirsiniz.
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 01/02/2020 Eğer başlık olasın derseniz ilgili kodları alttaki ile değiştirin. Başlık olayı eklenmezse 65536 dan sonrası için hata veriyor biliyorum. Hdr=Yes yerine Hdr=No ve [F1],[F2] gibi oldu ayrıyeten 3 olanlarda 4 ile değiştirildi.
Kod:
sSql = "select [F1],[F2],[F3] from [Sayfa1$B4:D] where [F1] Is Not Null" ' Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 01/02/2020 (01/02/2020, 14:37)feraz yazdı: Yani Access kod alanında 1.satırda A1 ,10.satırdada A1 varsa ikiside güncellenir. Yukarıdaki 13.cü mesajda yazdığımı anladıysanız eğer excelde findnext komutu vardı normal Vba koduyla onunla karşılaştırma yapılıyor. Daha Ado ile findnext olayını hiç kullnmadım. Sonra fırsat bulunca birde onunla denerim. Access teki Tablo1deki kod sütunu benzersizse gerek yok zaten. Yinede lazım olabilir diye uğraşırım sonra. Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - yahyamacit - 01/02/2020 Ne diyeceğimi bilemedim. Çok teşekkür ediyorum. Forma progressbar koyup veri alım ilerleme durumunuda görebilsek Harika olurdu?? Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 01/02/2020 Rica ederim Progress olayına bugün akşam bakarım zor değil bildiğim kadarıyla.Tabii accesste hiç denemedim. Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - yahyamacit - 01/02/2020 Minnettar olurum. Çok teşekkür ederim. |