Comparar dos Cadenas (String) en vb.net

Haciendo una aplicacion, la cual deberia tener un login de usuarios (como todo software), me vi en la necesidad de compara dos passwords para poder insertarlos en la base de datos, despues de un rato encontre la solución aca la pongo por si hay alguien esta con el mismo problema


Tipos Posibles de comparacion

String.Compare :
Compara los valores de dos cadenas. Devuelve un valor entero.

String.CompareOrdinal
Compara dos cadenas independientemente de la referencia cultural local. Devuelve un valor entero.

String.CompareTo
Compara el objeto de cadena actual con otra cadena. Devuelve un valor entero.

String.StartsWith
Determina si una cadena comienza con la cadena que se pasa. Devuelve un valor booleano.

String.EndsWith
Determina si una cadena termina con la cadena que se pasa. Devuelve un valor booleano.


Fuente


Sintaxis en Vb.Net

' CAPTURAMOS LAS VARIABLES

Pass1 = Me.TxtPass1.Text
Pass2 = Me.TxtPass2.Text

Dim Compare As Integer
Compare = Pass1.CompareTo(Pass2)


If Compare = 1 Then
MessageBox.Show("Password No Coinciden Verifiquelos e Intentelo de uevo" , & _
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub

End If

Como Conectar Vb.Net 2005 a MySql

Como Conectar Vb.Net a Mysql

Bueno dejeme contarles que hace unos dias me tope con la insertidumbre de conectar vb.net con MySql, pues lo necesitaba para crear una aplicación en la cual no necesitara una BD con licencia y con la admiracion que le tengo a MySql me parecio la mejor Opcion.

Bueno al mismo tiempo se añadira a este tutorial la creacion de ODBC para Mysql

Ok. comencemos

Que necesitamos

1- MySql 5 o superior
2- Mysql Odbc/Conector
3- MySql Drivers Conector/Net


1- Relizamos la instalacion de estos tres componentes en nuestro ordenador

2- creamos un nuevo proyecto en nuestro VB 2005 y lo llamamos pruebas



3- Renombramos el formulario de unicio se llamara Conectar.vb, adicionamos un boton con el nombre BtnConectar



4- Ahora debemos adicionar las referencias de MySql a nuestro proyecto



5- Importamos las tools necesarias para realizar la conexion

Imports MySql.Data.MySqlClient


6- Declaramos y creamos la cadena de conexion

Public myconex As MySqlConnection

Private Sub Conectar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim connStr As String

connStr = "Server=youserver;" & _
"Database=youbd;" & _
"Uid=youuser;" & _
"Pwd=youpass;" & _
"Connect Timeout=30;"

myconex = New MySqlConnection(connStr)

End Sub

7- Ahora realizamos la conexion mediante BtnConectar con este codigo en el evento click

Private Sub BtnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConectar.Click


Try

myconex.Open()
MessageBox.Show("Ahora estoy conectado a Mysql", "Confirmación", MessageBoxButtons.OK, MessageBoxIcon.Information)

myconex.Close()
MessageBox.Show("Ahora estoy desconectado de Mysql", "Confirmación", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Si existe alguna excepcion al conectarse con el servidor capturamos el error y mostramos un mensage con el resultado

Catch oexcep As MySqlException
MessageBox.Show("Error al conectar con BD" & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
myconex.Close()
Exit Sub End Try

End Sub


Resultados