+- 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ığı: Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor (/konu-dis-veri-tabanindan-veri-cekerken-ilerlemiyor-hata-veriyor.html)
Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor - next - 17/03/2020
Merhaba, bir sorum olacaktı.
ben Access verileri Excel ile accesse bağlantı yaparak aktarıyorum. aktarım yaparken aşağıdaki kodu kullanıyorum.
Dim mesaj
mesaj = MsgBox("Bu yapacağınız İşlem Geri Alınamaz!!! Tablolar Üzerinde Değişiklik Yapacaktır!!! Çıkmak İçin Hayırı Tıklayınız?", vbCritical + vbYesNoCancel)
If mesaj = vbYes Then
CurrentDb.Execute "Delete From TBL_Police"
CurrentDb.Execute "ALTER TABLE TBL_Police ALTER Column ID COUNTER(1,1)"
CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri] SELECT Police.[SIG_ETTIREN_AD] FROM [Police]"
MsgBox "Tablonunuza Güncel Verileriniz Eklenmiştir!!!", vbInformation
ElseIf mesaj = vbNo Then
DoCmd.Close
End If
hem Access hızlı olması hemde verilerimin zarar görmemesi için tablo veri tabanımı veritabanı bölücü ile böldüm. Şimdi yukardaki komutum çalışmıyor nasıl cözeceğimi iki gündür arıyorum fakat çözüm bulamadım yardımlarınızı bekliyorum. şimdiden teşekkür ederim.
Cvp: Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor - berduş - 17/03/2020
çalışmanızı eklerseniz yardımcı olmaya çalışırız
ama aşağıdaki bağlantılar da işinize yarayabilir
https://accesstr.net/konu-excelden-veri-alma-excel-sayfasini-ice-aktarma.html
https://accesstr.net/konu-excelden-veri-alma--86523.html
Cvp: Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor - next - 18/03/2020
(17/03/2020, 23:40)berduş yazdı: çalışmanızı eklerseniz yardımcı olmaya çalışırız
ama aşağıdaki bağlantılar da işinize yarayabilir
https://accesstr.net/konu-excelden-veri-alma-excel-sayfasini-ice-aktarma.html
https://accesstr.net/konu-excelden-veri-alma--86523.html
boyutu çok büyük yükleyemiyorum.
aşağıdaki komuttun basına dışardaki veritabanını göstermem gerekli
bağlı tablo olduğu için içeri aktarım yapmıyor. currentdb.excutute başına ne yazmalıyım ki
CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri] SELECT Police.[SIG_ETTIREN_AD] FROM [Police]"
Cvp: Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor - berduş - 18/03/2020
"INSERT INTO komutu bağlı tabloda sorun çıkarmaması gerek
belirttiğim bağlantıdaki dosyayı indirip denedim
tablo bağlı da olsa yerel de kayıt ekleme ve güncellemede sorun çıkarmıyor
https://accesstr.net/konu-excelden-veri-alma--86523.html?page=8 bağlantısındaki dosya da insert into kullanıyor
bahsettiğiniz sorun bağlı tablodan ziyade bağlı olmayan harici veritabanına eklemeye çalışırsanız görülebilir o durumda dış veritabanına kayıt ekleme bağlantısı
işinize yarayabilir
INSERT INTO TableName ( Field1, Field2, ...) In 'tamyoluveadı'Cvp: Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor - next - 18/03/2020
merhaba datayı ekledım
Cvp: Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor - berduş - 18/03/2020
aşağıdaki kodu dener misiniz
adres kısmına dikkat edin
Dim ADO_CN As Object
Set ADO_CN = CreateObject("Adodb.Connection")
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & dosyaYoluveAdi & ";"
ADO_CN.Open
Dim mesaj
mesaj = MsgBox("Bu yapacağınız İşlem Geri Alınamaz!!! Tablolar Üzerinde Değişiklik Yapacaktır!!! Çıkmak İçin Hayırı Tıklayınız?", vbCritical + vbYesNoCancel)
If mesaj = vbYes Then
CurrentDb.Execute "Delete From TBL_Police"
ADO_CN.Execute "ALTER TABLE TBL_Police ALTER Column ID COUNTER(1,1)"
CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri],[txt_PoliceNo],[txt_Muta],[txt_AcenteKod],[txt_SigortaliTCKVKN],[txt_SigortaEttirenTCKVKN],[txt_TanzimTarihi],[txt_PoliceBasTarihi],[txt_PoliceBitisTarihi],[txt_SaticiSicil],[txt_PortfoyYoneticisi],[txt_YeniPoliceNo],[txt_EskiPoliceNo],[txt_RiskBedeli],[txt_BrutPrim],[txt_Komisyon],[txt_DainiMurtehin],[txt_TarifeAdi],[txt_TarifeKodu],[txt_Uavt],[txt_Durum],[txt_Surec]) SELECT Police.[SIG_ETTIREN_AD], Police.[CARI_POL_NO],Police.[MBB],Police.[ACENTA_NO],Police.[SIG_TCK_VKN],Police.[SIG_ETT_TCK_VKN],Police.[TANZIM_TARIH],Police.[BASLAMA_TARIH],Police.[BITIS_TARIH],Police.[SATICI_SICIL_NO],Police.[PORTFÖY YÖN#],Police.[YENI_POL_NO],Police.[ESKI_POL_NO],Police.[POL_BEDEL],Police.[BRUT_PRIM],Police.[VERILEN_KOM],Police.[DAINI_SUBE],Police.[TARIFE_AD],Police.[TARIFE_KOD],Police.[UAVT],Police.[durum],Police.[surec] FROM [Police]"
MsgBox "Poliçe Tablonunuza Güncel Verileriniz Eklenmiştir!!!", vbInformation
ElseIf mesaj = vbNo Then
DoCmd.Close
End If