Imports System.data
Imports System.Data.SqlClient
Public Class GrdProyecto
Private oDataAd As SqlDataAdapter
Private oDataSet As DataSet
'Private oDataTable As DataTable
Private Binding As Windows.Forms.BindingSource = New BindingSource
Private busquedad As String = "SELECT * FROM proyecto"
Public oDataTable As DataTable
Private Sub GrdProyecto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With DgrdProyecto
.MultiSelect = False
.RowsDefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With
' Declarar la conexión y abrir
' Crear un DataAdapter y pasarle el comando para traer los registros
Dim oDataAd = New SqlDataAdapter("SELECT * FROM proyecto", conexion)
' DataTable
Dim oDataTable = New DataTable
'Dim oDataSet As New DataSet
'oDataTable = oDataSet.Tables.Add("oDataTable")
' llenar el DataTable
oDataAd.Fill(oDataTable)
conexion.Close()
' enlazar el DataTable al BindingSource
Binding.DataSource = oDataTable
' propiedades para el DataGridview
'''''''''''''''''''''''''''''''''''''''
DgrdProyecto.DataSource = oDataTable
End Sub
Function Buscar(ByVal Columna As String, ByVal texto As String, ByVal Binding As BindingSource) As Integer
Try
' si está vacio salir y no retornar nada
If Binding.DataSource Is Nothing Then
Return -1
End If
' Ejecutar el método Find pasándole los datos
Dim fila As Integer = Binding.Find(Columna.Trim, texto)
' Mover el cursor a la fila obtenida
Binding.Position = fila
' retornar el valor
Return fila
' errores
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Try
' no retornar nada
Return -1
End Function
Private Sub BtBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBuscar.Click
' Pasar el nombre del campo por el cual buscar ,
' el dato, y el BindingSource enlazado al DataGridView
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim ret As Integer = Buscar("cod_proyecto", TextBox1.Text.Trim, Binding)
' si no se encontró ....
If ret = -1 Then
' mostrar un mensaje
MsgBox("No se encontró la fila", MsgBoxStyle.Critical)
Else
With DgrdProyecto
' volver a enlazar
.DataSource = Binding
' Pasarle el índice para Visualizar la fila al comienzo de la grilla
.FirstDisplayedScrollingRowIndex = ret
End With
End If
End Sub
Private Sub BtEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEliminar.Click
Dim oDataSet As New DataSet
Me.DgrdProyecto.Rows.RemoveAt(0)
oDataAd.Update(oDataTable)
'Me.DgrdProyecto.Update()
End Sub
Private Sub BtModif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModif.Click
Me.DgrdProyecto.Update()
'Me.oDataAd.Update(oDataSet, "proyecto")
End Sub
End Class
Mostrar Mensajes
