Foro de elhacker.net

Option Explicit On
Option Strict On
Option Compare Text
Imports MySQLDriverCS
Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'La variable bConexionExitosa nos permitirá finalizar el 
        'programa si la conexión falla
        Dim bConexionExitosa As Boolean = True

        'Creamos un objeto de tipo Connection y configuramos los parámetros de la conexión
        Dim DBCon As MySQLConnection
        'Los parámetros de la sobrecarga con más parámetros son:
        '1. Dirección IP o nombre de la máquina con el servidor de MySQLS
        '2. Nombre de la base de datos
        '3. Nombre de usuario con acceso a la base de datos señalada anteriormente
        '4. Contraseña para el nombre de usuario citado
        '5. Puerto por el que se acede al servidor. Típicamente 3306
        DBCon = New MySQLConnection(New MySQLConnectionString("192.168.0.10", "diego", "diego", "pass", 3306).AsString)

        'Try
        'Abrimos la conexión y comprobamos que no hay error
        DBCon.Open()
        'Catch ex As MySQLException
        'Si hubiese error en la conexión mostramos el texto de la descripción
        'MsgBox(ex.Message.ToString)
        'bConexionExitosa = False
        'End Try

        'Si no hay ningún problema continuamos
        If bConexionExitosa Then

            ...