---
title: "FreeTextBox"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/157384-freetextbox"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "MizzK"
published: "2007-02-20T12:53:22.000Z"
updated: "2007-02-20T20:50:45.000Z"
replies: 1
views: 362
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/157384-freetextbox"
---

# FreeTextBox

## #1 — MizzK, 2007-02-20T12:53Z

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

Permalänk: https://www.webforum.nu/p/157384

## #2 — emission, 2007-02-20T20:50Z

Stuvade om lite:

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

	If Not IsPostBack Then
		
		BindData()
		
	End If
    End Sub

    Private Sub BindData()
	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
```

Permalänk: https://www.webforum.nu/p/1936235

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/157384-freetextbox