1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlConnection
Public Class inscription
Dim Nomdecompte As String
Dim pseudo As String
Dim Motdepasse As String
Dim confirmation As String
Dim questionsecrette As String
Dim reponsesecrette As String
Dim Email As String
' Le boutton qui envoie le tout vers ma BDD '
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Nomdecompte = TextBox1.Text
pseudo = TextBox2.Text
Motdepasse = TextBox3.Text
confirmation = TextBox4.Text
questionsecrette = TextBox5.Text
reponsesecrette = TextBox6.Text
Email = TextBox7.Text
Try
Using conn As New SqlConnection
conn.Open()
cmd.ExecuteNonQuery()
conn.connectstring = "Connection name= base de doné > accounts;Data Source=serveur de ma BDD;User Id=User;Password=mdp ";
Dim cmd As New SqlCommand
cmd.Connection = conn
cmd.CommandText = "INSERT INTO `accounts` VALUES ('ID', 'Nomdecompte', 'Motdepasse', '', '', 'Email', '', '', 'questionsecrette', ' reponsesecrette', 'pseudo', '0', '0', '0', '', '', '', '', '', '0', '', '0', '0', '', '', null, '', '');"
cmd.Parameters.Add("Nomdecompte", Me.TextBox1.Text)
cmd.Parameters.Add("Motdepasse", Me.TextBox2.Text)
cmd.Parameters.Add("questionsecrette", Me.TextBox3.Text)
cmd.Parameters.Add("reponsesecrette", Me.TextBox4.Text)
cmd.Parameters.Add("Pseudo", Me.TextBox5.Text)
cmd.Parameters.Add("Email", Me.TextBox7.Text)
End Using
Catch ex As Exception
MsgBox("erreur : " & ex.Message)
End Try
End Sub |
Partager