Acceso a base de datos de SQL server con ADO

ADO.NET en VB
ADO.NET explicado de una forma muy sencilla, es un conjunto de Assemblies que forman parte del .Net Framework que nos permiten comunicarnos con los motores de Bases de Datos, leer datos, actualizarlos y demás, de una manera muy rápida y extremadamente sencilla.

Para esto ADO.NET tiene varios "Clientes" de Bases de Datos (se acuerdan de que eran los clientes de Bases de datos?) ytodos se encuentran en el espacio de nombres: System.Data

   • System.Data.SqlClient (para conectarse a los Motores MsSQL Server 7.0 o superior)
   • System.Data.OleDb (para todo lo que no se MsSQL Server 7.0 o superior)
   • System.Data.Oracle (que está disponible a partir del .NET Framework 2.0 y es para conectarse a motores Oracle)
Los componentes de ADO.NET:
Como ADO.NET acepta variosclientes, tendremos un componente para cada Cliente.
Por ejemplo: ADO.NET tiene un control que se llama Conexion, bueno habrá un objeto Conexion para SQL (SqlDataConection) y uno para OleDB (OleDBDataConection)
Conexión
Sin ningún lugar a duda lo primero que alguien debe hacer para poder utilizar una Base de Datos es crear una Conexión con está.
¿Y que significa crear una conexión?, essimplemente darle a con componente Conection los datos necesarios para que pudiera encontrar la base de datos y leer información de esta.
Por ejemplo en el caso de SQL, debemos darle a la conexión:

   • El nombre del servidor donde está la base de datos
   • El nombre de la base de datos (en sí mismo)
   • El usuario y la password (o indicarle que pase por relación de confianza usando el usuariode Windows)

En el caso de Access, será el nombre y el Path de donde está el archivo .mdb (y usuario y password de ser necesario)

Y ahora sí llegamos al fin, después de tanto palabrerio: el código (vamos a usar de ejemplo un MsSQL):
Dim SqlString As String

'Parametros:
' data source = Nombre del Servidor (puede ser dirección IP o
' localhost si elServer es la misma pc en
' donde estoy)
' initial catalog = Nombre de la base de datos
' integrated security = Indica que usa Seguridad integrada
SqlString = "data source=localhost;" & _
"initial catalog=Northwind" & _
"integrated security=SSPI;"

Dim MiConexion As SqlConnection = NewSqlConnection(SqlString)
Listo, acabamos de crear una conexión a la Base Northwind que está en el servidor local
Adaptadores
Los adaptadores serán los encargados de llamar a los comandos de lectura, actualización, inserción y eliminación en la base de datos.

Esto significa que cada adaptador tendrá:
   • Una conexión: Para saber de donde sacar los datos
   • Un Comando Select: Para saber que datos leer   • Un Comando Insert para saber como insertar los datos
   • Un Comando Update para saber como actualizar los datos
   • Un Comando Delete para saber como borrar datos

Con lo cual el adaptador podría hacer cualquier operación que nosotros deseemos.

Para crear un Adaptador por ejemplo de MsSQL:
Dim MiAdapter As SqlDataAdapter = New SqlDataAdapter("Select * from Customers", MiConexion)
Estalínea de código crea la instancia del Adapter y le asigna al SelectComand una sentencia de Transac que lee todos los campos de la tabla 'Customers'

Estos commandos a su vez tienen funciones que se las podemos llamar para que ejecuten un comando.
Y una de las grandes ventas es que le podemos indicar que datos debe devolver.
Por ejemplo si deseo ejecutar SP (Stored Procedures) y no recibirningún valor o si quiere recibir solo un valor

Estos comandos son:
   ExecuteNonQuery: No devuelve nada
   ExecuteScalar: Devuelve solo 1 valor

Ejemplo:
'Le carga a la Variable Valor el resulta del InsertCommand
Dim Valor As String = MiAdapter.InsertCommand.ExecuteScalar

'Ejecuta el DeleteComand y no devuelve ningún valor
MiAdapter.DeleteCommand.ExecuteNonQuery

También...