Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports MySql.Data.MySqlClient
- Public Class Form1
- Dim SqlConnection As MySqlConnection
- Dim SqlCommand As MySqlCommand
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Try
- SqlConnection = New MySqlConnection("server=localhost;username=root;password=admin;database=testdb")
- SqlConnection.Open()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- ListView1.Items.Add(RandomString()).SubItems.Add(RandomString())
- End Sub
- Dim r As New Random
- Private Function RandomString() As String
- Dim s As String = ""
- For i As Integer = 0 To r.Next(3, 5)
- s &= Chr(r.Next(97, 97 + 26))
- Next
- Return s
- End Function
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- 'accounts Table
- '+----+----------+----------+
- '| id | username | password |
- '+----+----------+----------+
- For Each row As ListViewItem In ListView1.Items()
- Dim query As String
- With row.SubItems 'id , username, password
- query = String.Format("INSERT INTO accounts VALUES (null, '{0}', '{1}')", .Item(0).Text, .Item(1).Text)
- End With
- SqlCommand = New MySqlCommand(query, SqlConnection)
- SqlCommand.ExecuteNonQuery()
- SqlCommand.Dispose()
- Next
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement