Access on network 1

[xburgler]

I have a database in a network drive. The problem is that the ActiveX (Treeview and Listview) in some computers doesn't work. Does anyone know how's the best way to solve it ?.

Other issueis the speed of the database. Is there any good tips or databases on a network ?

thanks
Jorge

 

[scking]

Install and register them on each client system. This is the only way. You could build a setup program if you have the developer's tools, or ODE tools and they would then check dependencies and include them in the setup group.

I've build a little VBScript to verify the system has the necessary controls and files installed and registered. Using it first tells me what needs to be done to prepare the client environment.

Steve King Growth follows a healthy professional curiosity

 

[jpaulino]

Can you send me your vbscript ???

Jorge

 

[scking]

Jorge,

Here is a short example of checking the registry and reporting whether a control is registered. First you will need to use regedit to search the registry of a computer that has the control registered to find what the CLSID is for the control.

Steve King

' Windows Script Host Sample Script
'
' ------------------------------------------------------------------------
' Copyright (C) 1996-1997 Microsoft Corporation
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Microsoft has no warranty,
' obligations or liability for any Sample Application Files.
' ------------------------------------------------------------------------
'
' This sample demonstrates how to write/delete entries in the registry.


L_Welcome_MsgBox_Message_Text = "This script checks to see if dao350.dll is loaded." & vbCrLf _
& vbCrLf & "This file is required to maintain backward" _
& vbCrLf & "compatability with the DMATS application."
L_Welcome_MsgBox_Title_Text = "Windows Scripting Host Application"
Call Welcome()
Call Dao350IsRegistered()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DmatsIsRegistered' ' Purpose: '
' Generates a True/False depending on whether the registry item
' for dao350.dll is found.
' Using the known location dao350.dll
' Returning a True/False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Dao350IsRegistered()
On Error Resume Next

Dim AppPath, intReturn
Set WshShell = WScript.CreateObject("WScript.Shell&quot
Stop
AppPath = WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{00000010-0000-0010-8000-00AA006D2EA4}\InprocServer32\ThreadingModel&quot 'AppPath = WshShell.RegRead("HKCR\.323\Content Type&quot
If Len(AppPath) > 0 Then
intReturn = MsgBox("Dao350.dll is registered." & vbCrLf & vbCrLf & "No further action is required.", _
vbOKCancel + vbInformation, _
"Registration Verification" )
If intReturn = vbCancel Then
WScript.Quit
End If
ElseIf Len(AppPath) = 0 Then
intReturn = MsgBox("Dao350.dll is not registered. Would you like to install and register it?", _
vbYesNo + vbInformation, _
"Registration Verification" )
If intReturn = vbYes Then
Echo "Run the dao350.exe file."
Else
WScript.Quit
End If
End If

If Err.Number <> 0 Then
Select Case Err.Number
Case 80020007
MsgBox &quot;Err &quot; & Err.Number
Case Else
MsgBox &quot; Error?&quot;
End Select
End If

End Sub

' ********************************************************************************
' *
' * Welcome
' *
Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub
Growth follows a healthy professional curiosity