"The Wild West" <opej@city.dk> skrev i en meddelelse
news:b2l4kv$bva$1@news.cybercity.dk...
> Kan det lade sig gøre at lave en procedure, det checker om en database fil
> eksisterer, og hvis ikke oprette en ny, tom database??
>
Hvis du søger på CreateDatabase i VB6s hjælp, får du nedenstående eksempel
serveret. Det er da en start.
Sub CreateDatabaseX()
Dim wrkDefault As Workspace
Dim dbsNew As DATABASE
Dim prpLoop As Property
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
' Make sure there isn't already a file with the name of
' the new database.
If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"
' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
dbLangGeneral, dbEncrypt)
With dbsNew
Debug.Print "Properties of " & .Name
' Enumerate the Properties collection of the new
' Database object.
For Each prpLoop In .Properties
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
Next prpLoop
End With
dbsNew.Close
End Sub-- mvhJens Vestergaard (mailadr i dette indlæg er ikke
gyldig!)
www.railsoft.dkDøgnets jernbanenyheder:
www.railsoft.dk/medier.asp