vb problem

Thread View: alt.msdos.programmer

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by The_firm Thu, 21 Sep 2000 00:00

#1412

Author: The_firm
Date: Thu, 21 Sep 2000 00:00

29 lines
1800 bytes

Problems with the dbpassword..... what if I have a password how do I
connect?


Public Function AddTable(DbName As String, DbPath As String, TableName As
String, Optional DbPassword As String)

If FileExists(DbPath & "\" & DbName & ".mdb") = True Then
    On Error GoTo ErrorHandler

        Dim MyDatabase As Database
        Dim MyTableDef As TableDef, MyField As Field

            Set MyDatabase = Workspaces(0).OpenDatabase(DbPath & "\" &
DbName & ".MDB")
            Set MyTableDef = MyDatabase.CreateTableDef(TableName)

Else

        Call MsgBox("Database doesn't exists:" & Chr(13) & UCase(DbPath) &
"\" & _
        UCase(DbName) & ".MDB", vbCritical, "Dbase")

End If

ErrorHandler:

MyDatabase.Close
End Function

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads