textbox multiline Access VB

Expand Post »

I am having trouble with textbox multiline when it store to Access database and returning in gridview show one chunk of string. Is there anyway to place each data into each own row?
Input:

google

yahoo

msn

Output:

www.google.com

www.yahoo.com

www.msn.com

But right now it is give me www.googleyahoomsn.com

Here is my code:

asp.net Syntax (Toggle Plain Text)
Sub btnSubmitClicked(ByVal S As Object, ByVal e As EventArgs)
 
        Dim conn1 As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=C:\Data\audit.mdb")
        Dim strInsert As String
        Dim strDelete As String
        Dim cmdInsert As OleDbCommand
        Dim cmdDelete As OleDbCommand
 
        TextBox1.TextMode = TextBoxMode.MultiLine
        TextBox1.MaxLength = 15
 
        strInsert = "Insert into audit(fldLocation) values ('" & TextBox1.Text & "')"
        strDelete = "DELETE * FROM audit "
        cmdInsert = New OleDbCommand(strInsert, conn1)
        cmdDelete = New OleDbCommand(strDelete, conn1)
        conn1.Open()
 
 
        cmdDelete.ExecuteNonQuery()
 
        cmdInsert.ExecuteReader()
 
 
        conn1.Close()
        Response.Redirect("audit.aspx")
 
 
    End Sub
End Class
Sub btnSubmitClicked(ByVal S As Object, ByVal e As EventArgs)

        Dim conn1 As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=C:\Data\audit.mdb")
        Dim strInsert As String
        Dim strDelete As String
        Dim cmdInsert As OleDbCommand
        Dim cmdDelete As OleDbCommand

        TextBox1.TextMode = TextBoxMode.MultiLine
        TextBox1.MaxLength = 15

        strInsert = "Insert into audit(fldLocation) values ('" & TextBox1.Text & "')"
        strDelete = "DELETE * FROM audit "
        cmdInsert = New OleDbCommand(strInsert, conn1)
        cmdDelete = New OleDbCommand(strDelete, conn1)
        conn1.Open()

            
        cmdDelete.ExecuteNonQuery()

        cmdInsert.ExecuteReader()


        conn1.Close()
        Response.Redirect("audit.aspx")


    End Sub
End Class

Last edited by peter_budo; Oct 13th, 2009 at 2:20 pm. Reason: Keep It Organized - For easy readability, always wrap programming code within posts in [code] (code blocks)

Similar Threads

SQL Data into Textbox or Listbox in C#
Fill Textbox w/ DataReader from Access and allowing user's to update in ASP.NET
how to update an access database using a textbox in vb in Visual Basic 4 / 5 / 6
textbox value check with Access in C#
MultiLine TextBoxes in GridView edit mode in ASP.NET

jumping45

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Oct 2009

Permalink

Oct 13th, 2009

Re: textbox multiline Access VB

Click to Expand / Collapse Quote originally posted by jumping45 ...

I am having trouble with textbox multiline when it store to Access database and returning in gridview show one chunk of string. Is there anyway to place each data into each own row?
Input:

google

yahoo

msn

Output:

www.google.com

www.yahoo.com

www.msn.com

But right now it is give me www.googleyahoomsn.com

Here is my code:

Sub btnSubmitClicked(ByVal S As Object, ByVal e As EventArgs)

Dim conn1 As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=C:\Data\audit.mdb")
Dim strInsert As String
Dim strDelete As String
Dim cmdInsert As OleDbCommand
Dim cmdDelete As OleDbCommand

TextBox1.TextMode = TextBoxMode.MultiLine
TextBox1.MaxLength = 15

strInsert = "Insert into audit(fldLocation) values ('" & TextBox1.Text & "')"
strDelete = "DELETE * FROM audit "
cmdInsert = New OleDbCommand(strInsert, conn1)
cmdDelete = New OleDbCommand(strDelete, conn1)
conn1.Open()

cmdDelete.ExecuteNonQuery()

cmdInsert.ExecuteReader()

conn1.Close()
Response.Redirect("audit.aspx")

End Sub
End Class

Hi there

I assume that you have " " single blanck space as separator in ur input. pls. follow the code below...

ASP.NET Syntax (Toggle Plain Text)
 
 
 Private Function DoStuff() As String
        Dim arr As Array
        Dim str As String = "yahoo google gmail" 'i assume your input with singe space 
        Dim strResult As String
 
        arr = str.Split(" ")
 
        For i As Integer = 0 To UBound(arr)
            strResult += "www." & arr(i) & ".com" & ", "
        Next
        Return strResult
 
    End Function
 
'use it dostuff function in your query
strInsert = "Insert into audit(fldLocation) values ('" & DoStuff.ToString & "')"

 Private Function DoStuff() As String
        Dim arr As Array
        Dim str As String = "yahoo google gmail" 'i assume your input with singe space 
        Dim strResult As String

        arr = str.Split(" ")

        For i As Integer = 0 To UBound(arr)
            strResult += "www." & arr(i) & ".com" & ", "
        Next
        Return strResult

    End Function

'use it dostuff function in your query
strInsert = "Insert into audit(fldLocation) values ('" & DoStuff.ToString & "')"

Pls. mark as solved if it helps you!!!

Last edited by reach_yousuf; Oct 13th, 2009 at 4:25 am.

reach_yousuf

Reputation Points: 12

Solved Threads: 38

Junior Poster

Offline

194 posts
since Sep 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in ASP.NET Forum Timeline: Onclick event method only works once.

Next Thread in ASP.NET Forum Timeline: Need help for Regular Expression

DaniWeb Message

Cancel Changes

User Name
Password