I want to generate a Crystal Report from a SQL database that has two columns - Time & Data but break the data in columns by hour.
00:00______| 01:00______| 02:00
00:21 - 181.4 01:18 - 194.2 02:12 - 187.3
00:22 - 181.2 01:19 - 192.9 02:13 - 188.1
I can put the data in listboxes by time but how would I go about putting it into a DataGridView?
From there I should be able to create the datatables to fill the CR or can I skip all this excess?
Thanks for the help in advance.
00:00______| 01:00______| 02:00
00:21 - 181.4 01:18 - 194.2 02:12 - 187.3
00:22 - 181.2 01:19 - 192.9 02:13 - 188.1
I can put the data in listboxes by time but how would I go about putting it into a DataGridView?
From there I should be able to create the datatables to fill the CR or can I skip all this excess?
Thanks for the help in advance.
Code:
Imports System.Data
Imports System.Data.SqlClient
Public Class frmMain
Dim SQLConn As New SqlConnection
Dim cmd As SqlCommand
Dim dr As SqlDataReader
Dim sql As String
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadData()
End Sub
Private Sub DBconnect()
Try
SQLConn = New SqlConnection("server=NALC-1594\SQLEXPRESS;User ID=Safety-1; Password=nalc-safety1st;database=PumpHouse")
SQLConn.Open()
Catch ex As Exception
MessageBox.Show("ERROR - " & (Err.Description) & "", "Please Contact Your IT Department With This Error!!")
End Try
End Sub
Private Sub DBdisconnect()
SQLConn.Close()
End Sub
Private Sub LoadData()
Dim Fdate As String = Date.Today.AddDays(-1).ToString("yyyy-MM-dd")
DataGridView1.Rows.Clear()
DataGridView1.ColumnCount = 6
DataGridView1.Columns(0).Name = "00:00"
DataGridView1.Columns(1).Name = "01:00"
DataGridView1.Columns(2).Name = "02:00"
DataGridView1.Columns(3).Name = "03:00"
DataGridView1.Columns(4).Name = "04:00"
DataGridView1.Columns(5).Name = "05:00"
DataGridView1.Columns(0).Width = 95
DataGridView1.Columns(1).Width = 95
DataGridView1.Columns(2).Width = 95
DataGridView1.Columns(3).Width = 95
DataGridView1.Columns(4).Width = 95
DataGridView1.Columns(5).Width = 95
DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView1.RowTemplate.Height = 15
DataGridView1.Width = 1000
Dim rowId As Integer = DataGridView1.Rows.Add()
Dim row As DataGridViewRow = DataGridView1.Rows(rowId)
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 00:00:00' AND '" & Fdate & " 01:00:00'"
DBconnect()
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
DataGridView1.Rows.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 01:00:01' AND '" & Fdate & " 02:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0100.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 02:00:01' AND '" & Fdate & " 03:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0200.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 03:00:01' AND '" & Fdate & " 04:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0300.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 04:00:01' AND '" & Fdate & " 05:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0400.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 05:00:01' AND '" & Fdate & " 06:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0500.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 06:00:01' AND '" & Fdate & " 07:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0600.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 07:00:01' AND '" & Fdate & " 08:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0700.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 08:00:01' AND '" & Fdate & " 09:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0800.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 09:00:01' AND '" & Fdate & " 10:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst0900.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 10:00:01' AND '" & Fdate & " 11:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1000.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 11:00:01' AND '" & Fdate & " 12:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1100.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 12:00:01' AND '" & Fdate & " 13:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1200.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 13:00:01' AND '" & Fdate & " 14:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1300.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 14:00:01' AND '" & Fdate & " 15:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1400.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 15:00:01' AND '" & Fdate & " 16:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1500.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 16:00:01' AND '" & Fdate & " 17:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1600.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 17:00:01' AND '" & Fdate & " 18:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1700.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 18:00:01' AND '" & Fdate & " 19:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1800.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 19:00:01' AND '" & Fdate & " 20:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst1900.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 20:00:01' AND '" & Fdate & " 21:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst2000.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 21:00:01' AND '" & Fdate & " 22:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst2100.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 22:00:01' AND '" & Fdate & " 23:00:00'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst2200.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
sql = "SELECT [Time_Date],[Data] FROM [PumpHouse].[dbo].[PumpData]
WHERE Time_Date BETWEEN '" & Fdate & " 23:00:01' AND '" & Fdate & " 23:59:59'"
cmd = New SqlCommand(sql, SQLConn)
dr = cmd.ExecuteReader()
While dr.Read()
lst2300.Items.Add(dr("Time_Date").ToString.Substring(11, 8) & " - " & (dr("data")))
End While
dr.Close()
DBdisconnect()
End Sub