Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

next
next
Access Cevaplanmış Soruları
22
1249

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

Çözüldü #1
next
Üye
next
Bul
Üye
Adı Soyadı: Ne.... Şe....
Konum:
Ofis Versiyonu: Ofis 2013 Tr. 32 Bit
Son Oturumu: 19/02/2021,15:15
Yorumları: 20
Konuları: 3
Kayıt Tarihi: 11/12/2014
Rep Puanı: 0
Merhaba, bir sorum olacaktı.
ben Access verileri Excel ile accesse  bağlantı yaparak aktarıyorum. aktarım yaparken aşağıdaki kodu kullanıyorum.
SQL Code 
 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.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Yorumları: 5.891
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 734
ç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
Cevapla
#3
next
Üye
next
Bul
Üye
Adı Soyadı: Ne.... Şe....
Konum:
Ofis Versiyonu: Ofis 2013 Tr. 32 Bit
Son Oturumu: 19/02/2021,15:15
Yorumları: 20
Konuları: 3
Kayıt Tarihi: 11/12/2014
Rep Puanı: 0
(17/03/2020 23:40)berduş Adlı Kullanıcıdan Alıntı: ç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 Img-cray
CurrentDb.Execute "INSERT INTO TBL_Police ( [txt_Musteri] SELECT Police.[SIG_ETTIREN_AD] FROM [Police]"
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Yorumları: 5.891
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 734
"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
Visual Basic Code 
 INSERT INTO TableName ( Field1, Field2, ...) In 'tamyoluveadı'
Cevapla
#5
next
Üye
next
Bul
Üye
Adı Soyadı: Ne.... Şe....
Konum:
Ofis Versiyonu: Ofis 2013 Tr. 32 Bit
Son Oturumu: 19/02/2021,15:15
Yorumları: 20
Konuları: 3
Kayıt Tarihi: 11/12/2014
Rep Puanı: 0
merhaba datayı ekledım
.rar DataBase.rar (Dosya Boyutu: 703,36 KB | İndirme Sayısı: 4)
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Yorumları: 5.891
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 734
aşağıdaki kodu dener misiniz
adres kısmına dikkat edin
Visual Basic Code 
 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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da