Download Bases de datos con ADO.NET

Bases de datos con ADO.NET
Torpedo para utilizar ADO.NET y no morir en el intento
Base de
datos
SQL Server
MySQL
SQLite
Oracle
Conjunto de datos: DataSet
Objeto de conexión
XXConnection
sqlConnetion,
MySqlConnection,
SQLiteConnection
Tablas de datos:
DataTable
Objeto para Comandos
XXCommand
sqlCommand,
MySqlCommand,
SQLiteCommand
Comando de selección
a una tabla puntual
Select * From Clientes
sincronizar dataset
con BD
Update(dataSet, NombreTabla)
llenar tabla con datos
Fill(dataSet, NombreTabla)
Objeto Adaptador
XXDataAdapter
sqlDataAdapter,
MySqlDataAdapter,
SQLiteDataAdapter
Generador de Comandos
XXCommandBuilder
sqlCommandBuilder,
MySqlCommandBuilder,
SQLiteCommandBuilder
A partir del Select del Command
genera las instrucciónes INSERT,
UPDATE y DELETE automáticamente
Bases de datos con ADO.NET
Torpedo para utilizar ADO.NET y no morir en el intento
*
Estas acciones provocan
que el DataSet cambie,
es decir, que hasChanges
se establezca a True
Conjunto de datos: DataSet
DataTable
Nuevo registro*
rowActual = Table.Rows.Add
Objeto Registro
DataRow
Buscar un registro:
rowActual = Table.Rows.Find(”clave”)
Actualizar/Llenar registro*
rowActual(”campo1”) = “valor”
Eliminar registro*
rowActual.delete()
Bases de datos con ADO.NET
Torpedo para utilizar ADO.NET y no morir en el intento
Dim strCon As String = "server=localhost;" & _
"User Id=root;" & _
"password=delvion;" & _
"Persist Security Info=True;" & _
"database=sistema"
Dim con As New MySqlConnection(strCon)
Dim cmdUsuarios As New MySqlCommand("select * from usuarios", con)
Dim daUsuarios As New MySqlDataAdapter(cmdUsuarios)
Dim ds As New dsUsuarioTelefono
Dim cbUsuarios As New MySqlCommandBuilder(daUsuarios)
Dim rowActual As DataRow
Dim esNuevo As Boolean = True
daUsuarios.Fill(ds, "usuarios")
rowActual = Nothing
If rowActual Is Nothing Then
rowActual = ds.Tables("usuarios").NewRow
End If
rowActual("rut") = txtRut.Text
rowActual("nombre") = txtNombre.Text
rowActual("nick") = txtNick.Text
rowActual("clave") = txtClave.Text
If esNuevo Then
ds.Tables("usuarios").Rows.Add(rowActual)
End If
If rowActual Is Nothing Then
rowActual = ds.Tables("usuarios").Rows.Add
End If
rowActual("rut") = txtRut.Text
rowActual("nombre") = txtNombre.Text
rowActual("nick") = txtNick.Text
rowActual("clave") = txtClave.Text
If rowActual IsNot Nothing Then
rowActual.Delete()
rowActual = Nothing
End If
If ds.HasChanges Then
Try
daUsuarios.Update(ds, "usuarios")
MessageBox.Show("Sincronizado!")
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
ds.WriteXml("c:\datos.xml")
Leyenda
Definición de los elementos
Carga de la tabla usuarios al dataset
Inicialización de rowActual
Buscar una registro (fila) y cargarlo
Guardar/Actualizar un registro
Sincronizar tabla usuarios
Grabar el dataset como XML