Crear cuenta
Dim UnConexion As New OleDbConnection
Dim UnAdapter As OleDbDataAdapter
Dim LosDatos As New DataSet
Dim UnaTabla As DataTable
Dim NombreDB As String = "X:\BaseDatos\DBPersonas.mdb"
UnConexion.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & NombreDB & ";"
' Lectura de TPers
UnAdapter = New OleDbDataAdapter("SELECT * FROM TPers", UnConexion)
UnaTabla = New DataTableUnAdapter.Fill(UnaTabla)
LosDatos.Tables.Add(UnaTabla) ' Tabla llamase TPers, o LosDatos.Tables(0)
' Lectura de TLoc
UnAdapter = New OleDbDataAdapter("SELECT * FROM TLoc", UnConexion)
UnaTabla = New DataTableUnAdapter.Fill(UnaTabla)
LosDatos.Tables.Add(UnaTabla) ' Tabla llamase TLoc, o LosDatos.Tables(1)
' Lectura de TPers INNER JOIN TLoc
UnAdapter = New OleDbDataAdapter("SELECT NumeroPers, RefNumeroLocalidad, NombrePers, NombreLocalidad FROM (TLoc INNER JOIN TPers ON TLoc.NumeroLocalidad = TPers. RefNumeroLocalidad)"))
UnaTabla = New DataTableUnAdapter.Fill(UnaTabla)
LosDatos.Tables.Add(UnaTabla) ' LosDatos.Tables(2) no llama
LosDatos.Tables(2).TableName = "PersonasYLocalidad"
' Añade la ligatura si es necesario (es una protección contra errores del programador)
Dim Domicilio As New DataRelation("Domicilio", _
LosDatos.Tables ("TLoc").Columns("NumeroLocalidad "), _
LosDatos.Tables ("PersonasYLocalidad").Columns("RefNumeroLocalidad"))
LosDatos.Relations.Add(Domicilio)
' No se necesita actualización sino hubo cambio en Datos inicialmente leídos.
If LosDatos.GetChanges() Is Nothing Then
MessageBox.Show("Ninguna modificacion")
Else
' La propiedad ContinueUpDateOnError del DataAdapter se establece en True para que la actualización no se interrumpa al primer rechazo.
UnConexionTemporal.ContinueUpdateOnError = True
Dim UnaCommand As OleDbCommand
Dim Param As OleDbParameter
Dim MisModifs As DataTable
Dim RegistrasATratar As Integer
Dim RegistrasTratadas As Integer
' Actualización: Agregar localidades (TLoc antes de TPers porque tabla "padre")
' Constitución de una tabla de datos que contiene todos los registros cuyo RowState es
' "Agregado". Este es el método GetChanges (DataRowState.Added) que llena este DataTable.
MisModifs = LosDatos.Tables("TLoc").GetChanges(DataRowState.Added)
' Si el DataTable está vacío, no hay registro para agregar.
' De lo contrario, se almacena el número de líneas a procesar.
If Not MisModifs Is Nothing Then
RegistrasATratar = MisModifs.Rows.Count
' Escribiendo el comando add con ? para valores desconocidos.
UnaCommand = New OleDbCommand("INSERT INTO TLoc (NumeroLocalidad, NombreLocalidad) VALUES (?, ?)", UnConexion)
' Un parámetro está definido por muchas propiedades, pero el único que se necesita aquí es el
' nombre del campo que representa. Un bucle For Each se puede utilizar cuando el orden y el
' número de incógnitas corresponden al orden y al número de columnas de la tabla de datos.
' Cada parámetro debe agregarse a la colección de parámetros del comando.
For Each C As DataColumn In MisModifs.Columns Param = New OleDbParameterParam.SourceColumn = C.ColumnName
UnaCommand.Parameters.Add(Param)
Next
' Cuando se escribe el comando y se definen sus parámetros, debe asignarse a la propiedad
' apropiada (InsertCommand en este caso) del DataAdapter.
UnConexionTemporal.InsertCommand = UnaCommand
' Todo lo que tiene que hacer es actualizar la actualización y guardar el número de líneas procesadas.
RegistrasTratadas = UnConexionTemporal.Update(MisModifs)
' Tratamiento de los rechazos (Display)
' Si hay menos líneas tratadas de las que hay que tratar, es que hubo rechazos.
' Tienes que pasar por el DataSet para encontrarlos y procesarlos.
If RegistrasTratadas < RegistrasATratar Then For Each R As DataRow In MisModifs.Rows ' Cualquier línea que se actualice correctamente recibe el valor Sin cambios para su propiedad RowState.
If R.RowState <> DataRowState.Unchanged Then
MessageBox.Show(R.Item(0) & " " & R.Item(1) & " no agregado")
End If
Next
End If
MisModifs.Reset()
End If
' ... ... ...
' Cuando tenemos que procesar físicamente un registro, tenemos que abrir una conexión y procesar el registro con su identificador
' Actualización: Agregar localidades : El programa ha leído o calculado el identificador necesario.
Private Sub AgregarLocalidade(ByVal Identificador As Integer)
Dim UnaCommand As OleDbCommand = NothingDim UnConexionTemporal As New OleDbConnection
UnConexionTemporal.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & NombreDB & ";"
UnConexionTemporal.Open()
Dim R As DataRow
R = LosDatos.Tables("TLoc").Select("NumeroLocalidad = '" & Identificador & "'")(0)
UnaCommand = UnConexionTemporal.CreateCommand
UnaCommand.CommandType = CommandType.Text
UnaCommand.CommandText = "INSERT INTO TLoc (NumeroLocalidad, NombreLocalidad) " & "VALUES ('" & R.Item("NumeroLocalidad") & "', '" & R.Item("NombreLocalidad") & "' )"
' Puede haber rechazo ...
Try
' En INSERT, el problema del identificador no encontrado no existe..
UnaCommand.ExecuteNonQuery()
' Pero puede haber rechazo por otras razones.
Catch Ex As Exception
' A tartar …
MessageBox.Show(Ex.Message & " no agregado")
Finally
LosDatos.AcceptChanges()
End Try
UnConexionTemporal.Close()
End Sub
' Actualización: Modificar localidades : El programa conoce el identificador necesario.
Private Sub ModificarLocalidade(ByVal Identificador As Integer)
Dim UnaCommand As OleDbCommand = NothingDim UnConexionTemporal As New OleDbConnection
UnConexionTemporal.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & NombreDB & ";"
UnConexionTemporal.Open()
Dim R As DataRow
R = LosDatos.Tables("TLoc").Select("NumeroLocalidad = '" & Identificador & "'")(0)
UnaCommand = UnConexionTemporal.CreateCommand
UnaCommand.CommandType = CommandType.Text
UnaCommand.CommandText = "UPDATE TLoc SET NombreLocalidad = '" & R.Item("NombreLocalidad") & "' WHERE (NumeroLocalidad = " & Identificador.ToString & ")"
' Puede haber rechazo ...
Try
If UnaCommand.ExecuteNonQuery() < 1 Then Throw New Exception("Identificador no encontrado")
Catch Ex As Exception
' A tartar …
MessageBox.Show(Ex.Message & "no modificar")
Finally
LosDatos.AcceptChanges()
End Try
UnConexionTemporal.Close()
End Sub
