LoginForm problema
Publicado por miguel (1 intervención) el 22/09/2008 18:13:11
Buenas gente, pos na que hando haciendo un login sencillo pero amos, que me da un error cuando quiero conectarme a una base de datos y me da un error en una linea, este es el codigo del login:
Citar
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = "***; user id=****; password=****; database=****"
Try
conn.Open()
Catch myerror As MySqlException
MessageBox.Show("Error al conectar con la Base de Datos: " & myerror.Message)
End Try
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = "SELECT username, password FROM userlist Where username='" & UsernameTextBox.Text & "' and password='" & PasswordTextBox.Text & "'"
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If myData.HasRows = 0 Then
MessageBox.Show("Nombre de usuario o contraseña no válidos, intentelo de nuevo.", "Datos erroneos", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Form1.Show()
Me.Hide()
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Visible = True
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class
el error me lo da en negrita, y antes de cerrarlo me sale un msg de error diciendo: Acces deniedfor user 'root' @'80.30.144.233' (using password: YES)
me parece que podria ser por algun puerto ya que esta base de datos esta en el pc de un colega.
Si me podriais decir que puede fallar e incluso que mejorar lo agradeceria.
Citar
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = "***; user id=****; password=****; database=****"
Try
conn.Open()
Catch myerror As MySqlException
MessageBox.Show("Error al conectar con la Base de Datos: " & myerror.Message)
End Try
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = "SELECT username, password FROM userlist Where username='" & UsernameTextBox.Text & "' and password='" & PasswordTextBox.Text & "'"
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If myData.HasRows = 0 Then
MessageBox.Show("Nombre de usuario o contraseña no válidos, intentelo de nuevo.", "Datos erroneos", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Form1.Show()
Me.Hide()
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Visible = True
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class
el error me lo da en negrita, y antes de cerrarlo me sale un msg de error diciendo: Acces deniedfor user 'root' @'80.30.144.233' (using password: YES)
me parece que podria ser por algun puerto ya que esta base de datos esta en el pc de un colega.
Si me podriais decir que puede fallar e incluso que mejorar lo agradeceria.
Valora esta pregunta


0