Imports my sql
- 1. Imports MySql.Data.MySqlClient Imports System.Net.Mail Public Class cash Inherits System.Web.UI.Page Dim conn As MySqlConnection = New MySqlConnection(" Server = localhost; uid = root ; password = ;database = shabanie") Public Function stil() As String Dim sReturn As String = "" Randomize() Dim iRandom1 = CInt(9999 * Rnd()) Dim iRandom2 = CInt(9999 * Rnd()) Dim iRandom3 = CInt(9999 * Rnd()) Const Alphabet As String = "QWERTYUIOPLKJHGFDSAZXCVBNM" Dim s4 As String = iRandom1.ToString.Substring(0, 1) Dim s5 As String = iRandom2.ToString.Substring(0, 1) Dim s6 As String = iRandom3.ToString.Substring(0, 1) Dim s7 As String = Alphabet.ToString.Substring(0, 1) Dim s8 As String = Alphabet.ToString.Substring(0, 1) Return s4 & s5 & s6 & s7 & s8 End Function Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ListBox1 = Session(" LIST") ListBox1 = Session(" MARE") End Sub Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim cmd As MySqlCommand = New MySqlCommand("INSERT into ontransaction values(@Name,@surname,@idnum,@company,@address,@phone,@email,@accountnum,@bankname,@total cost,@refnum,@items)", conn) For i As Integer = 0 To Me.ListBox1.Items.Count - 1 With cmd.Parameters .AddWithValue("@name", TextBox1.Text) .AddWithValue("@surname", TextBox2.Text) .AddWithValue("@company", TextBox3.Text) .AddWithValue("idnum", TextBox4.Text) .AddWithValue("@address", TextBox5.Text) .AddWithValue("@phone", TextBox6.Text) .AddWithValue("@email", TextBox7.Text) .AddWithValue("@accountnum", TextBox8.Text) .AddWithValue("@bankname", TextBox9.Text) .AddWithValue("totalcost", TextBox10.Text) .AddWithValue("@refnum", TextBox11.Text) .AddWithValue("@items", ListBox1.Items(i)) End With conn.Open() cmd.ExecuteNonQuery() ' Label3.Show() 'TextBox3.Enabled = False 'TextBox3.Show() MsgBox("Operation Successful")
- 2. conn.Close() TextBox11.Text = stil() Next Dim EmailMessage As New MailMessage Try EmailMessage.From = New MailAddress(" [email protected]") EmailMessage.To.Add(TextBox7.Text) EmailMessage.Subject = "credentials" EmailMessage.Body = " YOUR PAID ##" & TextBox10.Text & "REFERENCE NUMBER IS## " & TextBox11.Text & " " Dim SMTP As New SmtpClient("smtp.gmail.com") SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "KOMECHYKG9") SMTP.Port = "587" SMTP.Send(EmailMessage) MsgBox("Email Sent") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class