Skip to main content

AccessTr.neT


Access'den Excel'e Veri Aktarma Sorunu

Access'den Excel'e Veri Aktarma Sorunu

#2
access veritabanındaki sorgunuz hatalı önce onu düzenlemelisiniz?
sorgu kodunuzu aşağıdaki kodla değiştirebilirsiniz
unutmayın bu kod accessteki  sorgu1 kodu
SELECT Personel.Ad, Personel.Soyad, Sum(Satıs.tutar) AS İfade1
FROM Personel INNER JOIN Satıs ON Personel.Sicil = Satıs.Sicil, Satıs AS Satıs_1 INNER JOIN Personel AS Personel_1 ON Satıs_1.Sicil = Personel_1.Sicil
GROUP BY Personel.Ad, Personel.Soyad;
kodu aşağıdaki gibi düzenleyip dener misiniz?
bu kod ise Excelde olacak
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("A3").CopyFromRecordset ADO_RS


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

kusura bakmayın unutmuşum belirtmeyi 
referanslardan Microsoft ActiveX Data Object x.x Library eklenmeli
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Access'den Excel'e Veri Aktarma Sorunu - Yazar: berduş - 13/09/2021, 15:31
Task