Advertisement
Guest User

Sample

a guest
Feb 8th, 2017
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.59 KB | None | 0 0
  1. Imports MySql.Data.MySqlClient
  2. Public Class Form1
  3.  
  4. Dim SqlConnection As MySqlConnection
  5. Dim SqlCommand As MySqlCommand
  6.  
  7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  8. Try
  9. SqlConnection = New MySqlConnection("server=localhost;username=root;password=admin;database=testdb")
  10. SqlConnection.Open()
  11. Catch ex As Exception
  12. MsgBox(ex.Message)
  13. End Try
  14. End Sub
  15.  
  16. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  17. ListView1.Items.Add(RandomString()).SubItems.Add(RandomString())
  18. End Sub
  19. Dim r As New Random
  20. Private Function RandomString() As String
  21. Dim s As String = ""
  22. For i As Integer = 0 To r.Next(3, 5)
  23. s &= Chr(r.Next(97, 97 + 26))
  24. Next
  25. Return s
  26. End Function
  27.  
  28. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  29. 'accounts Table
  30. '+----+----------+----------+
  31. '| id | username | password |
  32. '+----+----------+----------+
  33. For Each row As ListViewItem In ListView1.Items()
  34. Dim query As String
  35. With row.SubItems 'id , username, password
  36. query = String.Format("INSERT INTO accounts VALUES (null, '{0}', '{1}')", .Item(0).Text, .Item(1).Text)
  37. End With
  38. SqlCommand = New MySqlCommand(query, SqlConnection)
  39. SqlCommand.ExecuteNonQuery()
  40. SqlCommand.Dispose()
  41. Next
  42. End Sub
  43.  
  44.  
  45. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement