Om jag vill skapa en databas från grunden(med kod) hur gör jag det? Dvs att jag inte öppnar en befintlig utan skapar en helt ny *.mdb

mvh Cyth

Hej

Skapa en referens till Microsoft DAO 3.51 eller vilken versonsnummer du än har.

Option Explicit

Dim db as Database
Dim tblDef as Tabledef
Dim fldDef as Field
Dim dbName as String

Private Sub cmdCreateDataBase_Click()

dbName = "C:\Sökväg\Databas.MDB"

'För att undvika felmeddelande ifall databasen redan finns
if (Len(Dir(dbName))) then
Kill dbName
end if

Set db =DBEngine.Workspaces(0).CreateDatabase(dbName,_ dbLangGeneral)

'Skapar databasen
set tblDef = db.CreateTableDef("Tabellnamn")

'Skapar fältet i Tabellnamn tabellen
Set fldDef = tblDef.CreateField("Fältnamn", dbText)
'dbText är fältets datatyp

'Knyter fältet till tabellen
tblDef.Fields.Append fldDef

'Knyter tabellen till databasen
db.TableDefs.Append tblDef

Denna kod skapar en databas i angiven sökväg med tabellen "Tabellnamn" och fältet "Fältnamn"

Hoppas det hjälper lite på traven.

Mvh

/Holmen

Det funkade någonlunda. Felet är att den skapar en Access 97 databas(iaf äldre version än Access 2000) och jag vill ha den skapad i Access 2000 standard. Kan man göra det?

/Cyth

Använder du referens till Microsoft DAO 4(Access 2000)?