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 :
diz-me:
Citar:No database selected
Será que alguem me pode ajudar?
Obrigado
