Hallo,
Ik kan de select query van hieronder perfect uitvoeren maar de update query lukt niet meer. Alles wat erna komt in deze functie wordt niet meer uitgevoerd vanaf myUpdateCommand.executenonquery.
Het lijkt dat hij hier uit de functie vliegt en heeft de update ook niet doorgevoerd.
Hieronder de code:
Dit is normaal de manier waarop je een update query doet, althans beschreven op het internet. Toch lukt het mij nog steeds niet om deze werkende te krijgen.
Ik kan de select query van hieronder perfect uitvoeren maar de update query lukt niet meer. Alles wat erna komt in deze functie wordt niet meer uitgevoerd vanaf myUpdateCommand.executenonquery.
Het lijkt dat hij hier uit de functie vliegt en heeft de update ook niet doorgevoerd.
Hieronder de code:
Visual Basic:
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
31
| Dim antwoordgebr As String = "" Dim antwoord As String = "" Dim antwoord2 As String = "" Dim verbindingsString As String = _ "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\TrivialPursuit.accdb" Dim verbinding As New OleDb.OleDbConnection(verbindingsString) verbinding.Open() Dim opdracht As New OleDb.OleDbCommand("SELECT TOP 1 tblVragen.ID, tblCategorie.Categorie, tblVragen.Vraag, tblVragen.A1, tblVragen.A2 FROM tblCategorie INNER JOIN tblVragen ON tblCategorie.ID = tblVragen.Categorie where tblCategorie.kleur = '" & categorie & "' Order by Rnd(-10000000*TimeValue(Now())*tblVragen.ID);", _ verbinding) Dim dataLezer As OleDb.OleDbDataReader = _ opdracht.ExecuteReader 'lstAllusers.Show() While dataLezer.Read 'MessageBox.Show(dataLezer.Item("Vraag")) antwoordgebr = InputBox(dataLezer.Item("Vraag"), "Vraag over" & dataLezer.Item("Categorie")) antwoord = dataLezer.Item("A1") antwoord2 = dataLezer.Item("A2") End While Dim myUpdateCommand As OleDb.OleDbCommand myUpdateCommand = New OleDb.OleDbCommand("Update tblVragen Set gesteld=1 where ID=2", verbinding) myUpdateCommand.ExecuteNonQuery() |
Dit is normaal de manier waarop je een update query doet, althans beschreven op het internet. Toch lukt het mij nog steeds niet om deze werkende te krijgen.