more database woes

[Gandalf_Grey_]

ok does anyone know waht is wrong with this function?

Public Function CreateDatabase(DatabaseName As String, Optional Password As String = "") As Boolean

Dim NewDB As ADOX.Catalog
Set NewDB = New ADOX.Catalog

On Error GoTo Err_Exit

If Dir(DatabaseName, vbArchive + vbHidden + vbReadOnly + vbSystem) = "" Then

NewDB.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Trim(DatabaseName) & _
IIf(Password <> "", ";Jet OLEDBatabase Password=" & Password, "") & "; "
CreateDatabase = True
End If

Set NewDB = Nothing
CreateDatabase = True

Exit Function
Err_Exit:
CreateDatabase = False
Debug.Print "Error " & Err.Number, Err.Description
Err.Clear
Exit Function

End Function

[mendhak]

Perhaps if you specify what's wrong, we could help? Some of us are too lazy to do a copy and paste and run that.

[JazzBass]

Try this:

Dim NewDB As ADOX.Catalog
Set NewDB = New ADOX.Catalog
 
On Error GoTo Err_Exit
 
CreateDatabase = False 'Added here; If it fails, it will return false
 
If Dir(DatabaseName, vbArchive + vbHidden + vbReadOnly + vbSystem) = "" Then
 
NewDB.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Trim(DatabaseName) & _
IIf(Password <> "", ";Jet OLEDBatabase Password=" & Password, "") & "; "
CreateDatabase = True 'If it works, then it returns true
End If
 
Set NewDB = Nothing
 
 
Exit Function
Err_Exit:
CreateDatabase = False
Debug.Print "Error " & Err.Number, Err.Description
Err.Clear
Exit Function

Hope that helps

JazzBass

[Edneeis]

I think it's the after OLEDB.

[JazzBass]

Gandalf,

I did forget to tell you I tried your code and it worked. I only added the lines that are marked by comments.

Hope that helps,
JazzBass

[Gandalf_Grey_]

oh errr it interpreted : then a D as

[JazzBass]

Forgive me for being a little slow, but did you figure it out?

JazzBass