Advertisement
Guest User

Untitled

a guest
Mar 20th, 2019
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. Public Class Form1
  2. Dim db As IDbConnection = New MySqlConnection("Server=localhost;Database=mydb;Uid=root;Pwd=myPass;Port=3306;")
  3.  
  4. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  5. Try
  6. Dim sql As String = "select * from Customers"
  7. Dim lCustomer As List(Of Customer) = db.Query(Of Customer)(sql, Nothing)
  8. grid.DataSource = lCustomer
  9. Catch ex As Exception
  10. Debug.Print(ex.Message)
  11. End Try
  12. End Sub
  13. End Class
  14.  
  15. Public Class City
  16. Public ID As String
  17. Public Name As String
  18. End Class
  19.  
  20. Public Class Customer
  21. Public id As String
  22. Public name As String
  23. Public address As String
  24. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement