Public Sub Get_Weights(Active_Status)
DataGridView1.DataSource = "null"
sDataBaseString(2) = "data source=175.16.64.3;user id=sa;password=;initial catalog=processtwo"
Dim strConnection As String = sDataBaseString(2)
Dim cn As SqlConnection = New SqlConnection(strConnection)
Dim bSource As New BindingSource
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Try
cn.Open()
query = "select BarcodeType as Tank, Active as Active, Description as Description, ContractWeight as 'Contract Weight', ComponetWeight as 'Component Weight', WatchTolerance as 'Watch Tolerance', LimitTolerance as 'Limit Tolerance', convert(float, ComponetWeight)+convert(float, ContractWeight) as 'Target Weight' from Weights " & Active_Status
command = New SqlCommand(query, cn)
sda.SelectCommand = command
sda.Fill(dbDataSet)
bSource.DataSource = dbDataSet
DataGridView1.DataSource = bSource
'sda.Update(dbDataSet)
command = New SqlCommand(query, cn)
reader = command.ExecuteReader
Catch ex As SqlException
MessageBox.Show(ex.Message)
Finally
cn.Dispose()
End Try
End Sub
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE