Data type mismatch in criteria expression
-
i keep having runtime errors everytime i try to update my database in the datalist. Can someone pls help me rectify them? aspx. file this is in the EditItemTemplate of the datalist control.
<%#DataBinder.Eval(Container.DataItem, "ID")%> <%#DataBinder.Eval(Container.DataItem, "checklist_Item")%>
aspx.vb fileSub MyDataList_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles MyDataList.UpdateCommand Dim tbox As TextBox Dim ID As String 'Dim txtEventDate, txtEventTrigger As Date 'Dim ID, txtEventDate, txtEventTrigger As String Dim txtEventDate, txtEventTrigger '---retrieves the key for the row--- ID = MyDataList.DataKeys(e.Item.ItemIndex) 'MsgBox("1") '---find the textbox control containing the title tbox = CType(e.Item.FindControl("txtEventDate"), TextBox) txtEventDate = tbox.Text 'MsgBox("2") '---find the textbox control containing the price tbox = CType(e.Item.FindControl("txtEventTrigger"), TextBox) txtEventTrigger = tbox.Text 'MsgBox("3") '---updates the database--- Dim sql As String = "UPDATE programs SET date_Completed='" + txtEventDate + "' , date_Trigger='" + txtEventTrigger + "' WHERE ID='" + ID + "'" Dim comm As New OleDbC
-
i keep having runtime errors everytime i try to update my database in the datalist. Can someone pls help me rectify them? aspx. file this is in the EditItemTemplate of the datalist control.
<%#DataBinder.Eval(Container.DataItem, "ID")%> <%#DataBinder.Eval(Container.DataItem, "checklist_Item")%>
aspx.vb fileSub MyDataList_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles MyDataList.UpdateCommand Dim tbox As TextBox Dim ID As String 'Dim txtEventDate, txtEventTrigger As Date 'Dim ID, txtEventDate, txtEventTrigger As String Dim txtEventDate, txtEventTrigger '---retrieves the key for the row--- ID = MyDataList.DataKeys(e.Item.ItemIndex) 'MsgBox("1") '---find the textbox control containing the title tbox = CType(e.Item.FindControl("txtEventDate"), TextBox) txtEventDate = tbox.Text 'MsgBox("2") '---find the textbox control containing the price tbox = CType(e.Item.FindControl("txtEventTrigger"), TextBox) txtEventTrigger = tbox.Text 'MsgBox("3") '---updates the database--- Dim sql As String = "UPDATE programs SET date_Completed='" + txtEventDate + "' , date_Trigger='" + txtEventTrigger + "' WHERE ID='" + ID + "'" Dim comm As New OleDbC
-
Hi, The Error might be [Datatype in the database must be numeric and you are assigning a string to it], If your database is ms-access use "#" for the date columns.
-
can you show me an example code to put in access or the codefile? becos i don really get what u say.
frossie
-
can you show me an example code to put in access or the codefile? becos i don really get what u say.
frossie
Hi, check this out, (1) "UPDATE programs SET date_Completed=#" + txtEventDate + "# , date_Trigger=#" + txtEventTrigger + "# WHERE ID='" + ID + "'" (2) "UPDATE programs SET date_Completed=#" + txtEventDate + "# , date_Trigger=#" + txtEventTrigger + "# WHERE ID=" + ID for (1) provided [date_completed is date, date_trigger is date and ID is string] in database for (2) provided [date_completed is date, date_trigger is date and ID is numeric] in database display this query string in ur browser and copy paste in database, run it out and check.
-
Hi, check this out, (1) "UPDATE programs SET date_Completed=#" + txtEventDate + "# , date_Trigger=#" + txtEventTrigger + "# WHERE ID='" + ID + "'" (2) "UPDATE programs SET date_Completed=#" + txtEventDate + "# , date_Trigger=#" + txtEventTrigger + "# WHERE ID=" + ID for (1) provided [date_completed is date, date_trigger is date and ID is string] in database for (2) provided [date_completed is date, date_trigger is date and ID is numeric] in database display this query string in ur browser and copy paste in database, run it out and check.
-
If (ID = 2) Then TextBox1.Text = ds.Tables("programs").Rows(ID).Item(2) Dim temp1 As New DateTime(Year(TextBox1.Text), Month(TextBox1.Text), Day(TextBox1.Text)) MsgBox("temp1=" + temp1) temp1 = temp1.AddDays(7) ds.Tables("programs").Rows(ID + 1).Item(3) = temp1 End If
i keep getting this error "Object reference not set to an instance of an object". Why isit so?frossie
-
If (ID = 2) Then TextBox1.Text = ds.Tables("programs").Rows(ID).Item(2) Dim temp1 As New DateTime(Year(TextBox1.Text), Month(TextBox1.Text), Day(TextBox1.Text)) MsgBox("temp1=" + temp1) temp1 = temp1.AddDays(7) ds.Tables("programs").Rows(ID + 1).Item(3) = temp1 End If
i keep getting this error "Object reference not set to an instance of an object". Why isit so?frossie