/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
access *.MDB database
Fra : The Wild West


Dato : 15-02-03 11:27

Hej........

Jeg har et, tror jeg nok, lille problem.

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??

--
Med venlig hilsen
The Wild West
Ole PE Jensen
ICQ 40112860
opej@city.dk



 
 
Jens Vestergaard (15-02-2003)
Kommentar
Fra : Jens Vestergaard


Dato : 15-02-03 11:33

"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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste