Tema: Datagridview
Ver Mensaje Individual
  #7 (permalink)  
Antiguo 02/07/2009, 15:56
vsuarez3
 
Fecha de Ingreso: abril-2008
Ubicación: Santo Domingo, Republica Dominicana
Mensajes: 53
Antigüedad: 16 años
Puntos: 0
Respuesta: Datagridview

Muchisimas Gracias! Todo está perfecto!



Cita:
Iniciado por jaullo Ver Mensaje
Exacto, cada linea de tu datagrid, representaria una linea en tu base de datos.

Para volver a cargar los datos en el datagrid:

Private WithEvents bs As New BindingSource
Private sqldataadapter As SqlDataAdapter
Private Const cs As String = "Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=tubd;Data Source=(local)"
Private bedit As Boolean

'cargar los registros
Function cargar()
Try
With tudatagrid
.AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite
.DefaultCellStyle.BackColor = Color.Beige
.DataSource = bs

End With

cargarregistros("select * from personal where nombre='" & TextBox1.Text & "'", tudatagrid)

Catch ex As Exception
MessageBox.Show("Error al cargar los datos", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Function


'para cargar los registros
Sub cargarregistros(ByVal sql As String, ByVal dv As DataGridView)
Try

sqldataadapter = New SqlDataAdapter(sql, cs)
Dim sqlcommandbuilder As New SqlCommandBuilder(sqldataadapter)
Dim dt As New DataTable()
sqldataadapter.Fill(dt)
bs.DataSource = dt
With dv
.Refresh()
.FirstDisplayedScrollingRowIndex = bs.Position

End With

bedit = False
Catch exsql As SqlException
MsgBox(exsql.Message.ToString)
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try

End Sub


Saludos,