Data type mismatch in criteria expression, kan ikke finde fejlen
Hej,(VB)
Jeg skal have slettet nogle poster i en Access-DB, ved at man i en dropdownbox kan vælge DATOEN, og derved slette hele rækken.
Det virker fint nok hvis jeg vælger en kolonne sat til text, frem for datoen, da den er sat til en "dato/klokkeslet"-datatype.
Her skriver den "Data type mismatch in criteria expression"
Min kode ser således ud:
Dim strConn As String
Dim objConn As OleDbConnection
Dim objComm As OleDbCommand
Dim objDataReader As OleDbDataReader
Dim Beskednumre as New ArrayList()
Sub Page_Load()
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db/islanders.MDB") & ";"
objConn = New OleDbConnection(strConn)
if not Page.ispostback Then
objConn.Open()
Fyld_Listboks
lstBeskedNr.SelectedIndex = "0"
objConn.Close()
end if
End Sub
Sub Fyld_Listboks()
Dim strSQL as string
strSQL = "SELECT format([date], ""mmm-dd-yyyy"") as [Date] FROM Tourplan ORDER BY [Date];"
objComm = New OleDbCommand(strSQL, objConn)
objDataReader = objComm.ExecuteReader()
Do While objDataReader.Read = true
Beskednumre.add(objDataReader("Date"))
Loop
lstBeskednr.DataSource = Beskednumre
lstBeskednr.DataBind()
objDataReader.Close()
End Sub
Sub BtnSlet_Click(sender As Object, e As EventArgs)
Dim strSQL as string
Dim wbeskednr as string
objConn.Open()
wBeskednr = lstBeskednr.SelectedItem.Value
strSQL = "DELETE FROM Tourplan WHERE [Date] = '" & wBeskednr & "';"
objComm = New OLEDBcommand(strSQL, objConn)
objComm.ExecuteNonQuery()
objConn.Close()
response.redirect("slet_tourplan1.aspx")
End Sub
Hvordan kan det være?
