Access remote database with IP address

[Guest]

I got a code to access a database on a share drive and the code will be send
to users. But the drive map is different for everyone, for me it's x:\ but
others could be z:\...

i got the IP address of this drive as 12.345.678.90, how to put it into my
code? if the path is:

dim p as string
p="x:\share drive\folder\database.mdb\"

 

[Guest]

This is what you need:

p="\\12.345.678.90\share drive\folder\database.mdb\

Make sure you use the double backslash

Please rate this posting if helpful


Michael Arch.

 

[Guest]

I got an error message that '\\10.232.101.15\DS\SHIPPING.mdb' is not a valid
path...

If I just use "X:\DS\SHIPPING.mbd" then have no problem.

 

[Guest]

OK,It could be the wrong IP address, you can verify that by going to the dos
prompt and pinging the server, if you can ping it, try mapping a network
pointing to the folder where your database resides, if it does not allow you
to connect to the network drive, you may have to use the server name somthing
like this:

\\ServerName\\DS\SHIPPING.mdb

You can also step through your code and place a msgbox that will show the
path, just to confirm that the parameter has the proper syntax.
So right after you do p="\\10.232.101.15\DS\SHIPPING.mdb"
Msgbox(p)


--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.

 

[Guest]

If my computer show '12.345.678.90'(X does it mean the IP is 12.345.678.90?

I ping and also msgbox it seems correct.

 

[Guest]

Yes, however, it is quite unusual to see the ip address listed on the mapped
drive, because it means the whole server is being shared, this is not always
the case.
Just for testing try:
p="\\127.0.0.1 p\SHIPPING.mdb"
Make sure however, that the database exist in the C:\ drive before this
test; also make sure it exist under the directory you are pointing to.

p="\\10.232.101.15\DS\SHIPPING.mdb"

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.

 

[gimme_this_gimme_that]

Can you store the file on sharepoint where everyone can use the same
URL?

 

[Guest]

Unfortunately we do not have a share point setup.

I ping the drive and everything looks good.

Is there any code that I can get the path info which can be used in vba code?

 

[gimme_this_gimme_that]

Unfortunately we do not have a share point setup.

I ping the drive and everything looks good.

Is there any code that I can get the path info which can be used in vba code?





- Show quoted text -

Try googling : "Enumerating network shares" on
microsoft.public.scripting.vbscript


Look for svrcheck.exe or try something like this:

Function getNetShares(strHostName)


Dim objWMIService
Dim colShares
Dim objShare
Dim strMyMsg


On Error Resume Next

' I don't know what \root\cimv2 is.

Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate,authenticationLevel=Default}!\\" &
strHostName & "\root\cimv2")

Set colShares = objWMIService.ExecQuery("Select * from Win32_Share", ,
48)

For Each objShare in colShares
strMyMsg = "Share Name: " & vbTab & objShare.Name & vbCrLf
strMyMsg = strMyMsg & "Share Caption: " & vbTab &
objShare.Caption & vbCrLf
strMyMsg = strMyMsg & "Share Path: " & vbTab & objShare.Path &
vbCrLf
strMyMsg = strMyMsg & "Share Type: " & vbTab &
getShareType(objShare.Type) & vbCrLf
WScript.Echo strMyMsg
Next


Set objWMIService = Nothing
Set colShares = Nothing


getNetShares = Err.Number


End Function


getNetShares("my-machine")

 

[gimme_this_gimme_that]

Oh yeah, can you prompt the user to navigate to the mdb file with a
FileOpenDialog?

 

[Guest]

At last I found out the correct path is "\\10.232.101.15\Share\DS\Shipping.mdb"

I didn't see that path "\\10.232.101.15\Share\" at my window explorer,
yesterday when i travelled to another office and access their network then I
could see this path. Now it works.

Thanks for everybody's help.