Vamos a realizar un mantenimiento de una tabla de
una base de datos de Oracle, para ello cargaremos la tabla en un DataGridView
de Visual Basic y pondremos los botones de Alta, Modificar y Eliminar, También
pondremos algunos campos como filtros, de modo que podamos hacer búsquedas en
la tabla.
Enlazaremos los datos de la tabla con
DataBinding de Visual Basic.
Ojo porque hay veces que la select es correcta
pero no carga nada, en ese caso hay que revisar la PK de la tabla, si la
creamos y sigue sin funcionar, añadimos una columna nueva de tipo number y la
hacemos autonumérica, luego le asignamos la PK y con esto ya debería funcionar.
Crearemos un formulario con tres txt de campos
llamados txtCampo1, 2 y 3, otros tres de filtrado llamados txtFiltroCampo1, 2 y
3 y un DataGridView llamado
dgdDataResult.
El programa sería de este estilo:
Imports
System.IO
Imports
System.Data.OleDb
Imports
System.Windows.Forms
Imports
System.Data.SqlClient
Public Class frmMantenimiento
Dim ds As New DataSet()
Dim bs As BindingSource = New BindingSource()
Dim dA As New OleDb.OleDbDataAdapter
Dim drEdit As DataRowView
Dim bolRefrescar As Boolean
Dim bolPrimeraVez As Boolean = True
Const Tabla = "Mantenimiento"
Enum Accion
Alta = 1
Baja = 2
Modificacion = 3
End Enum
Dim TipoAccion As Accion
Private Sub
frmFlogicos_Load(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.grdResult.DataSource
= bs
txtCampo1.MaxLength = 40
txtCampo2.MaxLength = 40
txtCampo3.MaxLength = 40
Mantenimiento()
Dim
ObjetosPermitidos As Dictionary(Of String, String)
ObjetosPermitidos
= ComprobarPermisos(Me.Name)
btnModificar.Visible =
IIf(ObjetosPermitidos.ContainsKey("btnModificar"), True, False)
btnBaja.Visible =
IIf(ObjetosPermitidos.ContainsKey("btnBaja"), True, False)
btnAlta.Visible =
IIf(ObjetosPermitidos.ContainsKey("btnAlta"), True, False)
End Sub
Sub Mantenimiento()
Dim tb As DataTable
Dim srSQL As StreamReader
Dim strConsulta As String
Dim oPar As OleDbParameter
Dim iNumReg As Integer
Dim cmdbuilder As OleDbCommandBuilder
tb = New DataTable
strStartupPath = My.Application.Info.DirectoryPath
srSQL = New System.IO.StreamReader(strStartupPath
& "\CargarTabla.sql")
strConsulta = srSQL.ReadToEnd
cmdPD = New OleDb.OleDbCommand(strConsulta,
cnxPD)
dA.SelectCommand = cmdPD
cmdbuilder = New OleDbCommandBuilder(dA)
dA.Fill(ds, "Mantenimiento")
If Not bolPrimeraVez Then
Exit Sub
End If
bolPrimeraVez = False
dA.UpdateCommand =
cmdbuilder.GetUpdateCommand()
dA.DeleteCommand =
cmdbuilder.GetDeleteCommand()
dA.InsertCommand =
cmdbuilder.GetInsertCommand()
bs.DataSource = ds.Tables(Tabla)
Me.txtCampo1.DataBindings.Add(New Binding("Text", bs, "CAMPO1"))
Me.txtCampo2.DataBindings.Add(New Binding("Text", bs, "CAMPO2"))
Me.txtCampo3.DataBindings.Add(New Binding("Text", bs, "CAMPO3"))
grdResult.Columns(0).MinimumWidth = 180
grdResult.Columns(1).MinimumWidth = 100
grdResult.Columns(2).MinimumWidth = 30
grdResult.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
grdResult.Columns(0).HeaderText = "Campo
1"
grdResult.Columns(1).HeaderText = "Campo
2"
grdResult.Columns(2).HeaderText = "Campo
3"
grdResult.Refresh()
End Sub
Function BuscarCodigoRelacion() As Integer
Stop
End Function
Private Sub
btnFiltro_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles btnFiltro.Click
Dim strFiltro As String = ""
Dim vwMantenimiento As DataView
If txtFiltroCampo1.Text
<> "" Then
If Not strFiltro = "" Then
strFiltro = strFiltro & "
AND "
End If
strFiltro = strFiltro & "CAMPO1 LIKE '%" & txtFiltroCampo1.Text & "%'"
End If
If txtFiltroCampo2.Text
<> "" Then
If Not strFiltro = "" Then
strFiltro = strFiltro & "
AND "
End If
strFiltro = strFiltro & "CAMPO2
LIKE '%" &
txtFiltroCampo2.Text & "%'"
End If
If txtFiltroCampo3.Text
<> "" Then
If Not strFiltro = "" Then
strFiltro = strFiltro & " AND "
End If
strFiltro = strFiltro & "CAMPO3 LIKE '%"
& txtFiltroCampo3.Text & "%'"
End If
If Not ds.Tables("Mantenimiento") Is Nothing Then
vwMantenimiento = ds.Tables("Mantenimiento").DefaultView
vwMantenimiento.RowFilter
= strFiltro
End If
End Sub
Private Sub
btnAlta_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles btnAlta.Click
Dim strConsulta As String
TipoAccion = Accion.Alta
grbDetalle.Enabled = True
grbBuscar.Enabled = False
drEdit = bs.AddNew()
bs.MoveLast()
grdResult.Refresh()
End Sub
Private Sub
btnBaja_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles btnBaja.Click
Dim drv As DataRowView
TipoAccion = Accion.Baja
Try
If MsgBox("¿Esta usted seguro que desea borrar este registro?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmación de Baja") = MsgBoxResult.Yes Then
drv = bs.Current
drv.Delete()
End If
dA.Update(ds, Tabla)
grbDetalle.Enabled = False
grdResult.Refresh()
Catch ex As Exception
If Mid(ex.Message,
1, 9) = "ORA-00001" Then
MsgBox("El código de la tabla
debe ser único revise los datos e intentelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar
los datos")
End If
If Mid(ex.Message,
1, 9) = "ORA-02292" Then
MsgBox("No está permitido el
borrado en cascada, asegúrese que el campo no tiene SubCampos asociados antes
de borrarlos", MsgBoxStyle.Critical, "Error al actualizar los datos")
End If
Recargar()
End Try
End Sub
Private Sub
btnModificar_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles
btnModificar.Click
TipoAccion
= Accion.Modificacion
grbDetalle.Enabled = True
grbBuscar.Enabled
= False
End Sub
Private Sub
btnAceptar_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim drv As DataRowView
Try
drv = bs.Current
bs.EndEdit()
dA.Update(ds, Tabla)
grbBuscar.Enabled = True
grbDetalle.Enabled = False
grdResult.Refresh()
bolRefrescar = False
Catch ex As Exception
If Mid(ex.Message,
1, 9) = "ORA-00001" Then
MsgBox("El código debe ser único
revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")
End If
bolRefrescar = True
End Try
End Sub
Private Sub
btnCancelar_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles
btnCancelar.Click
bs.CancelEdit()
If bolRefrescar Then
Recargar()
End If
grbDetalle.Enabled = False
grbBuscar.Enabled = True
End Sub
Sub Recargar()
bolRefrescar = False
ds.Tables(1).Clear()
ds.Tables(0).Clear()
FormatoLogico()
grdResult.Refresh()
End Sub
Private Sub
txtCodigo_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
End Sub
Sub
AplicarFiltro()
Dim strFiltro As String = ""
Dim vwMantenimiento As DataView
If txtFiltroCampo1.Text
<> "" Then
If Not strFiltro = "" Then
strFiltro = strFiltro & "
AND "
End If
strFiltro = strFiltro & "Campo1 LIKE '%" & txtFiltroCampo1.Text & "%'"
End If
If txtFiltroCampo2.Text
<> "" Then
If Not strFiltro = "" Then
strFiltro = strFiltro & "
AND "
End If
strFiltro = strFiltro & "CAMPO2
LIKE '%" &
txtFiltroCampo2.Text & "%'"
End If
If txtFiltroCampo3.Text
<> "" Then
If Not strFiltro = "" Then
strFiltro = strFiltro & "
AND "
End If
strFiltro = strFiltro & "CAMPO3
LIKE '%" &
txtFiltroCampo3.Text & "%'"
End If
If Not ds.Tables("Mantenimiento") Is Nothing Then
vwMantenimiento = ds.Tables("Mantenimiento").DefaultView
vwMantenimiento.RowFilter = strFiltro
End If
End Sub
Private Sub
txtFiltroCampo1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroCampo1.TextChanged
AplicarFiltro()
End Sub
Private Sub txtFiltroCampo2_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroCampo2.Validated
AplicarFiltro()
End Sub
Private Sub txtFiltroCampo3_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroCampo3.Validated
AplicarFiltro()
End Sub
Private Sub txtFiltroCampo1_TextChanged(sender
As Object, e As EventArgs) Handles txtFiltroCampo1.TextChanged
AplicarFiltro()
End Sub
Private Sub txtFiltroCampo2_TextChanged(sender As Object, e As EventArgs) Handles txtFiltroCampo2.TextChanged
AplicarFiltro()
End Sub
Private Sub txtFiltroCampo3_TextChanged(sender As Object, e As EventArgs) Handles txtFiltroCampo3.TextChanged
AplicarFiltro()
End Sub
Esta es la SQL que
llama a la Base de datos (será un módulo .sql asociado al proyecto de Visual Basic)
CargarTabla. sql
SELECT CAMPO1, CAMPO2, CAMPO3 FROM PROPIETARIO.TABLA
Si queremos poner un INSERT o un DELETE con parámetros, en vez de un SELECT hacemos:
Sub InsertaTabla(ByVal cod_idAsString, ByValdes_idAsString)
Dim srSQL As IO.StreamReader
Dim strConsulta AsString
Try
strStartupPath = My.Application.Info.DirectoryPath
srSQL = New System.IO.StreamReader(strStartupPath & "\InsertaTabla.sql")
strConsulta = srSQL.ReadToEnd
cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
cmdPD.CommandType = CommandType.Text
cmdPD.Parameters.AddWithValue("?", cod_id)
cmdPD.Parameters.AddWithValue("?", des_id)
cmdPD.ExecuteNonQuery()
Catch
MsgBox("Se ha producido un error insertando en TABLA: " & Err.Description)
EndTry
EndSub
Sub BorraTabla()
Dim srSQL AsStreamReader
Dim strConsulta AsString
Try
strStartupPath = My.Application.Info.DirectoryPath
srSQL = New System.IO.StreamReader(strStartupPath & "\BorraTabla.sql")
strConsulta = srSQL.ReadToEnd
cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
cmdPD.CommandType = CommandType.Text
cmdPD.ExecuteNonQuery()
Catch
MsgBox("Se ha producido un error borrando en TABLA: " & Err.Description)
EndTry
EndSub
InsertaTabla.sql (las ? son los parámetros)
INSERT PROPIETARIO.TABLA VALUES(?,?,'Valor por defecto1','Valor por defecto2')
BorrarTabla.sql (las ? son los parámetros)
DELETE PROPIETARIO.TABLA WHERE CAMPO1= ?
