Har någon ett bra tips om hur man skapar en databas via VB-kod av formatet Access2000? När jag använder nedanstående kod så är inte den riktigt kompatibel med Access 2000.

Dim MinDB As Database
Dim MinTabell As TableDef
Dim Felt As Field

Set MinDB = Workspaces(0).CreateDatabase("C:\db", dbLangSwedFin, dbVersion30)

Set MinTabell = MinDB.CreateTableDef("tblTabell")

Set Felt = MinTabell.CreateField("Namn", dbText)
MinTabell.Fields.Append Felt

Set Felt = MinTabell.CreateField("Färg", dbText)
MinTabell.Fields.Append Felt

MinDB.TableDefs.Append MinTabell

Hej
Tycker (utan att vara riktigt säker),om du sätter reference
till DAO 360 så borde det funka som du skriver.

mvh
Sven

Jo, jag refererar ju till DAO 360 annars hade nog inte koden rullat.
Men problemet är att Access 2000/2002 har nog ett nyare format på sina filer för Access klagar på att det är 95-filformat och därför går det inte att redigera som man vill...

Hej
Igen kanske dum kommentar , men jag hade ett snarliknande
fall för några dagar sedan med en DataBas gjord i Access97

Genpm att köra den i MS Access 2000 så fick kunden frågan om
han skulle konvertera ,när han svarat ja på detta så funkade
det som vanligt från VB.
Det finns en jet40sp3_comp.exe som bör vara installerad
och Vbrun60sp5.exe om det kan vara något.

spånar
Sven

Hej
Funderade ett tag till
Testa att även sätta reference till DAO 350

Spånar vidare
Sven

Datorn gör det du säger till den att göra. Gissar på att det funkar bättre med dbVersion40:
<code>
Dim MinDB As Database
Dim MinTabell As TableDef

Set MinDB = DBEngine.CreateDatabase("C:\db.mdb", dbLangSwedFin, dbVersion40)

Set MinTabell = MinDB.CreateTableDef("tblTabell")

MinTabell.Fields.Append MinTabell.CreateField("Namn", dbText)
MinTabell.Fields.Append MinTabell.CreateField("Färg", dbText)

MinDB.TableDefs.Append MinTabell
</code>