1 resposta neste tópico

[PF2G]

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:

Quote

No database selected

Será que alguem me pode ajudar?

Obrigado

[thyago_trajano]

Esse erro é ocasionado quando não se é selecionada uma base de dados...

que é feito na linha...

 Dim server As String = "Server=localhost;User Id=root; Passowrd=;Database=cursos"

a base de dados selecionada é "cursos", mas perceba que a palavra "Passowrd"(sic) está escrito de forma incorreta...só corrigir isso...

abraços
Thyago Trajano