hi there...

u mentioned in ur article : "To test this code, create a Windows application and add a DataGrid control to the form and write code listed in Listing 11-2 on the form load."

but i can only see Listing 1. so where can i find the Lingting 11 and 12?

thank you...

Public Class frmIVvsRLZ
Private Sub cmdChart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChart.Click
Dim rdr As MySqlDataReader
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim SQL1 As String

conn.ConnectionString = My.Settings.connectionString

SQL1 = “SELECT CLOSINGDATE, HISTO10D FROM TBLHISTOVOLBBG WHERE EQUITY_ID=1845 ORDER BY CLOSINGDATE DESC”

Try
conn.Open()

Try

cmd.CommandText = SQL1
cmd.Connection = conn
rdr = cmd.ExecuteReader

chartHistoIVvsRLZ.DataSource = rdr

chartHistoIVvsRLZ.DataBind()

Catch myerror As MySqlException
MsgBox(“There was an error reading from the database: ” & myerror.Message)
End Try
Catch myerror As MySqlException
MessageBox.Show(“Error connecting to the database: ” & myerror.Message)
Finally
If conn.State ConnectionState.Closed Then conn.Close()
End Try
End Sub

End Class

--------------------------------

As well I teid this

------------------------------------------

Imports MySql.Data.MySqlClient
Imports MySql.Data
Imports System.Data
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim query As String = “SELECT CLOSINGDATE, HISTO10D FROM TBLHISTOVOLBBG WHERE EQUITY_ID=1845 ORDER BY CLOSINGDATE DESC”
Dim connection As New MySqlConnection(My.Settings.connectionString)
Dim da As New MySqlDataAdapter(query, connection)
Dim ds As New DataSet()

If da.Fill(ds) Then
Chart1.DataSource = ds.Tables(0)
Chart1.DataBind()
End If
connection.Close()

Catch ex As Exception
Console.WriteLine(ex.Message)

End Try
End Sub
End Class

Can you explain this code please.

Dim connectionString As String = "Driver={MySQL};SERVER=localhost;DATABASE=NorthwindMySQL;" '
Dim conn As New OdbcConnection(connectionString)
conn.Open()