Excel sayfasının veritabanı olarak kullandığı MDB dosyasını yolu nasıl tanımlanır ?

[ybilgin]

Arkadaşlar merhaba, Tüm aramalarıma rağmen bu yönde bir konu bulamadım.
Excel üzerindeki bir userform a access mdb dosyasından veri çekiyorum. ve mdb dosyası üzerine kayıt yapıyorum.

Private baglan As Object, RS As Object
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\DATA\VEHICLEDB.mdb"
End Sub

yukarıdaki kodlar excel dosyası ve mdb dosyasının aynı klasör içinde olduğu durum için geçerli.

Ancak benim yapmak istediğim şey şöyle,
EXCEL dosyası ve MDB dosyası farklı klasörlerde olduğunda mdb dosyasının yolunu nasıl belirtmeliyim.

\ANA KLASÖR\
\ANA KLASÖR\USERS\01AHMET\EXCEL.xls
\ANA KLASÖR\DATA\VEHICLEDB.mdb

bu klasör yapısındaki EXCEL.xls dosyası çalıştırldığında veritabanı dosyasının yolu üstte verdiğim kodlarda nasıl tanımlabilir.
Yardımcı olabilecek arkadaşlar çok teşekkür ederim.

 

[Murat OSMA]

Bu şekilde bir deneyiniz;

Private baglan As Object, RS As Object
Private dosya as string
 Sub baglanti()
 Set baglan = CreateObject("adodb.connection")
dosya = "\ANA KLASÖR\DATA\VEHICLEDB.mdb"
 baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & dosya & "
 End Sub

 

[ybilgin]

İlginiz için teşekkür ederim murat osma,
yukarıdaki kodlar malesef çalışmıyo.

Excel dosyasının ve MDB dosyasını Misal C:\ sürücüsüne kopyalayıp oradan çalıştıracak olsaydık
herşekilde veritabanının yolunu gösterebilirdik.
Sorun içerisinde makro barındıran excel dosyasının iki düzey üst klasör yolunun nasıl belirtileceği.

\ANA KLASÖR\USERS\01AHMET\EXCEL.xls "makro bu excel dosyası içinde yazılacak."
\ANA KLASÖR\DATA\VEHICLE.mdb "makroda bu yolu belirticez."

hertürlü öneriye açığım. Teşekkürler

 

[fireman64]

Excel dosyasının hangi dizinde olduğu önemli değil. mdb dosyasının yolunu tam yazarak bilgilere erişebilrisin.
Örnek "C:\Users\Mehmet\Documents\ANA KLASÖR\DATA\VEHICLEDB.mdb"
yada ağ üzerinde bir yerde ise
"\\Karşı _bilgisayar_adı\Mehmet\Documents\ANA KLASÖR\DATA\VEHICLEDB.mdb" gibi.