Hi,
I'm working on a applicatio that manages a School of Music and i'm doing the admin register:
But i'm having problems here:
It says:
Someone help me, i need this ASAP
Thank You.
I'm working on a applicatio that manages a School of Music and i'm doing the admin register:
VB.NET:
[COLOR=#660066][COLOR=#0000FF]Imports[/COLOR] MySql.[COLOR=#0000FF]Data[/COLOR].[COLOR=#0000FF]MySqlClient[/COLOR]
[COLOR=#0000FF]Public[/COLOR] [COLOR=#0000FF]Class[/COLOR] Admin_Reg
[COLOR=#0000FF]Dim[/COLOR] server [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR] [COLOR=#008000]=[/COLOR] [COLOR=#A31515]"Server=localhost;User Id=root; Passowrd=;Database=cursos"[/COLOR]
[COLOR=#0000FF]Dim[/COLOR] sqlcon [COLOR=#0000FF]As[/COLOR] MySqlConnection [COLOR=#008000]=[/COLOR] [COLOR=#0000FF]New[/COLOR] MySqlConnection
[COLOR=#0000FF]Private[/COLOR] [COLOR=#0000FF]Sub[/COLOR] Admin_Reg_Load[COLOR=#000000]([/COLOR][COLOR=#0000FF]ByVal[/COLOR] sender [COLOR=#0000FF]As[/COLOR] System.[COLOR=#0000FF]Object[/COLOR], [COLOR=#0000FF]ByVal[/COLOR] e [COLOR=#0000FF]As[/COLOR] System.[COLOR=#0000FF]EventArgs[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0000FF]Handles[/COLOR] [COLOR=#0000FF]MyBase[/COLOR].[COLOR=#0000FF]Load[/COLOR]
server [COLOR=#008000]=[/COLOR] sqlcon.[COLOR=#0000FF]ConnectionString[/COLOR]
[COLOR=#0000FF]Try[/COLOR]
[COLOR=#0000FF]If[/COLOR] sqlcon.[COLOR=#0000FF]State[/COLOR] [COLOR=#008000]=[/COLOR] ConnectionState.[COLOR=#0000FF]Closed[/COLOR] [COLOR=#0000FF]Then[/COLOR]
sqlcon.[COLOR=#0000FF]Open[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#000000]MsgBox[/COLOR][COLOR=#000000]([/COLOR][COLOR=#A31515]"Ligação com sucesso!!"[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]Else[/COLOR]
sqlcon.[COLOR=#000000]Close[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#000000]MsgBox[/COLOR][COLOR=#000000]([/COLOR][COLOR=#A31515]"Ligação está desligada"[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]If[/COLOR]
[COLOR=#0000FF]Catch[/COLOR] ex [COLOR=#0000FF]As[/COLOR] Exception
[COLOR=#000000]MsgBox[/COLOR][COLOR=#000000]([/COLOR]ex.[COLOR=#0000FF]ToString[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Try[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Sub[/COLOR]
[COLOR=#0000FF]Private[/COLOR] [COLOR=#0000FF]Sub[/COLOR] Reg_Admin[COLOR=#000000]([/COLOR][COLOR=#0000FF]ByRef[/COLOR] SQLStatement [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]Dim[/COLOR] cmd [COLOR=#0000FF]As[/COLOR] MySqlCommand [COLOR=#008000]=[/COLOR] [COLOR=#0000FF]New[/COLOR] MySqlCommand
[COLOR=#0000FF]With[/COLOR] cmd
.[COLOR=#0000FF]CommandText[/COLOR] [COLOR=#008000]=[/COLOR] SQLStatement
.[COLOR=#0000FF]CommandType[/COLOR] [COLOR=#008000]=[/COLOR] CommandType.[COLOR=#0000FF]Text[/COLOR]
.[COLOR=#0000FF]Connection[/COLOR] [COLOR=#008000]=[/COLOR] sqlcon
.[COLOR=#0000FF]ExecuteReader[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]With[/COLOR]
sqlcon.[COLOR=#000000]Close[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#000000]MsgBox[/COLOR][COLOR=#000000]([/COLOR][COLOR=#A31515]"Adicionado com sucesso"[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Sub[/COLOR]
[COLOR=#0000FF]Private[/COLOR] [COLOR=#0000FF]Sub[/COLOR] reg_button_Click[COLOR=#000000]([/COLOR][COLOR=#0000FF]ByVal[/COLOR] sender [COLOR=#0000FF]As[/COLOR] System.[COLOR=#0000FF]Object[/COLOR], [COLOR=#0000FF]ByVal[/COLOR] e [COLOR=#0000FF]As[/COLOR] System.[COLOR=#0000FF]EventArgs[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0000FF]Handles[/COLOR] reg_button.[COLOR=#0000FF]Click[/COLOR]
[COLOR=#0000FF]If[/COLOR] pass_box.[COLOR=#0000FF]Text[/COLOR] [COLOR=#008000]=[/COLOR] cpass_box.[COLOR=#0000FF]Text[/COLOR] [COLOR=#0000FF]Then[/COLOR]
[COLOR=#0000FF]Dim[/COLOR] sql [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]String[/COLOR] [COLOR=#008000]=[/COLOR] [COLOR=#A31515]"INSERT INTO admin VALUES ('"[/COLOR] [COLOR=#008000]&[/COLOR] user_box.[COLOR=#0000FF]Text[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#A31515]"', '"[/COLOR] [COLOR=#008000]&[/COLOR] pass_box.[COLOR=#0000FF]Text[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#A31515]"')"[/COLOR]
Reg_Admin[COLOR=#000000]([/COLOR]sql[COLOR=#000000])[/COLOR]
[COLOR=#0000FF]Else[/COLOR]
[COLOR=#000000]MsgBox[/COLOR][COLOR=#000000]([/COLOR][COLOR=#A31515]"Passwords não correspondem!!"[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]If[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Sub[/COLOR]
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Class[/COLOR][/COLOR]
But i'm having problems here:
VB.NET:
[COLOR=#666600].[/COLOR][COLOR=#660066]ExecuteReader[/COLOR][COLOR=#666600]()[/COLOR]
It says:
No database selected
Someone help me, i need this ASAP
Thank You.