Function UpdateMenuEntry(ByVal EntryId As Integer, ByVal Linkname As String)
Dim strSQL As String = "UPDATE tblMenu SET" & _
" MenuName = '" & CheckUserInput(Linkname) & "'," & _
" WHERE MenuId = " & EntryId
Return ExecuteNonQuery(strSQL)
End Function
Kan tillägga att jag postar från en dialogruta men det ska ju inte vara annorlunda för det.
Objektreferensen har inte angetts till en instans av ett... får jag som felmeddelande ??
Jag har redan detta i min code behind ... Protected WithEvents myLinkName As Textbox... funkar inte att sätta myLinkName.Text = "apa" vid knapptryck ens hmm
myLinkName ligger i en datalist ... gjorde så att jag ändrade till
Dim LinkName As String = "test" och då va det inga problem att skriva till databasen ... problemet ligger i att jag vill tilldela LinkName myLinkName.Text ... det går den inte med på ... någon alternativ lösning på det?
Ok, du måste ju veta vilken TextBox i DataListen som det gäller och då kan du gå via Datalistens ItemCommand event. I vb blir det väl nått sånt här. Detta förutsätter ju att varje rad i datalisten har en Ok knapp.
Private Sub Item_Command(sender As Object, e As DataListCommandEventArgs) Handles datalistnamn.ItemCommand
Dim EntryId As Integer = Request.QueryString("id")
Dim Linkname As String = DirectCast(e.Item.FindControl("myLinkName"), TextBox).Text
Dim objBLDialog As myDialogClass = New myDialogClass()
Try
objBLDialog.UpdateMenuEntry(EntryId, Linkname)
Catch ex As Exception
Throw (ex)
Finally
objBLDialog = Nothing
End Try
End Sub
Ok, du måste ju veta vilken TextBox i DataListen som det gäller och då kan du gå via Datalistens ItemCommand event. I vb blir det väl nått sånt här. Detta förutsätter ju att varje rad i datalisten har en Ok knapp.
Private Sub Item_Command(sender As Object, e As DataListCommandEventArgs) Handles datalistnamn.ItemCommand
Dim EntryId As Integer = Request.QueryString("id")
Dim Linkname As String = DirectCast(e.Item.FindControl("myLinkName"), TextBox).Text
Dim objBLDialog As myDialogClass = New myDialogClass()
Try
objBLDialog.UpdateMenuEntry(EntryId, Linkname)
Catch ex As Exception
Throw (ex)
Finally
objBLDialog = Nothing
End Try
End Sub
Jag gjorde såhär...
Sub Update_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs)
'=======================================
'## Uppdaterar vald menu i databasen ##
Dim EntryId As Integer = Request.QueryString("id")
Dim Link As TextBox = CType(e.Item.FindControl("myLinkName"), TextBox)
Dim LinkName As String = Link.Text
Dim objBLDialog As myDialogClass = New myDialogClass()
Try
objBLDialog.UpdateMenuEntry(EntryId, LinkName)
objBLDialog = Nothing
Catch ex As Exception
Throw (ex)
End Try
End Sub
Har testat att lägga till page.registerstartupscript("close", "window.close();") för att stänga fönstret men det funkar inget vidare ... någon som har några tips?
