vb problem

Article View: alt.msdos.programmer

Article #1412

Back to alt.msdos.programmer Previous Next

#1412

From: 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

Technical Details

Message-ID: <39ca56ad$0$4498$73bec57d@news.be.uu.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f5f6f,3ad72cd17a4a8a8d,start
X-Google-Attributes: gidf5f6f,public
X-Google-Thread: ff2b1,3ad72cd17a4a8a8d,start
X-Google-Attributes: gidff2b1,public
X-Google-Thread: 110e3b,3ad72cd17a4a8a8d,start
X-Google-Attributes: gid110e3b,public
X-Google-Thread: fcea4,3ad72cd17a4a8a8d,start
X-Google-Attributes: gidfcea4,public
X-Google-Thread: 1143a7,3ad72cd17a4a8a8d,start
X-Google-Attributes: gid1143a7,public
X-Google-Thread: 102bfa,3ad72cd17a4a8a8d,start
X-Google-Attributes: gid102bfa,public
From: "The_firm" <angeldust@be.packardbell.org>
Subject: vb problem
Date: 2000/09/21
Message-ID: <39ca56ad$0$4498$73bec57d@news.be.uu.net>
X-Deja-AN: 672555411
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
X-Trace: 969561774 news.be.uu.net 4498 212.190.10.141
X-MSMail-Priority: Normal
Newsgroups: alt.msdos.programmer,be.comp.programming,comp.lang.basic.visual.3rdparty,comp.lang.basic.visual.database,comp.lang.basic.visual.misc,comp.sys.be.programmer