Jump to content
DanielRS

[Resolvido] Como Fazer o login através de uma bd MYSQL

Recommended Posts

DanielRS

Tenho os dois pedaços de código o que está a verde clarinho é o pedaço que ficou em comentário.

O resto das cores e para poderem distinguir, eu estava a tentar fazer um login através de uma base de dados Mysql e não consegui o código que usei foi esse, espero que me possam ajudar a resolver. :)

Imports MySQL.Data.MySqlClient
Public Class Login

Private Sub Btn_entrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_entrar.Click
	'Dim cmd As New MySqlCommand
	Dim dr As MySqlDataReader
	Dim user, password As String
	'Dim tipo As Integer
	Dim dt As New DataTable

	Dim cmd As New MySqlCommand("SELECT * FROM utilizador", conn)
	conn = New MySqlConnection

	conn.ConnectionString = "server=localhost ; user id=root ; password='' ; database=telemoveis"


	Try

		conn.Open()
		dr = cmd.ExecuteReader()

		Dim found As Boolean = False

	   While dr.Read()

		   If user.ToUpper() = DirectCast(dr("utilizador_user"), String) Then

			   If password = DirectCast(dr("utilizador_pass"), String) Then

					found = True
					MessageBox.Show("Login Efectuada!!!")
					Exit While

				Else

					MessageBox.Show("User e Password não correponde!!!", "Error")
					txt_pass.Focus()

				End If

				If found Then

					MessageBox.Show("User não inserido!!!", "error")
					txt_user.Focus()
					txt_pass.Focus()
					Exit While

				End If

			Else

			   If found Then
					Msgbox("User não inserido!!!", "error")
					txt_user.Focus()

				End If
			End If
		End While
	Catch
   End Try

	'cmd.Connection = conn
	'user = txt_user.Text
	'password = txt_pass.Text

	'tipo = sql = "select utilizador_acessotipo_id from utilizador"
	'cmd.CommandText = "select * from utilizador where utilizador.utilizador_user = '" & user & "' and  utilizador.utilizador_pass = '" & password & "' "
	'cmd.ExecuteNonQuery()
	'dr = cmd.ExecuteReader
	'dt.Load(dr)

	''If  = (tipo = 1) Then
	''   Me.Close()
	''   Admistrador.Show()
	''Else

	''End If
End Sub

Edited by Rui Carlos
Formatação da mensagem.

Share this post


Link to post
Share on other sites
DanielRS

Eu estou a programar vb com mysql :\ com acess acho que é diferente :| se poder ajudar.

Edited by DanielRS

Share this post


Link to post
Share on other sites
bioshock

É praticamente idêntico..há apenas diferenças mínimas.

OleDbConnection ' Access
SqlConnection ' SQL
MySqlConnection ' MySQL

E, obviamente, a connectionstring.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.