VB.NET Database Retrieval

Question

I have a VB.NET application that has instant messaging-like functionality with a database. It can retrieve the values just fine, but the problem is the formatting isnt coming out right. I want the format to be as follows:

Sender: Message

(so...)

David: Hey guys

What I've tried below doesn't get me the result I'm looking for, it just prints the sender at the top of the rich textbox in my application and the message at the bottom, does anyone have any ideas?

 '-------------------Retreives the message-------------------------------------------------------------
        Dim sqlStr As String = "SELECT * FROM dojodb.chats"
        Dim chatcommand As New MySqlCommand(sqlStr, MysqlConn)
        Dim rdr As MySqlDataReader = chatcommand.ExecuteReader()
        Dim tbl As New DataTable
        tbl.Load(rdr)


        '-------For every row, print the message, skip a line, and add 1 so it goes to next msg--     ------
        For i As Integer = 0 To tbl.Rows.Count - 1
            rowIndex = i

            strSender &= CStr(tbl.Rows(rowIndex)("Sender")) & vbNewLine

            strMessage &= CStr(tbl.Rows(rowIndex)("Message")) & vbNewLine

            strOutPut = strSender + ": " + strMessage

        Next
        txtGroupChat.Text = strOutPut

        'Keeps the richtextbox scrolled to the bottom so that most recent msg is always shown
        txtGroupChat.SelectionStart = txtGroupChat.Text.Length
        txtGroupChat.ScrollToCaret()

        strOutPut = "" 'clearing the string so that it does not print out duplicate info next time
        strSender = ""
        strMessage = ""
        '-------------------------End Retrive---------------------------------------

simon at rcl · Accepted Answer · 2014-11-30 17:47:09Z

1

I feel a bit embarrassed posting this, but...

  strSender = CStr(tbl.Rows(rowIndex)("Sender")) & ": "

  strMessage = CStr(tbl.Rows(rowIndex)("Message")) & vbNewLine

strOutPut &= strSender & strMessage

What do you think vbNewLine does? Also, be careful of &=

answered Nov 30, 2014 at 17:47

simon at rcl

7,3691 gold badge21 silver badges25 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

simon at rcl Over a year ago

Well, give us a clue then. What happens?

Collectives™ on Stack Overflow

VB.NET Database Retrieval

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related