Membuat chart ( grapic) di vb.net part1

Import packet yang diperlukan :

Ketikkan di code ini General declaration
Imports System
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Imports owc11 = Microsoft.Office.Interop.Owc11
Imports Microsoft.Office.Interop

Membuat object dan string koneksi :

Namespace AccesData
Imports System.Data
Imports System.Data.OleDb

Public Class DatabaseConnection

Dim objConnection As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0 ;data source=D:\Perpustakaan\coding\tutorial\jun\grapic\acces\bin\Graph.mdb")

Public Function open() As OleDbConnection
objConnection.Open()
Return objConnection
End Function

Public Function close() As OleDbConnection
objConnection.Close()
Return objConnection
End Function
End Class
End Namespace

Form declaration
public Class Form1
Inherits System.Windows.Forms.Form
Dim MyConnection As New AccesData.DatabaseConnection

Delaration public
#Region "Declaration"
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim strSQL As String
Dim objDataSet As New DataSet
Dim objDataTable As New DataTable
#End Region

Tampil datagrid
Sub View_Data()
objDataTable.Clear()
strSQL = "select * from [Cat]"
objCommand = New OleDbCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "Mdt_Cat")
MyConnection.close()
objDataTable = objDataSet.Tables("Mdt_Cat")
DataGrid1.DataSource = objDataTable
End Sub

Source : http://ilmukomputer.org