• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

elementsky

Vb.NET 2005 com MySql!

6 mensagens neste tópico

Imports MySql.Data.MySqlClient

Namespace or type 'MySqlClient' for the Imports 'MySql.Data.MySqlClient' cannot be found.

..alguma ideia ? :|

agradecido desde ja' :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja' esta' a funcionar.. :(

obrigado! []

-- edit --

agora, outra duvida..

estou a seguir o tutorial em http://www.vbmysql.com/articles/vbnet-mysql-tutorials/the-vbnet-mysql-tutorial-part-4/ para fazer um formulario de login

o codigo que tenho por agora e' este

Imports MySql.Data.MySqlClient
Imports System.Text
Imports System.Security.Cryptography

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim conn As MySqlConnection
    Dim myCommand As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter
    Dim myData As New DataTable
    Dim SQL As String
    Dim myCommand As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter
    Dim myData As New DataTable

    Private Function CriaMD5(ByVal SourceText As String) As String
        'esta roubei algueres na net ^^
        Dim Ue As New UnicodeEncoding
        Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
        Dim Md5 As New MD5CryptoServiceProvider
        Dim ByteHash() As Byte = MD5.ComputeHash(ByteSourceText)
        Return Convert.ToBase64String(ByteHash)
    End Function

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        Dim utilizador As String
        Dim password As String
        conn = New MySqlConnection
        conn.ConnectionString = "server=localhost; user id=root; password=whatever; database=umadb"
        conn.Open()
        utilizador = txtutilizador.Text()
        password = CriaMD5(txtpassword.Text())
        MessageBox.Show(password)
        SQL = "select * from adminstradores where utilizador =" + utilizador + " and password =" + password
        myCommand.Connection = conn
        myCommand.CommandText = SQL
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData)

    End Sub
End Class

apartir daqui, como e' q vejo se a consulta devolveu alguma linha e se sim, como e' que as comparo ? :|

abraço e um obrigado antecipado!

:D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora