Skip to main content

AccessTr.neT

Kayıt Ol

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

Access'den Excel'e Farklı Tablolardan Veri Aktarma Sorunu

karacaayt
karacaayt
Excel Cevaplanmış Soruları
8
875

Access'den Excel'e Farklı Tablolardan Veri Aktarma Sorunu

Çözüldü #1
karacaayt
Üye
karacaayt
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum:
Ofis Versiyonu:
Son Oturumu: 15/10/2021,17:27
Yorumları: 23
Konuları: 6
Kayıt Tarihi: 08/09/2021
Teşekkür Puanı: 0
Arkadaşlar Excel'den Access'in bir veri tabanına bağlanıp veri çekebiliyorum ama aynı kodu kopyalayım mevut kodun altına yapıştırarak (aşağıdaki kodla) aynı anda iki veri tabanından veri çekmeye çalışıtığımda hata veriyor. Sorun nerededir, yardımcı olursanız sevinirim. İlgili Access ve Excel dosyaları da ektedir.  

Kod:
Private Sub CommandButton1_Click()

Dim SQL As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection

SQL = "SELECT * FROM Sorgu1 WHERE Ad = 'Fatih'"


Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\Örnek.accdb;"
  
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1 ' güncelleme yapabilmek için 1,3 0lmalı yada  adOpenKeyset, adLockOptimistic

Sheets("Sayfa1").Range("A4") = ADO_RS.Fields("Ad")



son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing


Dim SQL As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection

SQL = "SELECT * FROM Sorgu2 WHERE Ad = 'Nur'"


Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\Örnek.accdb;"
  
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1 ' güncelleme yapabilmek için 1,3 0lmalı yada  adOpenKeyset, adLockOptimistic

Sheets("Sayfa1").Range("A5") = ADO_RS.Fields("Ad")



son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing


End Sub
.rar Deneme.rar (Dosya Boyutu: 1,05 MB | İndirme Sayısı: 6)
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:21
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051 
Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection
bu tanımlar 2 defa yapıldığı için hata veriyor olabilir
bir prosedürde her tanımlayıcı 1 defa kullanılır o nedenle tekrar aynı adı veremezsiniz
2. yazdığınız yerdeki kodları bu 3 satırı silerek dener misiniz?
şimdi fark ettim son: da 2 defa kullanılmış galiba
Cevapla
#3
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:21
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
buradaki amacınızı tam olarak anlayamadım
sadece denememi yapıyorsunuz?
Cevapla
#4
karacaayt
Üye
karacaayt
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum:
Ofis Versiyonu:
Son Oturumu: 15/10/2021,17:27
Yorumları: 23
Konuları: 6
Kayıt Tarihi: 08/09/2021
Teşekkür Puanı: 0
Bu dosya tamamen örnek amaçlı, asıl proje şirkete ait bilgiler içerdiği için paylaşmam problem olabilir. Asıl amacım Excelde dashboard gibi bir bilgi sayfası oluşturmak. Bunun için de iki üç veri tabanından veri çekmem gerekiyor. O nedenle bu konuyu açtım. Cevabınız için çok teşekkür ederim, silince çalıştı.
Cevapla
#5
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:21
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
Rica ederim
Iyi çalışmalar
Cevapla
#6
karacaayt
Üye
karacaayt
Bul
Üye
Adı Soyadı:
Yaşı: 32
Konum:
Ofis Versiyonu:
Son Oturumu: 15/10/2021,17:27
Yorumları: 23
Konuları: 6
Kayıt Tarihi: 08/09/2021
Teşekkür Puanı: 0
Üstad kusura bakma tekrar yazıyorum ama şu kodda yine hata verdi sıkıntı ne olabilir?
Kod:
Private Sub Workbook_Open()

Dim SQL As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection

SQL = "SELECT il,hedef_tutar FROM Hedef_Gerceklesme_2021 "


Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.Path & "DATA\data.accdb;"
   
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1 ' güncelleme yapabilmek için 1,3 0lmalı yada  adOpenKeyset, adLockOptimistic

Range("B3").CopyFromRecordset ADO_RS


Set ADO_RS = Nothing
Set ADO_CN = Nothing


SQL = "SELECT tutar FROM Hedef_Gerceklesme_2021 "


Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.Path & "DATA\data.accdb;"
   
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1 ' güncelleme yapabilmek için 1,3 0lmalı yada  adOpenKeyset, adLockOptimistic

Range("B3").CopyFromRecordset ADO_RS


Set ADO_RS = Nothing
Set ADO_CN = Nothing


SQL = "SELECT Tutar_2020 FROM 2020_Genel_Toplam"


Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.Path & "DATA\data.accdb;"
   
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1 ' güncelleme yapabilmek için 1,3 0lmalı yada  adOpenKeyset, adLockOptimistic

Range("H3").CopyFromRecordset ADO_RS



son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing


End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task