![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
02/07/2009, 15:56
|
| | Fecha de Ingreso: abril-2008 Ubicación: Santo Domingo, Republica Dominicana
Mensajes: 53
Antigüedad: 16 años, 9 meses Puntos: 0 | |
Respuesta: Datagridview Muchisimas Gracias! Todo está perfecto! Cita:
Iniciado por jaullo 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, |