Search code examples
mysqlvb.nettextbox

how to retrieve mysql data in vb.net?


im trying to retrieve mysql data with specific column and show to textbox in vb.net. what should i do in retrieving it?

Dim connect As New MySqlConnection("server=localhost; user id=root; password= ; database=ticketing_system;")
    connect.Open()

    Dim sqladapter As New MySqlDataAdapter
    Dim sqlcmd As New MySqlCommand
    Dim dr As MySqlDataReader
    Dim dt As New DataTable

    sqlcmd = New MySqlCommand("SELECT * complaint WHERE tran_no='" & lbltranno.Text & "'")
    **THEN? WHAT SHOULD I DO TO DISPLAY DATA? PLEASE HELP**

    connect.Close()

Solution

  • Imports System.Data.SqlClient
    Public Class Form1
    Dim c As New SqlConnection("Data Source=SONY;Initial Catalog=msdb;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dr As SqlDataReader
    Dim ds, ds1 As New DataSet
    Private Sub btnsub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles      btnsub.Click
        Try
            ds.Clear()
            c.Open()
            cmd = New SqlCommand("select Sub_Name from Subject_Detail WHERE Course='" + txtcourse.Text + "'", c)
            da = New SqlDataAdapter(cmd)
            da.Fill(ds, "Subject_Detail")
            Label1.Text = ds.Tables(0).Rows(0).Item(0)
            Label2.Text = ds.Tables(0).Rows(1).Item(0)
            Label3.Text = ds.Tables(0).Rows(2).Item(0)
            Label4.Text = ds.Tables(0).Rows(3).Item(0)
            Label5.Text = ds.Tables(0).Rows(4).Item(0)
            Label6.Text = ds.Tables(0).Rows(5).Item(0)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            c.Close()
        End Try
    End Sub
    End Class
    

    'This code display all subject name from the table into labels.This might be helped.