MSLDBUSR.DLL Gone??? 1

[Trudye]

It seems that MSLDBUSR.DLL is no longer available in Access 2003.

Has it been renamed? I am trying to run a utility that rquires it. Does anyone know what I should use instead?

Thanks much
Trudye

 

[67peshawar294]

truyde,
try a simple search for the dll and you come up with

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q176670

(the very first result)...
jim

 

[Trudye]

Thank you sooo much Xaf294 for responding. It never dawned on me to go to the source (Microsoft) and do a search. I did the search here at Tek Tips. (Dbl DUH!)

Be well,
Trudye

 

[67peshawar294]

trudye,
What are friends for but to help others. The obvious, often isn't.
jim

 

[Trudye]

I have another (maybe not so smart question). What folder does it go in?

I tried c:/vb98. I searched on ms*.dll and there are hundreds of MS DLL files all over the place. I checked MS's site but did not find a clue.

Trudye

 

[67peshawar294]

trudye,
Most of the dll's go in the C:\windows\system32. That would be my guess?
jim

 

[PHV]

The instructions are here:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q186304

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Trudye]

I found it you wre right xaf294, I went to obj. browser and found another DLL, located it in system32.

Thanks everyone!
Be well,
Trudye

 

[Trudye]

I am getting a subscript out of range on the following code. I can't figure it out it was working fine yesterday.


Thanx, Trudye

Public Function GetUsers()

ReDim lpszUserBuffer(1) As String
Dim intLooper As Integer
Dim Cusers As Long
Dim strMsgBox As String
Dim StrDbPath As String

'StrDbPath = CurrentDb.Name
StrDbPath = "S:\Inventory\Recovery\RecoveryMDB\Recovery.mdb"
On Error GoTo Err_GetUsers

' Check to see if a database path was passed to the function. If the argument was not used,
' assume that we're to investigate the .ldb of the current database.

' Set Cusers to the number of computers currently connected to the database. Insert computer
'information into the lpszUserBuffer array.

' Arguments of LdbUser_Get Users:
' 1 = All users who have logged in since the LDB file was created
' 2 = Only users who are currently logged in
' 4 = Only users who are causing the database file to be corrupted
' 8 = Just return the count of users

Cusers = LDBUser_GetUsers(lpszUserBuffer(), StrDbPath, 2)

' Print possible errors returned by the function.
Select Case Cusers
Case -1
strMsgBox = "Can't open the LDB file"
Case -2
strMsgBox = "No user connected"
Case -3
strMsgBox = "Can't Create an Array"
Case -4
strMsgBox = "Can't redimension array"
Case -5
strMsgBox = "Invalid argument passed"
Case -6
strMsgBox = "Memory allocation error"
Case -7
strMsgBox = "Bad index"
Case -8
strMsgBox = "Out of memory"
Case -9
strMsgBox = "Invalid Argument"
Case -10
strMsgBox = "LDB is suspected as corrupted"
Case -11
strMsgBox = "Invalid argument"
Case -12
strMsgBox = "Unable to read MDB file"
Case -13
strMsgBox = "Can't open the MDB file"
Case -14
strMsgBox = "Can't find the LDB file"
End Select

If Not IsEmpty(strMsgBox) And strMsgBox <> "" Then
MsgBox strMsgBox, vbCritical, "Error"
Exit Function
End If

If Cusers > 0 Then
' Print computer names to Debug window.
For intLooper = 0 To Cusers - 1
Debug.Print "User"; intLooper + 1; ":"; _
lpszUserBuffer(intLooper)
'Shell ("Net Send Trudye Hello!")
'Shell ("net Send " & lpszUserBuffer(intLooper) & " ONLY TESTING: Please Log off of the Recovery database")
Shell ("net Send " & lpszUserBuffer(intLooper) & " ONLY TESTING ")

Next
End If


Exit_GetUsers:
Exit Function
Err_GetUsers:
MsgBox Err.Description
Resume Exit_GetUsers

End Function

 

[PHV]

ReDim lpszUserBuffer(1) As String
Never more than 2 users ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Trudye]

Yes, there will be at least one User the person running the Function will be in the database.

I knoe tha this kind of error usually indicates that I am addressing an issue that is not there. But the error is occuring on the first/(0) entry. All the others are fine.

 

[Trudye]

First of all PLEASE excuse the typo's in the last msg, I suffered a brain freeze.

Second. I figured it out and now it is running just fine. Thank you soooo much for hanging in there with me.

Be well,
Trudye

 

[PHV]

I figured it out and now it is running just fine
Could you please explain the members how you solved your issue ?