Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

creating a dataset in vb 2008

2 views
Skip to first unread message

petert

unread,
Sep 1, 2009, 5:37:02 PM9/1/09
to
Momenteel ben ik bezig een aantal vb6 programma's om te zetten naar vb 2008.
Met behulp van enkele tips lukt het meeste tot nu toe wel, echter ik kan
nergens een voorbeeld vinden hoe ik een database (access) kan maken en op
disk zetten. De voorbeelden die ik kon vinden lieten zien hoe het in het
geheugen moet maar niet hoe je het op een disk zet. Is er iemand die een
voorbeeld heeft hoe je dat moet doen?
--
Peter

petert

unread,
Sep 15, 2009, 9:48:02 AM9/15/09
to
Probleem opgelost mbv zoeken en experimenteren.
Helaas heb ik nog een probleem waar ik de oplossing niet voor kan vinden.
Alle kollommen in de table zijn naar creeren verplicht (required). De vraag
is hoe kan ik dat omzetten naar niet verplicht (NonRequired). Op internet
diverse
oplossing gezien maar geen van alle werken op mijn tables.
Is er iemand die hiervoor een oplossing weet?
Hier onder is een voorbeeld van de code hoe ik de database en Tabel maak:

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

Cor Ligthert[MVP]

unread,
Sep 25, 2009, 12:07:59 PM9/25/09
to
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...

petert

unread,
Sep 27, 2009, 4:31:01 PM9/27/09
to
Cor,

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

0 new messages