Hey daar, me 2e topic al vandaag hehe
Ik heb even rondgezocht hier en kwam een fijne code tegen voor het uitlezen van een acces database, en ze op te slaan in variabelen. Echter heb ik dezelfde error als de originele auteur van de code, en met de oplossing die in de topic werd gegeven werkt het ook nog niet, of ik gebruik het verkeerd.
De code die ik had gevonde:
De fout waarschijnlijk in de Dim dbread, net zo als bij die andere jongen. de fout luid:
De oplossing die werd gegeven:
verranderd in:
(met en zonder () erachter)
Maar ik krijg dan dit:
Iemand enig idee hoe ik het moet fixen? Als ik namelijk google en hier zoek naar code die ook de OleDbDataReader gebruikt, dan word hij namelijk gewoon gebruikt zonder de = New oledbdatareader erachter... Dus ik ben een beetje lost.
Ik hoop dat iemand mij kan helpen, alvast bedankt!
-Rik
Ik heb even rondgezocht hier en kwam een fijne code tegen voor het uitlezen van een acces database, en ze op te slaan in variabelen. Echter heb ik dezelfde error als de originele auteur van de code, en met de oplossing die in de topic werd gegeven werkt het ook nog niet, of ik gebruik het verkeerd.
De code die ik had gevonde:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Dim Naam As String
Dim Achternaam As String
Dim dbRead As OleDbDataReader
Dim sConnectionString As String
Dim PathInfo As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LeerlingenDatabase.mdb"
Dim con As OleDbConnection = New OleDbConnection(PathInfo)
Dim Command As String = "Select * from AANMELDINGEN where amd_naam = Rik"
Dim da As OleDbCommand = New OleDbCommand(Command, con)
con.Open()
While dbRead.Read()
Naam = dbRead("amd_naam")
Achternaam = dbRead("amd_achternaam")
End While
MsgBox(Naam)
MsgBox(Achternaam)
dbRead.Close()
con.Close() |
De fout waarschijnlijk in de Dim dbread, net zo als bij die andere jongen. de fout luid:
code:
en wijst dan naar de dbread in de lijn:1
| System.NullReferenceException: Object reference not set to an instance of an object |
code:
1
| While dbRead.Read() |
De oplossing die werd gegeven:
Ik heb dus dit gedaan:Kijk ook eens goed naar welke regel het fout gaat. Daar zal je vanzelf zien dat het gewoon een debugfoutje is.
Dim blaat as myObject
Geeft deze fout
Dim blaat as myObject = new myObject()
niet.
code:
1
| Dim dbRead As OleDbDataReader |
verranderd in:
code:
1
| Dim dbRead As OleDbDataReader = New OleDbDataReader |
(met en zonder () erachter)
Maar ik krijg dan dit:
code:
1
| C:\Documents and Settings\Administrator\Bureaublad\Leerling control\Intake.vb(73): 'System.Data.OleDb.OleDbDataReader.Private Sub New(connection As System.Data.OleDb.OleDbConnection, command As System.Data.OleDb.OleDbCommand, depth As Integer, chapter As System.IntPtr)' is not accessible in this context because it is 'Private'. |
Iemand enig idee hoe ik het moet fixen? Als ik namelijk google en hier zoek naar code die ook de OleDbDataReader gebruikt, dan word hij namelijk gewoon gebruikt zonder de = New oledbdatareader erachter... Dus ik ben een beetje lost.
Ik hoop dat iemand mij kan helpen, alvast bedankt!
-Rik