Member Avatar for snehas

Hi,
I am creating a small application which connects to an MS access database.
I am using app to get the path of the mdb. This works fine when I am accessing the exe from my own machine.
When I share the folder containing the exe and access it over the LAN, app looks for the mdb in the client machine. How do I reference the mdb on server?

Following is the code for db connection:

'Module to connect to the database.
Sub db_connect()
Dim AccessConnect As String
Dim sPath As String

sPath = App.Path & "/../MasterDB"

AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
                     "Dbq=My_Master.mdb;" & _
                     "DefaultDir=" & sPath & ";" & _
                     "Uid=;Pwd=test123;"
                     
con.ConnectionString = AccessConnect
con.Open
End Sub

Can anyone please guide me ahead?
Regards,
ss

  • 4 Contributors
  • 4 Replies
  • 129 Views
  • 2 Weeks Discussion Span
  • Latest Post Latest Post by ryan_vietnow
Member Avatar for dilip_singh3

instead of sPath = App.Path & "/../MasterDB"
use sPath = "\\SERVER\...\MasterDB.MDB"

Member Avatar for snehas

Thanks Dilip. I tried this. Didn't seem to work. :(
I am thinking of using a config file to get the path. Couldn't find any other way.
Regards,
ss

Member Avatar for vijay.wadikar

config file is the best way to get the path. You can read file easily

Member Avatar for ryan_vietnow

Have you ever tried the WINSOCK component?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.