Ingeniero

Módulo 5 - Acceso a datos

Capítulo 1 Capítulo 2 Capítulo 3 Capítulo 4 Capítulo 5

Introducción

Módulo 5 - Capítulo 1

Módulo 5 - Capítulo 1 1. Acercándonos a ADO.NET

Módulo 5 - Capítulo 1 2. System.Data

Imports System.Data Imports System.Data.SqlClient Imports System.Xml

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load Dim Conexion As String "server=.;uid=sa;password=VisualBasic;database=MSDNVideo" Dim MiTabla As DataTable Dim MiColumna As DataColumn Dim MiDataSet As New DataSet() Dim Comando As ALQUILERES", Conexion) New SqlDataAdapter("SELECT * FROM =

Comando.Fill(MiDataSet, "ALQUILERES") ' Recorremos las tablas For Each MiTabla In MiDataSet.Tables TextBox1.Text += "Tabla: " &MiTabla.TableName & vbCrLf & vbCrLf ' Recorremos las Columnas de cada Tabla

For Each MiColumna In MiTabla.Columns TextBox1.Text += MiColumna.ColumnName & vbTab & _ "(" & MiColumna.DataType.Name & ")" & vbCrLf Next Next Comando = Nothing End Sub End Class

Módulo 5 - Capítulo 1 3. Los proveedores de acceso a datos

Módulo 5 - Capítulo 1 4. El concepto DataBinding

Imports System.Data ImportsSystem.Data.SqlClient Imports System.Xml

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Conexion As String "server=.;uid=sa;password=VisualBasic;database=MSDNVideo" Dim MiDataSet As New DataSet() Dim Comando As New SqlDataAdapter("SELECT TITULO FROM ALQUILERES, PELICULAS WHERE PELICULACODBARRAS = CODBARRAS ANDSOCIONIF = '111111'", Conexion) ' Rellenamos el DataSet con el contenido ' de la sentencia SELECT Comando.Fill(MiDataSet, "PELIS") ' Rellenamos el control TextBox1 con el ' dato correspondiente a la primera fila ' de la sentencia SELECT ejecutada TextBox1.DataBindings.Add("Text", "PELIS.TITULO") Comando = Nothing End Sub End Class MiDataSet, =

Módulo 5 - Capítulo 1 5. Otras consideracionesIntroducción

Módulo 5 - Capítulo 2

Módulo 5 - Capítulo 2 1. El paradigma de la conexión

Módulo 5 - Capítulo 2 2. Conociendo el objeto DataReader

Módulo 5 - Capítulo 2 3. Un primer contacto con el objeto DataReader

Imports System.Data Imports System.Data.SqlClient Imports System.Xml

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load Dim Conexion As String "server=.;uid=sa;password=VisualBasic;database=MSDNVideo" Dim MiConexion As New SqlConnection(Conexion) Dim MiDataReader As SqlDataReader =

Dim Comando As New SqlCommand("SELECT TITULO FROM ALQUILERES, PELICULAS WHERE PELICULACODBARRAS = CODBARRAS AND SOCIONIF = '111111'", MiConexion) MiConexion.Open() MiDataReader = Comando.ExecuteReader()While MiDataReader.Read() TextBox1.Text += MiDataReader("TITULO") & vbCrLf End While Comando = Nothing MiConexion.Close() End Sub End Class

Módulo 5 - Capítulo 2 4. ¿Trabaja DataReader en un ambiente conectado realmente?

Imports System.Data Imports System.Data.SqlClient Imports System.Xml

Public Class Form1

Private Conexion As String"server=.;uid=sa;password=VisualBasic;database=MSDNVideo"

=

Private strSQL As String = "SELECT TITULO FROM ALQUILERES, PELICULAS WHERE PELICULACODBARRAS = CODBARRAS AND SOCIONIF = '111111'" Private MiConexion As New SqlConnection(Conexion) Private MiDataReader As SqlDataReader Private Contador As Long = 0 Private Posicion As Long = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Establecemos la Conexión con la base de datos Establecer_Conexion(True) ' Si hay datos los mostramos, sino deshabilitamos ' la opción (botón) para recorrerlos If Not MiDataReader.HasRows Then Button1.Enabled = False Else Button1_Click(sender, e) End If End Sub

Private Sub Establecer_Conexion(ByVal bolAccion As Boolean) Dim Comando As SqlCommand If bolAccion Then ' True => Establecemos la...