Guia programacion consulta de registros
Click here to load reader
-
Upload
instituto-centro-de-sistemas-system-center -
Category
Documents
-
view
32 -
download
2
Transcript of Guia programacion consulta de registros
RUTINA DE PROGRAMACION CONSULTA DE REGISTROS
TABLA DE PROPIEDADES
CONTROL PROPIEDAD VALOR
Textbox1 Name Txtbuscar RadioButton1 Name RdoCodigo
RadioButton2 Name RdoNombre RadioButton1 Text Código del médico
RadioButton2 Text Nombre del Madedico GropuBox1 Text Consultar por
DataGridView1 Nombre DtgMedicos
Nota: Recuerda importar la clase para el proveedor de base de datos Access.
Imports System.Data.OleDb
DECLARAMOS VARIABLES TIPO DATASET Y DATAADAPTER
Dim DsAsignatura As New DataSet
Dim DaAsignatura As New OleDbDataAdapter
Dim sql As String
CREAMOS UN PROCEDIMIENTO PARA LLENAR LA GRID
Sub llenarGrid()
conexion.Open()
sql = "select * from Medicos"
DaMedicos = New OleDbDataAdapter(sql, conexion)
DsMedicos.Clear()
DaMedicos.Fill(DsMedicos, "Medicos")
dtgMedicos.DataSource = DsMedicos.Tables("Medicos")
dtgMedicos.Columns(0).Width = 20
dtgMedicos.Columns(1).Width = 50
dtgMedicos.Columns(2).Width = 100
dtgMedicos.Columns(3).Width = 10
dtgMedicos.Columns(4).Width = 20
dtgMedicos.Columns(0).HeaderText = "Código"
dtgMedicos.Columns(1).HeaderText = "Nombre"
dtgMedicos.Columns(2).HeaderText = "Dirección"
dtgMedicos.Columns(3).HeaderText = "Teléfono"
dtgMedicos.Columns(4).HeaderText = "Jornada"
conexion.Close()
End Sub
RUTINA DE BUSQUEDA PROCEDIMIENTO TEXTCHANGE CONTROL TXTBUSCAR
If RdoCodigo.Checked=True Then
conexion.Open()
sql = "Select * from medicos where codigo=” & txtbuscar.Text
DaMedicos = New OleDbDataAdapter(sql, conexion)
DsMedicos.Clear()
DaMedicos.Fill(DsMedicos, "medicos")
DtgMedicos.DataSource = DsMedicos.Tables("medicos")
conexion.Close()
End If
If RdoNombre.Checked=True Then
conexion.Open()
sql = "Select * from medicos where nombre like ('" & txtbuscar.Text & "%')"
DaMedicos = New OleDbDataAdapter(sql, conexion)
DsMedicos.Clear()
DaMedicos.Fill(DsMedicos, "medicos")
DtgMedicos.DataSource = DsMedicos.Tables("medicos")
conexion.Close()
End If