Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btn_GetData.Click
- cnString = "datasource=" + ip + ";username=" + username + ";password=" + password + ";database=" + database_name + ""
- sqlQRY = "Select * from " + table_name + " WHERE Batch =" + txt_PalletNo.Text + ""
- If txt_PalletNo.Text = "*" Then
- sqlQRY = "Select * from " + table_name + ""
- Else
- sqlQRY = "Select * from " + table_name + " WHERE Batch =" + txt_PalletNo.Text + ""
- End If
- conn = New MySqlConnection(cnString)
- Try
- conn.Open()
- da = New MySqlDataAdapter(sqlQRY, conn)
- Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da)
- da.Fill(ds, "" + table_name + "")
- DataGridView1.DataSource = ds
- DataGridView1.DataMember = "" + table_name + ""
- txt_qty.Text = DataGridView1.RowCount
- DataGridView1.DataSource = ds
- DataGridView1.DataMember = "" + table_name + ""
- Catch ex As Common.DbException
- MsgBox(ex.ToString)
- Finally
- txt_PalletNo.Clear()
- conn.Close()
- End Try
- End Sub
- Private Sub btn_Clear_Click(sender As System.Object, e As System.EventArgs) Handles btn_Clear.Click
- DataGridView1.DataSource = Nothing
- ds.Clear()
- DataGridView1.Rows.Clear() 'I also tried Columns.Clear() Here
- txt_PalletNo.Clear()
- txt_qty.Clear()
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement