Private Sub CreateDatabaseAndTable(ByVal databasename As String)
Dim Cn As ADODB.Connection, Cat As ADOX.Catalog, _
objKey As ADOX.Key, objTable As ADOX.Table
Cn = New ADODB.Connection
Cat = New ADOX.Catalog
objTable = New ADOX.Table
objkey = New ADOX.Key
Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasename)
Cat.ActiveConnection = Cn
objTable.Name = "Test_Table"
With objTable.Columns
.Append("PrimaryKey_Field", ADOX.DataTypeEnum.adInteger)
.Append("field1", ADOX.DataTypeEnum.adVarWChar)
.Append("field2", ADOX.DataTypeEnum.adVarWChar)
.Append("field3", ADOX.DataTypeEnum.adVarWChar)
End With
objTable.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, _
"PrimaryKey_Field")
Cat.Tables.Append(objTable)
' clean up objects
objkey = Nothing
objTable = Nothing
Cat = Nothing
Cn.Close()
Cn = Nothing
End Sub
--
Peter
Mijn advies, probeer het niet meer met Access, het werkt niet meer op mijn
Windows 7 machine (als database in Net).
Probeer gewoon SQL Server Express
http://www.microsoft.com/express
Success
Cor
"petert" <pet...@discussions.microsoft.com> wrote in message
news:0E2C0087-764E-4D87...@microsoft.com...
bedankt voor je antwoord, ik weet dat ik over moet stappen op een ander
database systeem, maar eerst wil ik de diverse programma's overzetten naar
2008.
Uit ervaring weet ik dat je niet teveel conversies tegelijk moet doen. Zodra
alles in 2008 is, ga ik mij verdiepen in de database problematiek. Eén van de
problemen daarvan is dat een gebruiker eerst sql-server moet installeren om
de programma's te gebruiken, niet iedereen kan dat. Zoals het nu gemaakt is
wordt alles automatisch opgebouwd zonder dat de gebruiker iets anders
behoeft te installeren. Overigens vind ik dat er een behoorlijk verschil
tussen VB 6 en
VB2008 en voor VB een hoop extra gecodeerd moet worden wat vroeger niet
nodig was. Ik heb de indruk dat alles meer Visual C moet worden en alle
andere talen zich daaraan moeten conformeren zodat alleen die runtime
librarie behoeft te worden gedistribueerd. Het probleem van de required
non-required heb ik al opgelost, het is precies het omgekeerde als in VB6
zover ik het zie.
Deze thread kan wat mij betreft gesloten worden.
--
Peter