Generate a list in multiline texbox of database

Question

0.00/5 (No votes)

See more:

hai there i have been trying to generate a list of databases to multi line textbox for futher use but i get system.data.row as list of error
every data base is lodedin my combobox1 as menu but....
error for multiline text

Imports System.Text
Imports MySql.Data.MySqlClient

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim dataset As New DataSet
        Dim SQL As String
        Dim myData As New DataTable    
        Dim view As New DataView(myData)
        Dim connStr As String = "server=localhost;user=root;database=YourDATABasename;port=3306;password=YourPassWord;"
        Dim cmd As New MySqlCommand()
        Dim conn As New MySqlConnection(connStr)  
        Try
            conn.Open()
			 SQL = "Show Databases;"
        myCommand.Connection = conn
        myCommand.CommandText = SQL
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData)
        ComboBox1.DataSource = myData
        ComboBox1.DisplayMember = "Database"
            'MessageBox.Show("Connection Opened Successfully!")
        Catch myerror As MySqlException
            MessageBox.Show("Error was encountered when connecting" & myerror.Message)
        Finally

        End Try
        conn.Close()
    '---------------------------error Begning----------------------------------
	'this is where the errror is i get system.data.row like lise 	
        'For Each item In ComboBox1.Items
        '    MsgBox(item.ToString())
        '    Dim tem As String = (item.value).ToString & vbNewLine
        '    tempstring &= tempstring(item).ToString & vbNewLine
        '    MsgBox(tem)
        'Next
	'---------------------------------------------------------------------------	
TextBox1.Text = tempstring
    End Sub
End Class

What I have tried:

'---------------------------------------------------------------------------------------   
	   'For Each item In ComboBox1.Items
        '    MsgBox(item.ToString())
        '    Dim tem As String = (item.value).ToString & vbNewLine
        '    tempstring &= tempstring(item).ToString & vbNewLine
        '    MsgBox(tem)
        'Next
        'TextBox1.Text = 
        '    for each (DataRow row in myData.Rows)
        '            {
        '        For Each q In myData.Rows("Detail")
        'strDetail = Row of Column Detail
        '        Next
'---------------------------------------------------------------------------------------

        For Each item As DataColumn In myData.Columns
            ' MsgBox(CStr(row.ToString()))

            Dim rowValue As New ColumnValue
            rowValue.ColumnName = item.Caption
            'rowValue.ColumnValue = row.Item(item.Ordinal)
            'RowValues.Add(rowValue)
            'rowValue = Nothing
            'tempstring &= tempstring = CStr(row.ToString) & vbNewLine
            item.ToString()
            tempstring = tempstring & item.ToString & vbNewLine
        Next item

'---------------------------------------------------------------------------------------
        'Dim o As Object = myData.Rows.Item(1).Item("Column")
        'For i = 0 To 16

        '    Dim myStr As String = myData.Rows.Caption.ToString()
        '    tempstring = tempstring & myStr.ToString & vbNewLine
        'Next

'---------------------------------------------------------------------------------------

        'For Each myData In dataset.Tables
        '     For each row, print the values of each column.
        '        Dim row As DataRow
        '        For Each row In myData.Rows
        '            Dim column As DataColumn
        '            For Each column In myData.Columns
        '                Console.WriteLine(row(column))
        '                tempstring = tempstring & (row(column).caption) & vbNewLine
        '            Next column
        '        Next row
        '    Next myData
'---------------------------------------------------------------------------------------
        ' TextBox1.Text = tempstring

Posted 25-Dec-20 18:16pm

Member 10974007

Updated 27-Dec-20 1:22am

Add a Solution

Comments

Richard MacCutchan 26-Dec-20 3:41am

What do you see in the message box at the following line:

MsgBox(item.ToString())

Member 10974007 26-Dec-20 5:04am

i wanna a list of database from mysql to be in textbox1 as you can see in combobox1.txt

Member 10974007 26-Dec-20 5:05am

combobox1

Member 10974007 26-Dec-20 5:10am

system.data.row

Richard MacCutchan 26-Dec-20 5:41am

Then you need to get the value from the row object.

Member 10974007 26-Dec-20 7:09am

Yes how to do so I have tried also error

Richard MacCutchan 26-Dec-20 7:22am

If the item returned from the ComboBox is a DataRow, then you need to get the actual string from the appropriate column of the DataRow.

Member 10974007 26-Dec-20 7:46am

i have tried multiples tries before posting this. Here
...

Richard MacCutchan 26-Dec-20 7:55am

Use the documentation to see the properties of a DataRow, and use the debugger to step through the code to see what is happening.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Member 14594830 · Answer 1 · 2020-12-27T01:22:00

Here is the example code that might help you:

using System.Data.SqlClient;

namespace StackTest
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            string connectionString = @"Data Source=(localdb)\Projects;Initial Catalog=DbTest;Integrated Security=True;Connect Timeout=30;Encrypt=False;TrustServerCertificate=False";
            string selectString = "select * from TblTest";
            textBox1.Multiline = true;

            SqlConnection conn = new SqlConnection(connectionString);
            SqlCommand cmd = new SqlCommand(selectString,conn);

            conn.Open();
            SqlDataReader rdr = cmd.ExecuteReader();

            while (rdr.Read())
            {
                textBox1.Text += rdr[0];
                textBox1.Text += rdr[1];
                //...
                textBox1.Text += Environment.NewLine;
            }

            conn.Close();                 
        }
    }
}