Mer problem...

Det här ska väl funka ??

Codebehind:

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

'=======================================
'## Uppdaterar vald menu i databasen ##

Dim EntryId As Integer = Request.QueryString("id")
Dim Linkname As String = myLinkName.Text

Dim objBLDialog As myDialogClass = New myDialogClass()

Try
objBLDialog.UpdateMenuEntry(EntryId, Linkname)
objBLDialog = Nothing
Catch ex As Exception
Throw (ex)
End Try

End Sub

myBLClass.vb:

'=========================
'## Uppdatera nyheterna ##

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 ??

Kanske kan vara myLinkName.Text som spökar? :q
Testa att lägga in detta i din code-behind:

Protected WithEvents myLinkName As Textbox

Förmodar att myLinkName är en textbox ;)

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

Vilken rad är det felmeddelandet pekar på?

I din myBLClass.vb, har du döpt klassen till myDialogClass?

Rad 59: Dim LinkName As String = myLinkName.Text

Josef skrev:

I din myBLClass.vb, har du döpt klassen till myDialogClass?

Japps det stämmer ...

Och du är säker på att du verkligen har döpt Textboxen till myLinkName?

Josef skrev:

Och du är säker på att du verkligen har döpt Textboxen till myLinkName?

Japps helt säker på det med :)

Ligger myLinkName i en repeater eller liknande?

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

blir en liten knivig lösning det där eftersom varje rad inte har en ok knapp ...

Dino skrev:

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?

fel av mig ... page.registerstartupscript("close", "<script>window.close();</script>") funkar utmärkt ...