AccessTr.neT

Merhaba,
Office 2016 64 bit kurulu bilgisayarda, excel'de Vba kodu ile accesse bağlantı kurarak recordsete veri alma işlemini nasıl yapabilirim?

sonrası standart işlemler bildiğiniz gibi. ama bağlantı kurup veri çekmeyi bir türlü beceremedim.

Tools-->References'e "Microsoft Office 16.0 Access database engine Object Library"yi ekleyin.
Örnek kod da aşağıdaki gibidir efendim.

Function ExcelConnAccess(SicilNo As Long) As String

   Set Db = DAO.DBEngine(0).OpenDatabase("D:\DOSYALAR\AccessDB\Parametre.accdb")

   Set rs = Db.OpenRecordset("SELECT OrnekAlan FROM OrnekTablo WHERE Sicil=" & SicilNo & ";")

   ExcelConnAccess = rs("OrnekAlan")

   

   rs.Close

   Db.Close

   

End Function