Shadir
Legacy Member
Hallo,
Ik ben bezig met het programmeren van een reservatieprogramma in ASP.Net maar toen ik een query wilde maken waarbij ik kijk of de reservering al gedaan is lukt het niet door de fout dat de gegevenstypen niet overeenkomen met de criteriumexpressie. Ik wil via een listbox die uit de databse geselecteerd wordt een vergaderzaal kiezen die ik dan in een andere tabel controleer, ik heb al geprobeerd om het ID van de vergaderzaal te gebruiken, de selectedindex te gebruiken en de selectedvalue te gebruiken maar niets werkt.
De database tabellen die ik gebruik bestaan uit tblVergaderzalen met een Vergaderzaal ID en een naam die ik link via de Vergaderzaal ID aan een tabel Reservering. Het ID is gelinkt met het vergaderzaal veld in de tabel Reservering en toont een dropdownlist in het veld, dit veld wordt als numeriek weergeven.
Dt is de code die ik gebruik:
Dim sqlreserveer As String
Dim cmdreserveer As OleDbCommand
Dim sqlselect, sqlselect2, sqlselect3, sqlselect4 As String
Dim cmdselect, cmdselect2, cmdselect3, cmdselect4 As OleDbCommand
Dim select1, select2, select3, select4 As String
'Kijken of het al geboekte beginuur niet tussen de nieuw ingegeven uren ligt
sqlselect = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE tblReservering.Van >= (#" & (TxtVan.Text) & "#) AND tblReservering.Van <= (#" & (txtTot.Text) & "#) AND tblReservering.Vergaderzaal = ('" & (LstZaal.SelectedIndex) & "');"
cmdselect = New OleDbCommand(sqlselect, dbcon)
'Kijken of het al geboekte einduur niet tussen de nieuw ingegeven uren ligt
sqlselect2 = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE tblReservering.Tot >= (#" & (TxtVan.Text) & "#) AND tblReservering.Tot <= (#" & (txtTot.Text) & "#) AND tblReservering.Vergaderzaal = ('" & (LstZaal.SelectedIndex) & "');"
cmdselect2 = New OleDbCommand(sqlselect, dbcon)
'Kijken of het nieuw ingegeven beginuur niet tussen de al geboekte uren ligt
sqlselect3 = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE (#" & (TxtVan.Text) & "#) >= tblReservering.Van AND (#" & (TxtVan.Text) & "#) <= tblReservering.Tot;"
cmdselect3 = New OleDbCommand(sqlselect, dbcon)
'Kijken of het nieuw ingegeven einduur niet tussen de al geboekte uren ligt
sqlselect4 = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE (#" & (txtTot.Text) & "#) >= tblReservering.Van AND (#" & (txtTot.Text) & "#) <= tblReservering.Tot;"
cmdselect4 = New OleDbCommand(sqlselect, dbcon)
'Db connectie openen, command uitvoeren en Db connectie sluiten
dbcon.Open()
select1 = cmdselect.ExecuteScalar
select2 = cmdselect2.ExecuteScalar
select3 = cmdselect3.ExecuteScalar
select4 = cmdselect4.ExecuteScalar
dbcon.Close()
Het gaat fout op "select1 = cmdselect.ExecuteScalar" Ik weet niet hoe ik mijn database moet controleren.
Kunnen jullie helpen? later op de dag zal ik screenshots kunnen posten indien dit nodig is.
Alvast bedankt,
Shadir
Ik ben bezig met het programmeren van een reservatieprogramma in ASP.Net maar toen ik een query wilde maken waarbij ik kijk of de reservering al gedaan is lukt het niet door de fout dat de gegevenstypen niet overeenkomen met de criteriumexpressie. Ik wil via een listbox die uit de databse geselecteerd wordt een vergaderzaal kiezen die ik dan in een andere tabel controleer, ik heb al geprobeerd om het ID van de vergaderzaal te gebruiken, de selectedindex te gebruiken en de selectedvalue te gebruiken maar niets werkt.
De database tabellen die ik gebruik bestaan uit tblVergaderzalen met een Vergaderzaal ID en een naam die ik link via de Vergaderzaal ID aan een tabel Reservering. Het ID is gelinkt met het vergaderzaal veld in de tabel Reservering en toont een dropdownlist in het veld, dit veld wordt als numeriek weergeven.
Dt is de code die ik gebruik:
Dim sqlreserveer As String
Dim cmdreserveer As OleDbCommand
Dim sqlselect, sqlselect2, sqlselect3, sqlselect4 As String
Dim cmdselect, cmdselect2, cmdselect3, cmdselect4 As OleDbCommand
Dim select1, select2, select3, select4 As String
'Kijken of het al geboekte beginuur niet tussen de nieuw ingegeven uren ligt
sqlselect = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE tblReservering.Van >= (#" & (TxtVan.Text) & "#) AND tblReservering.Van <= (#" & (txtTot.Text) & "#) AND tblReservering.Vergaderzaal = ('" & (LstZaal.SelectedIndex) & "');"
cmdselect = New OleDbCommand(sqlselect, dbcon)
'Kijken of het al geboekte einduur niet tussen de nieuw ingegeven uren ligt
sqlselect2 = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE tblReservering.Tot >= (#" & (TxtVan.Text) & "#) AND tblReservering.Tot <= (#" & (txtTot.Text) & "#) AND tblReservering.Vergaderzaal = ('" & (LstZaal.SelectedIndex) & "');"
cmdselect2 = New OleDbCommand(sqlselect, dbcon)
'Kijken of het nieuw ingegeven beginuur niet tussen de al geboekte uren ligt
sqlselect3 = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE (#" & (TxtVan.Text) & "#) >= tblReservering.Van AND (#" & (TxtVan.Text) & "#) <= tblReservering.Tot;"
cmdselect3 = New OleDbCommand(sqlselect, dbcon)
'Kijken of het nieuw ingegeven einduur niet tussen de al geboekte uren ligt
sqlselect4 = "SELECT tblReservering.ReserveringsID FROM(tblReservering)WHERE (#" & (txtTot.Text) & "#) >= tblReservering.Van AND (#" & (txtTot.Text) & "#) <= tblReservering.Tot;"
cmdselect4 = New OleDbCommand(sqlselect, dbcon)
'Db connectie openen, command uitvoeren en Db connectie sluiten
dbcon.Open()
select1 = cmdselect.ExecuteScalar
select2 = cmdselect2.ExecuteScalar
select3 = cmdselect3.ExecuteScalar
select4 = cmdselect4.ExecuteScalar
dbcon.Close()
Het gaat fout op "select1 = cmdselect.ExecuteScalar" Ik weet niet hoe ik mijn database moet controleren.
Kunnen jullie helpen? later op de dag zal ik screenshots kunnen posten indien dit nodig is.
Alvast bedankt,
Shadir