Finns det nån funktion i vb 6 för att skapa en access-databas???

//Thomas

[Skapa en accessdatabas med DAO]
[Skapa en accessdatabas från VB]

Du kan använda Microsoft ADO Ext. 2.7 for DDL and Security:
<code>
Private Sub Form_Load()
Dim Table As ADOX.Table
Dim Index As ADOX.Index
Dim Column As ADOX.Column
Dim Catalog As ADOX.Catalog
Dim Property As ADOX.Property
Dim FileName As String
FileName = App.Path & "\db1.mdb"

If Len(Dir(FileName)) Then Kill FileName

Set Catalog = New ADOX.Catalog
Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FileName

Set Table = New ADOX.Table
Table.Name = "Users"

Set Column = New ADOX.Column
Set Column.ParentCatalog = Catalog
Column.Name = "UserId"
Column.Type = adInteger
Column.Properties("AutoIncrement") = True
'For Each Property In Column.Properties
' Debug.Print Property.Name
'Next

Table.Columns.Append Column

Set Column = New ADOX.Column
Set Column.ParentCatalog = Catalog
Column.Name = "UserName"
Column.Type = adVarWChar
Column.DefinedSize = 20
Column.Attributes = adColNullable
Table.Columns.Append Column

Set Index = New ADOX.Index
Index.Name = "PrimaryKey"
Index.Unique = True
Index.PrimaryKey = True
Index.Columns.Append "UserId"
Table.Indexes.Append Index

Catalog.Tables.Append Table

Catalog.ActiveConnection.Close
End Sub
</code>

Hej,

Om du går in på Add-ins menyn och sedan Visual Data Manager så hittar du verktyget för att skapa en .mdb fil.

Men det är nog att föredra om man skapar .mdb filen i Access eftersom man får mer kontroll över databasdesign:en där.

Lycka till....

mvh
Nicholas

vad ska du ha den till..

Är det ett databas program...

Så kan du skapa en tom databas och när användarna väljer ny databas så kopierar du bara den tomma databasen....

Nicholas,

Har en tråd på "Databaser - db Allmänt" som heter "Com+ Error i Win 2000".

Com+ problem gäller att programmet kraschar efter ett par veckor pga "kan ej allokera lokala trådar" (om man nu kan lita på detta meddelande).


1. Databasen är skapad via Visual Data Manager (Visdata; File/New/Access/Ver 7.0 MDB).

2. Connecsträngen ser ut enligt nedan:
DbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HomeDir & "\EasyCall.mdb;Persist Security Info=False"

3. Access mot databasen sker via ADO.

Fråga: Kan det vara något problem med att databasen har skapats i Visdata. Skulle Access 2000 göra något skillnad?

mvh,
Leif