Insert data in a MySQL DB

PF2G

New member
Joined
Nov 7, 2011
Messages
1
Programming Experience
1-3
Hi,
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.
 
If you did this:
Dim x = 100
Dim y As Integer

x = y
what would you expect the values of x and y to be? Now go back and look at your own code.
 
Back
Top