Dış Veri Tabanından Veri Çekerken İlerlemiyor Hata Veriyor

1 2 3 4
17/03/2020, 23:30

next

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.
17/03/2020, 23:40

berduş

ç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-...tarma.html
https://accesstr.net/konu-excelden-veri-...86523.html
18/03/2020, 00:08

next

(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-...tarma.html
https://accesstr.net/konu-excelden-veri-...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]"
18/03/2020, 00:23

berduş

"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-...tml?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ı'
18/03/2020, 17:28

next

merhaba datayı ekledım
18/03/2020, 18:07

berduş

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
1 2 3 4