Har en freetextbox som jag ska använda till editering av en viss text.. först läser jag in texten med en ftb.text = värde och sedan editerar texten och sedan en update sats. De problem jag har är att om ja har ftb.text = värde aktiviterad fungerar inte update satsen, utan den bara vill läsa in den gamla texten lokalt och på webservern så kapar den texten och skriver bara in första raden.
Tips?
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
placeandra.Visible = True
placeforhand.Visible = False
Dim strsql As String = "SELECT * FROM(texter) WHERE (((Texter.Namn)='startinfo'));"
Dim db As String = "texter"
Dim ds As DataSet = DbHandler.getData(strsql, db)
Dim texten As String = ds.Tables(0).Rows(0)("texten").ToString()
info.Text = texten
End Sub
Public Sub update_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs)
'<- Databasanslutning ->
Dim strConn As String = DbHandler.GetstrConnection
Dim myConnection As New OleDbConnection(strConn)
'<- Hämta all ifyllt data från webbsidan ->
Dim Ainfo As String = info.Text
'Dim Uploader_value As String = getname(HttpContext.Current.User.Identity.Name)
'Dim Tnman As String = getname(HttpContext.Current.User.Identity.Name)
Dim strSQL As String = "UPDATE Texter SET texten= @texta WHERE (((Namn)='Startinfo'));"
'Response.Write(Ainfo)
Dim myCommand As New OleDbCommand(strSQL, myConnection)
myCommand.Parameters.Add("@texta", OleDbType.LongVarChar, 8000).Value = Ainfo
Dim numRowsAffected As Integer = 0
Try
myCommand.Connection.Open()
numRowsAffected = myCommand.ExecuteNonQuery()
myCommand.Connection.Close()
Catch ex As Exception
lblMessage.Text = ex.Message
Exit Sub
End Try
If numRowsAffected > 0 Then
lblMessage.Text = lblMessage.Text & "Information sparad"
Else
lblMessage.Text = lblMessage.Text & "Information INTE sparat"
End If
'Response.Redirect("nyaktiv.aspx")
End Sub