Colocar Resposta 
 
Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Inserir dados numa BD MySQL
06-11-2011, 20:25
Mensagem: #1
Inserir dados numa BD MySQL
Boas,
eu estou a criar uma aplicação para gerir uma escola de música e neste momento estou a fazer registo:
Código:
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 :
Código:
.ExecuteReader()

diz-me:
Citar:No database selected

Será que alguem me pode ajudar?

Obrigado
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
Colocar Resposta 


Saltar Fórum:


Utilizadores a ver este tópico: 1 Visitante(s)