En el formulario:
- 6 Label: uno llamado ID, Lo demas con sus nombres de raiz
- 7 Button: NUEVO, AGREGAR, EDITAR, ACTUALIZAR, ELIMINAR, CANCELAR TODOS
- 1 DataGridView
- 3 TextBox: NOMBRE, DIRECCION, TEXTO
- 1 ComboBox: BUSQUEDA
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class
FORM1
Private D_TABLE As
DataTable
Private D_ADAPTER As
OleDbDataAdapter
Public SQL As String
Public ORDEN_BD As
OleDb.OleDbCommand
Public SELECCION As
String
Public CONEXION As
New OleDbConnection("PROVIDER=SQLOLEDB;"
&
"DATA SOURCE=NOMBRE_DEL_SERVIDOR;" &
"INITIAL CATALOG=NOMBRE_BASE_DE_DATOS;" &
"USER ID=USUARIO;PASSWORD=CLAVE")
'CONSULTA
Sub CONSULTA()
CONEXION.Open()
If SELECCION <> "TODOS" Then
SQL = "SELECT * FROM TABLA WHERE "
& BUSQUEDA.Text & " LIKE '" & SELECCION & "' ORDER BY
ID"
Else
SQL = "SELECT * FROM TABLA ORDER BY ID"
End If
ORDEN_BD = New OleDb.OleDbCommand(SQL,
CONEXION)
ORDEN_BD.CommandType = CommandType.Text
ORDEN_BD.ExecuteNonQuery()
REM CIERRO LA CONEXION
D_ADAPTER = New OleDbDataAdapter(ORDEN_BD)
D_TABLE = New DataTable
D_ADAPTER.Fill(D_TABLE)
DataGridView1.DataSource = D_TABLE
Try
ID.Text = D_TABLE.Rows(0)("ID")
NOMBRE.Text = D_TABLE.Rows(0)("NOMBRE")
DIRECCION.Text = D_TABLE.Rows(0)("DIRECCION")
Catch
EX As Exception
CONEXION.Close()
End Try
CONEXION.Close()
End Sub
Sub ENABLED_FALSE()
NOMBRE.Enabled = False
DIRECCION.Enabled = False
AGREGAR.Enabled = False
ACTUALIZAR.Enabled = False
End Sub
Sub ENABLED_TRUE()
NOMBRE.Enabled = True
DIRECCION.Enabled = True
End Sub
Sub LIMPIAR()
ID.Text = "..."
NOMBRE.Text = ""
DIRECCION.Text = ""
End
Sub
'TEXTO DE
BUSQUEDA
Private Sub
TEXTO_TextChanged(sender As Object,
e As EventArgs) Handles TEXTO.TextChanged
SELECCION = TEXTO.Text
SELECCION = "%" & SELECCION & "%"
Call CONSULTA()
End Sub
'COMBOBOX
PARA EL TIPO DE BUSQUEDA
Private
Sub
BUSQUEDA_Click(sender As Object,
e As EventArgs) Handles BUSQUEDA.Click
Try
CONEXION.Open()
Sql = "SELECT COLUMN_NAME FROM information_schema.columns WHERE
table_name = 'TABLA'"
ORDEN_BD = New OleDb.OleDbCommand(Sql,
CONEXION)
ORDEN_BD.CommandType = CommandType.Text
ORDEN_BD.ExecuteNonQuery()
REM Cierro la CONEXION
D_ADAPTER = New OleDbDataAdapter(ORDEN_BD)
D_TABLE
= New
DataTable
D_ADAPTER.Fill(D_TABLE)
BUSQUEDA.DataSource = D_TABLE
BUSQUEDA.DisplayMember = "COLUMN_NAME"
BUSQUEDA.ValueMember = "COLUMN_NAME"
CONEXION.Close()
Catch ex As Exception
'MessageBox.Show(ex.Message)
CONEXION.Close()
End Try
End Sub
'BOTON PARA MOSTRAR TODOS LOS REGISTROS
Private
Sub TODOS_Click(sender As Object, e As EventArgs) Handles TODOS.Click
SELECCION = "TODOS"
Call CONSULTA()
End Sub
Private Sub FORM1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call ENABLED_FALSE()
End Sub
'BOTON
ELIMINAR REGISTROS
Private Sub ELIMINAR_Click(sender
As Object, e As EventArgs) Handles ELIMINAR.Click
Try
If NOMBRE.Text = "" And DIRECCION.Text = "" Then
MsgBox("Bebe indicar
el registro")
Else
If MessageBox.Show("¿Desea eliminar el registro
'"
& ID.Text & "'?", "LV-Sistemas", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
Else
CONEXION.Open()
Sql = "DELETE FROM
TABLA where ID='" & ID.Text & "'"
ORDEN_BD = New OleDb.OleDbCommand(Sql, CONEXION)
ORDEN_BD.CommandType = CommandType.Text
ORDEN_BD.ExecuteNonQuery()
End If
CONEXION.Close()
Call LIMPIAR()
End If
Catch ex As Exception
'MessageBox.Show(ex.Message)
CONEXION.Close()
End Try
SELECCION = "TODOS"
Call CONSULTA()
End Sub
'BOTON
NUEVO
Private Sub NUEVO_Click(sender As Object, e As EventArgs) Handles NUEVO.Click
Call ENABLED_TRUE()
Call LIMPIAR()
AGREGAR.Enabled = True
ACTUALIZAR.Enabled = False
NOMBRE.Select()
End Sub
'BOTON
CANCELAR
Private Sub CANCELAR_Click(sender
As Object, e As EventArgs) Handles CANCELAR.Click
Call ENABLED_FALSE()
Call LIMPIAR()
End Sub
'BOTON
EDITAR
Private Sub EDITAR_Click(sender As Object, e As EventArgs) Handles EDITAR.Click
If NOMBRE.Text = "" And DIRECCION.Text = "" Then
MsgBox("Bebe indicar
el registro")
Else
Call ENABLED_TRUE()
ACTUALIZAR.Enabled = True
AGREGAR.Enabled = False
End If
End Sub
'BOTON
AGREGAR
Private Sub AGREGAR_Click(sender As Object, e As EventArgs) Handles AGREGAR.Click
CONEXION.Open()
Sql = ("INSERT INTO TABLA (NOMBRE,DIRECCION) VALUES ('" &
NOMBRE.Text & "','" & DIRECCION.Text & "')")
ORDEN_BD = New OleDb.OleDbCommand(Sql, CONEXION)
ORDEN_BD.CommandType = CommandType.Text
Try
ORDEN_BD.ExecuteNonQuery()
Catch EX As Exception
MessageBox.Show(EX.Message)
CONEXION.Close()
End Try
CONEXION.Close()
Call ENABLED_FALSE()
SELECCION = "TODOS"
Call CONSULTA()
End Sub
'BOTON
ACTUALIZAR
Private Sub
ACTUALIZAR_Click(sender As Object, e As EventArgs) Handles ACTUALIZAR.Click
Try
CONEXION.Open()
Sql = "UPDATE TABLA
SET NOMBRE='" & NOMBRE.Text &
"',DIRECCION='" & DIRECCION.Text
&
"' WHERE
ID="
& ID.Text
ORDEN_BD = New OleDb.OleDbCommand(Sql, CONEXION)
ORDEN_BD.CommandType = CommandType.Text
ORDEN_BD.ExecuteNonQuery()
CONEXION.Close()
MsgBox("Registro
actualizado!")
Call ENABLED_FALSE()
ACTUALIZAR.Enabled = False
AGREGAR.Enabled = False
SELECCION = "TODOS"
Call CONSULTA()
Catch ex As Exception
'MessageBox.Show(ex.Message)
CONEXION.Close()
End Try
End Sub
End Class
No hay comentarios:
Publicar un comentario