Ik probeer op 1 pagina in de page_load sub 2 datagrids te vullen en dat lukt niet 
Foutmelding is:
Voor ExecuteReader is een open en beschikbare verbinding vereist. De huidige status van de verbinding is Open, Fetching.
Op regel 26
dgKapot.DataSource = Cmd.ExecuteReader
En dit is me code:
Kan iemand mij vertellen wat ik fout doe
Foutmelding is:
Voor ExecuteReader is een open en beschikbare verbinding vereist. De huidige status van de verbinding is Open, Fetching.
Op regel 26
dgKapot.DataSource = Cmd.ExecuteReader
En dit is me code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Con As OleDbConnection
Dim Cmd As OleDbCommand
Dim Dr As OleDbDataReader
Con = New OleDbConnection(GetDNS())
'Open connection
Con.Open()
'Create cmd
strSQL = "SELECT * FROM Comps"
Cmd = New OleDbCommand(strSQL, Con)
'Read data
Dr = Cmd.ExecuteReader
dgComps.DataSource = Dr
'Fill the dg
dgComps.DataBind()
Dr.Close()
'*********************************************
strSQL = "SELECT Mhz, Mem, Reden FROM Kapot, Comps WHERE Comps.Id = Kapot.CompId"
Cmd = New OleDbCommand(strSQL, Con)
Dr = Cmd.ExecuteReader
dgKapot.DataSource = Cmd.ExecuteReader
'Close connection
Con.Close()
End Sub |
Kan iemand mij vertellen wat ik fout doe