Advertisement
Guest User

Untitled

a guest
Mar 29th, 2016
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.37 KB | None | 0 0
  1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btn_GetData.Click
  2. cnString = "datasource=" + ip + ";username=" + username + ";password=" + password + ";database=" + database_name + ""
  3. sqlQRY = "Select * from " + table_name + " WHERE Batch =" + txt_PalletNo.Text + ""
  4.  
  5. If txt_PalletNo.Text = "*" Then
  6. sqlQRY = "Select * from " + table_name + ""
  7. Else
  8. sqlQRY = "Select * from " + table_name + " WHERE Batch =" + txt_PalletNo.Text + ""
  9. End If
  10.  
  11. conn = New MySqlConnection(cnString)
  12.  
  13. Try
  14. conn.Open()
  15. da = New MySqlDataAdapter(sqlQRY, conn)
  16. Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da)
  17. da.Fill(ds, "" + table_name + "")
  18. DataGridView1.DataSource = ds
  19. DataGridView1.DataMember = "" + table_name + ""
  20. txt_qty.Text = DataGridView1.RowCount
  21. DataGridView1.DataSource = ds
  22. DataGridView1.DataMember = "" + table_name + ""
  23.  
  24. Catch ex As Common.DbException
  25. MsgBox(ex.ToString)
  26. Finally
  27. txt_PalletNo.Clear()
  28. conn.Close()
  29. End Try
  30. End Sub
  31.  
  32. Private Sub btn_Clear_Click(sender As System.Object, e As System.EventArgs) Handles btn_Clear.Click
  33. DataGridView1.DataSource = Nothing
  34. ds.Clear()
  35. DataGridView1.Rows.Clear() 'I also tried Columns.Clear() Here
  36. txt_PalletNo.Clear()
  37. txt_qty.Clear()
  38. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement