Conectarse a base de datos SQL/SQL Express

Lo primero para lograr una conexión entre Visual y una base de datos Microsoft SQL o SQL Express es cargar la libreria de SQL en el formulario donde deseas establecer la conexión.

Suponiendo que ya tienes una base de datos creada en Sql Express, y un proyecto de Visual con un formulario el cual contiene un ComboBox y un botón, haz lo siguiente:



1. Colocar esto al principio el formulario, es decir fuera de Public Class Form1

Imports System.Data.SqlClient

2. Luego debes crear las siguentes variables, dentro de Public Class Form1. Pon atención que se encuentran en permisos Public para que puedan ser usadas en cuarlquier formulario de tu proyecto.

'Sql Connection, nos permite definir una conexión a una bd
Public SqlConnection As SqlConnection
'Para ejecutar diferentes queries...
Public cmd As SqlCommand
'Almacenar el resultado de la ejecución de un query
Public DR As SqlDataReader

3. Una ves cargadas las librerias y variables necesarias ya puedes realizar la conexión. El codigo siguiente lo puedes poner en el load del formulario o dentro del evento Clic de un botón

Try

'================================================================================='
'--------------- Establecer y abrir conexión con la base de datos ---------------'
'================================================================================='
'SQLConnection = New SqlConnection("Data Source=DireccionDelServidor;Initial Catalog=NombreBaseDeDatos;User Id=Usuario;Password=Contraseña;Integrated Security=True")
SqlConnection = New SqlConnection("Data Source=LOCALHOST\SQLEXPRESS;Initial Catalog=Inventario;User Id=Vicfigue99; Password=abcaeiou;Integrated Security=True")
SqlConnection.Open()

'//////////////////////////////////////// FIN ////////////////////////////////////////'

'================================================================================='
'--------------- Obtener listado de productos Registrados en la bd ---------------'
'================================================================================='
cmd = New SqlCommand("Select * from Producto", SqlConnection)
DR = cmd.ExecuteReader
Do While DR.Read
ComboBox1.Items.Add(DR("Nombre"))
Loop
SqlConnection.Close()
'//////////////////////////////////////// FIN ////////////////////////////////////////'
Catch ex As Exception
MsgBox("Ha ocurrido un error" + vbCrLf + "No se encuentra Base de Datos-Sin Conexión", MsgBoxStyle.Critical, "Error")

End Try

Tomar en cuenta lo siguiente:
En este ejemplo la base de datos creada en SQL o SQL Express se llama "Inventario".
La tabla de la base de datos Inventario que queremos obtener los datos se llama "Producto"

Importante:
El resultado del query, el cual es un areglo se almacena en la variable DR. motivo por el cual para poder obtener los datos hay que recorrer ese arreglo mediante un ciclo; por cada ciclo se devuelve una fila, el cual cada columna de esa fila tiene un ID, el cual es el nombre del campo original de la base de datos. Es decir:

Tenemos la Base de datos original con 100 registros:

Hacemos el Query/Consulta y el resultado del mismo se almacena como un arreglo en la variable DR.   Si queremos obtener lo datos hay que recorrer ese arreglo mediante un ciclo.

Ciclo 1:

Ciclo 2:

Ciclo3:

Para obtener varios campos podemos crear variables, quienes adquieren el valor del registro del campo que necesitamos, hacer lo siguiente:

Do While DR.Read
Dim NombreProducto = DR("Nombre")
Dim UnidadesProducto = DR("UnidadesDisponibles")
ComboBox1.Items.Add(NombreProducto)
ComboBox2.Items.Add(UnidadesProducto)
Loop


--
Nota: La información contenida en esta publicación, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en la presente publicación.