'check for existance of database
On Wed, 04 Jun 1997 22:21:08 GMT, gherrera@earthlink.net wrote:
>
>I'm trying to wrap the OpenDatabase function with some code that will
>detect invalid paths, etc. My finished function might be called
>something like NewOpenDatabase and would take the same parameters.
>
>I can't seem to get my function to return an object and I've got a
>hunch that it simply isn't possible in VB. Could you please confirm
>this? I'd really appreciate it.
I always use the next code to check the existence of a database:
Public Function CheckDatabase() As Boolean
Dim db As Database
On Error GoTo fout_check_database
Set db = OpenDatabase(DBNaam$)
CheckDatabase = True
db.Close
Exit Function
fout_check_database:
MsgBox CStr(Err) & ": " & Error, MB_ICONEXCLAMATION, Titel$
CheckDatabase = False
End Function
'on the main form
DBNaam$ = App.Path & "\data\" & dbName$
'check database
If Not CheckDatabase Then
MsgBox "Start making the database...", MB_ICONEXCLAMATION, Titel$
'call proc to make the database
'you can also show here a drive/dir/list box to let the user
'choose his/her own location!
Call MaakDatabase
End If
Set db = OpenDatabase(DBNaam)
Return