VB.net cannot Retrive Arabi or Urdu from MySql WAMP server

**iqbalnazim** · Oct 9 '12, 09:24 PM

HERE IS MY VB.NET CODE:

Code:

Imports MySql.Data.MySqlClient


Public Class Spider_Prompt

    Dim conn As Common.DbConnection
    Dim da As Common.DbDataAdapter
    Dim ds As DataSet = New DataSet
    Dim cnString As String
    Dim query_rundown As String
    Dim query_tblrundownnames As String
    'Dim dt As DataTable


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

        '''''DATE AND TIME
        Label11.Text = Now.ToString("D")
        Label12.Text = Now.ToString("T")
        '''''DATE AND TIME
        'Call ConnectDatabase()


        '''''''' SECOND GRID FOR GETTING ID OF MOS ACTIVE, BUT SHOULD PRINT ON LABELS

        cnString = "datasource=localhost;username=root;password=;database=spidernews;charset=utf8;"
        query_tblrundownnames = "Select id,mosactive,rundown_names,rundown_time from tblrundownnames where mosactive = 'ONAIR'"
        conn = New MySqlConnection(cnString)

        Try
            conn.Open()
            da = New MySqlDataAdapter(query_tblrundownnames, conn)
            Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da)
            da.Fill(ds, "tblrundownnames a tblcurrentrundown b")
            DataGridView2.DataSource = ds
            DataGridView2.DataMember = "tblrundownnames a tblcurrentrundown b"

            Dim i, j As Integer
            lbl_R_archiveid.Text = DataGridView2.Item(0, i).Value
            lbl_R_Heading.Text = DataGridView2.Item(2, i).Value
            lbl_R_Status.Text = DataGridView2.Item(1, i).Value

        Catch ex As Common.DbException
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try

        '''''''' SECOND GRID FOR GETTING ID OF MOS ACTIVE, BUT SHOULD PRINT ON LABELS

        '''''Data Grid 1: FOR tblcurrentrundown
        cnString = "datasource=localhost;username=root;password=;database=spidernews;Character Set=utf8"
        query_rundown = "SET NAMES UTF8; SET CHARACTER SET UTF8;Select newstitle,newstext,listorder,newsid,newsduration,newstype,archiveid,newsoption,storyfloat from tblcurrentrundown where archiveid= '" & lbl_R_archiveid.Text & "' order by listorder"
        conn = New MySqlConnection(cnString)

        Try
            conn.Open()
            da = New MySqlDataAdapter(query_rundown, conn)
            Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da)
            da.Fill(ds, "tblcurrentrundown")
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "tblcurrentrundown"

            'DataGridView1.Columns(2).Visible = False
            DataGridView1.Columns(6).Visible = False
            DataGridView1.Columns(7).Visible = False
            DataGridView1.Columns(8).Visible = False

        Catch ex As Common.DbException
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try

        '''''''' TEXT BOX READING URDU TEXT FILE COMPOSE FROM UrduNigarUnicode

        Dim FILE_NAME As String = "D:\VB.NET-WIN-PLUS\01-DEMO-PROMPTER\UrduNigarUnicode.txt"
        Dim TextLine As String
        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)

            Do While objReader.Peek() <> -1
                TextLine = TextLine & objReader.ReadLine() & vbNewLine
            Loop
            RichTextBox2.Text = TextLine
        Else
            MsgBox("File Does Not Exist")
        End If

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        'RichTextBox1.Text = DataGridView1.CurrentCell.Value
        'Prompter.RichTextBox1.Text = DataGridView1.CurrentCell.Value
        Dim i, j As Integer
        i = DataGridView1.CurrentRow.Index

        RichTextBox1.Text = DataGridView1.Item(1, i).Value
        Prompter.RichTextBox1.Text = DataGridView1.Item(1, i).Value

    End Sub



    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Prompter.Show()

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Controller.Show()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        'Me.Refresh()
        DataGridView1.Refresh()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        'Me.Refresh()
        DataGridView1.Refresh()

    End Sub

    Private Sub Button_NEXT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_NEXT.Click

        Dim i, j As Integer
        i = DataGridView1.CurrentRow.Index

        Dim lastRowNum As Integer = (Me.DataGridView1.Rows.Count - 1 - 1)
        Dim curDataGridViewRow As DataGridViewRow = DataGridView1.CurrentRow
        Dim curRowNum As Integer = curDataGridViewRow.Index
        If (curRowNum >= lastRowNum) Then

            MsgBox("RUN DWON END -- BUR NOT SELECT THE LAST ROW")

        Else

            Dim nextRow As DataGridViewRow = DataGridView1.Rows(curRowNum + 1)
            DataGridView1.CurrentCell = nextRow.Cells(0)
            nextRow.Selected = True

            RichTextBox1.Text = DataGridView1.Item(0, i).Value

        End If

    End Sub

    Private Sub Button_Previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Previous.Click

        Dim i, j As Integer
        i = DataGridView1.CurrentRow.Index

        Dim lastRowNum As Integer = (Me.DataGridView1.Rows.Count + 1 + 1)
        Dim curDataGridViewRow As DataGridViewRow = DataGridView1.CurrentRow
        Dim curRowNum As Integer = curDataGridViewRow.Index
        If (curRowNum >= lastRowNum) Then

            MsgBox("ERROR: ON FIRST ROW SELECTED")

        Else

            Dim nextRow As DataGridViewRow = DataGridView1.Rows(curRowNum - 1)
            DataGridView1.CurrentCell = nextRow.Cells(0)
            nextRow.Selected = True

            RichTextBox1.Text = DataGridView1.Item(0, i).Value

        End If
    End Sub

   
End Class

VB.net cannot Retrive Arabi or Urdu from MySql WAMP server

VB.net cannot Retrive Arabi or Urdu from MySql WAMP server

Comment