He analizado el post que me diste y esta muy bueno, veo que ahí mencionas un puerto, en el momento no debo realizar ese código por lo cual te pregunto:
¿Está bien esto?
Cita: Public Function VerificarUsuario(ByVal oNombre As String) As Boolean
Dim Consulta As String = "SELECT (COUNT(*)>0) existe FROM usuarios WHERE nombre = '" & oNombre & "';"
Dim oCom As New MySqlCommand(Consulta, Conexion)
Conexion.Open()
Return Convert.ToBoolean(oCom.ExecuteScalar())
End Function
Private Sub bBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bBuscar.Click
Dim oNombre As String
oNombre = Nombre.Text
If VerificarUsuario(oNombre) = True Then
MsgBox("Se encuentra")
Conexion.Close()
Else
MsgBox("No se encuentra")
Conexion.Close()
End If
End Sub
Es decir que yo encuentre o no encuentre el usuario cierro la conexion, porque al cerrar la conexion en ambos casos y volver a buscar un usuario ya no me aparece el error anterior:
Cita: The connection is already open
Es mas no se detiene el programa.
Ahora quiero tener un lugar donde colocar todas las funciones y llamarlas, he creado una nueva clase y ahí he pegado la funcion pero me aparece un error, la clase la llame Funciones.vb pero el error debe ser porque no se como llamar correctamente la función, se que me van a regañar pero aqui pego como lo hago.
Cita: Dim oNombre As String
oNombre = Nombre.Text
Funciones.VerificarUsuario(oNombre)
If VerificarUsuario(oNombre) = True Then
MsgBox("Se encuentra")
Conexion.Close()
Else
MsgBox("No seencuentra")
Conexion.Close()
End If
Donde coloque la negrilla ahi me muestra el error, es mas en:
Cita: Funciones.VerificarUsuario(oNombre)
Me dice lo siguiente: La referencia a un miembro no compartido requiere una referencia de objeto.