Lec 35

35.1 Creación de la conexión a una base de datos con ADO.NET

En Visual Basic 2015, tenemos que crear una conexión a una base antes de poder acceder a sus datos. Antes de empezar, vamos a crear una nueva base de datos. Puesto que estamos utilizando SQL Server 2012 como el motor de base de datos, vamos a utilizar Microsoft Management Studio Express para crear una base de datos con la extensión de mdf. 

Vamos a llamar a este archivo de base de datos como test.mdf. Después de crear la base de datos, construir una tabla de llamadas de contactos y crear dos campos y nombrarlos NombreContacto y el Estado, respectivamente. Introducir unos pocos datos en la tabla y haga clic en Guardar todo para guardar los datos. 

Ahora estamos listos para conectarse a este nuevo database.ADO.NET ofrece una serie de objetos de conexión, tales como OleDbConnection, SqlConnection y más. OleDbConnection se utiliza para acceder a los datos OLEDB como Microsoft Access mientras SqlConnection se utiliza para acceder a los datos proporcionados por el servidor Microsoft SQL. Puesto que vamos a trabajar con la base de datos SQL en nuestro ejemplo, vamos a utilizar el objeto SqlConnection.

Para inicializar la variable a un nuevo objeto SqlConnection, se utiliza la siguiente sintaxis:

Mi CN privadas como nuevo SqlConnection

Después de haber creado la instancia del objeto SqlConnecton, el siguiente paso es establecer una conexión con la fuente de datos utilizando la propiedad ConnectionString de SQL. La sintaxis es la siguiente:
MyCn.ConnectionString = "Data Source = TOSHIBA-PC \ SQL2012; AttachDBFileName = C: \ Archivos de programa \ Microsoft SQL Server \ MSSQL11.SQL2012 \ MSSQL \ DATA \ Test.mdf; "& _
"La instancia de usuario = true; Integrado de Seguridad = SSPI" *
Es necesario cambiar la referencia al servidor SQL (TOSHIBA-PC \ SQL2012), así como la ruta al archivo de base de datos Test.mdf .Después de establecer conexión con la base de datos, puede abrir la base de datos con la siguiente sintaxis:
MyCn.Open ()



35.2 Datos Poblando en ADO.NET

El establecimiento de la conexión a una base de datos en Visual Basic 2015 utilizando SqlConnection por sí sola no va a presentar cualquier cosa cosas tangibles al usuario manipular los datos hasta que añadimos objetos más pertinentes y escribir los códigos pertinentes para el proyecto.

El siguiente paso es crear una instancia de la SqlDataAdpater en nuestro código para que podamos llenar el DataTable con los datos de la fuente de datos. Además, también es necesario para crear una instancia de la DataTable. Aparte de eso, también debe crear una instancia de la SqlCommandBuilder que se utiliza para manipular los datos como actualizar y borrar datos en la tabla de datos y enviar los cambios a la fuente de datos. Los estados son:

MyDatAdp privada como nuevo SqlDataAdapter
MyCmdBld privada como nuevo SqlCommandBuilder
MyDataTbl privada como nuevo DataTable

Además de eso, tenemos que declarar una variable para realizar un seguimiento de la fila actual del usuario dentro de la tabla de datos. La declaración es

MyRowPosition privada As Integer = 0

Después de haber creado el anterior de los objetos, es necesario incluir las siguientes declaraciones en el evento Form_Load Sub para comenzar a llenar el DataTable con los datos de la fuente de datos. Los estados son los siguientes:

MyDatAdp = New SqlDataAdapter ( "SELECT * FROM Contactos", Mi CN)
MyCmdBld = Nueva SqlCommandBuilder (MyDatAdp)
MyDatAdp.Fill (MyDataTbl)

Después de llenar el DataTable, tenemos que escribir código para acceder a los datos. Para acceder a los datos en el DataTable significa que necesitamos para acceder a las filas de la tabla. Podemos lograr esto mediante el objeto DataRow. Por ejemplo, podemos escribir lo siguiente para acceder a la primera fila de la tabla y presentar los datos a través de dos cuadros de texto con el nombre txtName y txtState respectivamente:

MyDataRow dévil como DataRow = MyDataTbl.Rows (0)
Dim como secuencia strNombre
Dim como secuencia strState
strNombre = MyDataRow ( "NombreContacto")
strState = MyDataRow ( "Estado")
txtName.Text = strName.ToString
txtState.Text = strState.ToStringMe.showRecords ()

* Se está haciendo referencia Los dos campos aquí son NombreContacto y el Estado. Índice Nota 0 significa primera fila.

showRecords () es un procedimiento sub creado para mostrar los datos en los cuadros de texto. El código es el siguiente:

Private Sub showRecords () Si MyDataTbl.Rows.Count = 0 Entonces
txtName.Text = ""
txtState.Text = ""
Exit Sub
Terminar IftxtName.Text = MyDataTbl.Rows (MyRowPosition) ( "NombreContacto"). ToString
txtState.Text = MyDataTbl.Rows (MyRowPosition) ( "Estado"). ToString

End Sub

El código

Public Class Form1

MyDatAdp privada como nuevo SqlDataAdapter
MyCmdBld privada como nuevo SqlCommandBuilder
MyDataTbl privada como nuevo DataTable
Mi CN privadas como nuevo SqlConnection
MyRowPosition privada As Integer = 0

Private Sub Form1_Load (remitente como objeto, e como EventArgs) Maneja MyBase.Load

MyCn.ConnectionString = "Data Source = TOSHIBA-PC \ SQL2012; AttachDBFileName = C: \ Archivos de programa \ Microsoft SQL Server \ MSSQL11.SQL2012 \ MSSQL \ DATA \ Test.mdf; "& _
"La instancia de usuario = true; Integrado de Seguridad = SSPI"
MyCn.Open ()

MyDatAdp = New SqlDataAdapter ( "SELECT * FROM Contactos", Mi CN)
MyCmdBld = Nueva SqlCommandBuilder (MyDatAdp)
MyDatAdp.Fill (MyDataTbl)

MyDataRow dévil como DataRow = MyDataTbl.Rows (0)
Dim como secuencia strNombre
Dim como secuencia strState
strNombre = MyDataRow ( "NombreContacto")
strState = MyDataRow ( "Estado")
TxtName.Text = strName.ToString
TxtState.Text = strState.ToString
Me.showRecords ()

End Sub

showRecords Private Sub ()

Si MyDataTbl.Rows.Count = 0 Entonces
txtName.Text = ""
txtState.Text = ""
Exit Sub
Terminara si

txtName.Text = MyDataTbl.Rows (MyRowPosition) ( "NombreContacto"). ToString
TxtState.Text = MyDataTbl.Rows (MyRowPosition) ( "Estado"). ToString

End Sub

End Class

El interfaz de salida

35.1 vb2013_figure34.1Figure

Discutiremos cómo navegar por la base de datos y manipular datos en la siguiente lección.