Vb.NET 2005 com MySql!

[elementsky]

eu queria saber se dá pa usar mysql em vb?

[Tiago Salgado]

Dá uma olhadela aqui:

http://www.vbmysql.com/articles/vb_mysql_tutorials/vb_mysql_tutorial-part3.html

[kahoz]

Imports MySql.Data.MySqlClient

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

..alguma ideia ? :|

agradecido desde ja' 😕

[Revolt]

tens que adicionar uma referência ao .dll do mysql disponivel aqui: http://dev.mysql.com/downloads/connector/net/1.0.html

[kahoz]

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!

😄

[Asgorath]

Basta ver quantas rows a tua DataTable MyData tem.

Jorge