Inserir dados numa BD MySQL

[PF2G 0]

Boas,

eu estou a criar uma aplicação para gerir uma escola de música e neste momento estou a fazer registo:

 

Imports MySql.Data.MySqlClient

Public Class Admin_Reg
   Dim server As String = "Server=localhost;User Id=root; Passowrd=;Database=cursos"
   Dim sqlcon As MySqlConnection = New MySqlConnection

   Private Sub Admin_Reg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       server = sqlcon.ConnectionString

       Try
           If sqlcon.State = ConnectionState.Closed Then
               sqlcon.Open()
               MsgBox("Ligação com sucesso!!")
           Else
               sqlcon.Close()
               MsgBox("Ligação está desligada")
           End If
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try
   End Sub

   Private Sub Reg_Admin(ByRef SQLStatement As String)
       Dim cmd As MySqlCommand = New MySqlCommand

       With cmd
           .CommandText = SQLStatement
           .CommandType = CommandType.Text
           .Connection = sqlcon
           .ExecuteReader()
       End With

       sqlcon.Close()
       MsgBox("Adicionado com sucesso")
   End Sub

   Private Sub reg_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reg_button.Click
       If pass_box.Text = cpass_box.Text Then
           Dim sql As String = "INSERT INTO admin VALUES ('" & user_box.Text & "', '" & pass_box.Text & "')"
           Reg_Admin(sql)
       Else
           MsgBox("Passwords não correspondem!!")
       End If
   End Sub
End Class

 

Mas estou a ter problemas no :

 .ExecuteReader()

 

diz-me:

No database selected

 

Será que alguem me pode ajudar?

 

Obrigado

[quintelab 91]

Verifique se sua variável sqlcon ainda possui algum valor, provavelmente não.

Normalmente utilizamos o ExecuteReader para buscar dados, utiliza o ExecuteNonQuery para gravar ou deletar informações do banco.

 

Abraços...