Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CODE SNIPPET USED TO SHOW CUSTOMERS IN LISTVIEW
- Public Sub pull_customers_List()
- Try
- lstview.Items.Clear()
- Call connection_string()
- Call open_MysqlConn()
- query = "SELECT * FROM tbl_customers"
- cmd = New MySqlCommand(query, MysqlConn)
- dr = cmd.ExecuteReader
- Do While dr.Read()
- Item = lstview.Items.Add(dr("customerID").ToString())
- Item.SubItems.Add(dr("customerName").ToString())
- Item.SubItems.Add(dr("Address").ToString())
- Item.SubItems.Add(dr("PhoneNo").ToString())
- Item.SubItems.Add(dr("Email").ToString())
- Loop
- dr.Close()
- Call close_MysqlConn()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- CODE SNIPPET TO SHOW CUSTOMER ADD/EDIT FORM
- Dim frm As New frmcustomer
- frm.ShowDialog()
- CODE SNIPPET USED TO SAVE OR UPDATE CUSTOMER RECORDS
- Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
- If selected_ID = "" Then
- 'insert new record
- If txtFullname.Text = "" Then
- MsgBox("Name field can not be empty", MsgBoxStyle.Exclamation, "New
- Customer")
- Else
- Call insert_customer_record()
- frmCustomers.pull_customers_List
- End If
- Else
- 'update records
- Call update_customer_records()
- frmCustomers.pull_customers_List
- End If
- End Sub
Add Comment
Please, Sign In to add comment