
Vanilla 1.1.9 is a product of Lussumo. More Information: Documentation, Community Support.
| Code: |
| Imports System.Data
Imports System.Data.OleDb Imports System.Windows.Forms.DataVisualization.Charting Public Class Attendence_By_Hall Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load LoadChart() End Sub Sub LoadChart() Dim dt As New DataTable Dim dv As New DataView dt = GetData("7") dv = New DataView(dt) Chart1.ChartAreas("ChartArea1").Area3DStyle.Enable3D = True Chart1.Series.Clear() Chart1.Palette = ChartColorPalette.Pastel Chart1.DataBindTable(dv, "NUM_ATTEND") Chart1.Series(0).Name = "Hall1" Chart1.Series(0).ChartType = SeriesChartType.Line End Sub Function GetData(ByVal Name As String) As DataTable Dim fileNameString As String Dim dt As New DataTable fileNameString = "c\Temp\test.mdb" Dim ConnnectionString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + fileNameString Dim SQL As String = "SELECT RL_Events.NUM_ATTEND FROM RL_Events INNER JOIN RA_NAME ON RL_Events.SPONSOR_ID=HALL.ID where Hall.Hall_Name= '" & Name & "'" Dim conn As New OleDbConnection(ConnnectionString) Dim Command As New OleDbCommand(SQL, conn) conn.Open() Dim da As New OleDbDataAdapter(Command) da.Fill(dt) conn.Close() Return dt End Function End Class |
| Code: |
|
Dim SQL As String = "SELECT RL_Events.NUM_ATTEND FROM RL_Events INNER JOIN RA_NAME ON RL_Events.SPONSOR_ID=HALL.ID where HALL.HALL_NAME= '" & Name & "'" |