Public Sub Get_Weights(Active_Status) DataGridView1.DataSource = "null" sDataBaseString(2) = "data source=184.108.40.206;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