Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Product_info_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- connect = New OdbcConnection("driver=MySQL ODBC 5.3 ANSI Driver;localhost;port=3306;UID='root';pwd=;database=dummy_db")
- connect.Open()
- Dim myCmd1 As New OdbcCommand("select * from product_tbl", connect)
- Dim da As New OdbcDataAdapter(myCmd1)
- Dim ds As New Data.DataSet
- da.Fill(ds, "prouct_tbl")
- DataGridView1.DataSource = ds.tables(0)
- DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
- DataGridView1.RowHeadersDefaultCellStyle.BackColor = Drawing.Color.Aqua
- DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Drawing.Color.DarkBlue
- DataGridView1.Refresh()
- Button3.Enabled = False
- Button4.Enabled = False
- Button2.Enabled = False
- TextBox2.Focus()
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement