- Inscription
- 17 Mars 2013
- Messages
- 1 258
- Réactions
- 509
- Points
- 7 815
Alors voila, j'ai un probleme de connection SQL en Vb.
le code de la forme 1:
Screen de ma DB:
Merci
le code de la forme 1:
Code:
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim Directory As String = "C:\ArborVPN\"
My.Computer.FileSystem.CreateDirectory(Directory)
Dim MySqlDirectory As String = "C:\ArborVPN\MySql.Data.dll"
My.Computer.FileSystem.WriteAllBytes(MySqlDirectory, My.Resources.MySql_Data, True)
End Sub
Private Sub SharpButton1_Click(sender As Object, e As EventArgs) Handles SharpButton1.Click
Me.Close()
End Sub
Private Sub SharpButton2_Click(sender As Object, e As EventArgs) Handles SharpButton2.Click
Dim ConnectionSQL As New MySqlConnection
Dim COMMAND As New MySqlCommand
ConnectionSQL.ConnectionString = "server=panel.roxweb.fr;Port=3306; userid=clansmgf_arborus; password=MOT_DE_PASSE; database=clansmgf_arbordb;"
ConnectionSQL.Open()
COMMAND.Connection = ConnectionSQL
COMMAND.CommandText = "INSERT INTO login (Username,Password,Email) VALUES ('" & Username.Text & "','" & Password.Text & "','" & Email.Text & "')"
COMMAND.ExecuteNonQuery()
MsgBox("Le compte à été créer avec succès !")
ConnectionSQL.Close()
End Sub
End ClassScreen de ma DB:
Merci
