mysql_vb_verif_dep

14 de abril de 20011

Estudiantes de base de datos a continuación encuentran las lineas de programacion para conectar vb con mysql:

Function verificardepartamento As    Boolean

con = New  MySqlConnection

Dim comando  As   New  MySqlCommand Dim reader  As  MySqlDataReader Dim registros  As   Integer

con.ConnectionString = "server=localhost; user id=root; database=ZPLAY"

registros = 0

Try

Dim sql  As   String

sql = "SELECT * FROM departamento"

con.Open comando = New  MySqlCommand(sql, con) reader = comando.ExecuteReader While (reader.Read) registros = registros + 1 End  While

REM //Se cierra el Reader

reader.Close

If registros = 0  Then

REM MsgBox("No existe en la base de datos")

verificar_reg_personas = False

Else

REM MsgBox("Si existe en la base de datos")

verificar_reg_personas = True

End  If

con.Close Catch mierror  As  MySqlException MessageBox.Show( "Error de Conexi¢n a la Base de Datos: "  & mierror.Message) Finally

con.Dispose End  Try

End  Function