Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

323 - Seleccionar fila en un Datagrid

Usar la propiedad MarqueeStyle del Datagrid para seleccionar una fila completa

Agregar

la referencia a Microsoft Activex DataObjects para acceder a ADO
y un control Datagrid

Nota: para establecer los diferentes valores para la propiedad MarqueeStyle en tiempo de diseño, hacerlo desde la ficha Custom o página de propiedades, en la solapa Divisiones del control DataGrid

Código fuente en el formulario

Dim Recordset As Recordset '*************************************************************************** '* Name : Seleccionar la fila completa en un control DataGrid _ Agregar la referencia a Ado y un control Datagrid llamado Datagrid1 '*************************************************************************** Private Sub Form_Load() Dim db As Connection ' Nueva conexión Ado Set db = New Connection db.CursorLocation = adUseClient ' Base de datos de visual basic NWIND db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & _ "C:\Archivos de programa\Microsoft Visual Studio\" & _ "VB98\NWIND.MDB;" ' Crea un nuevo recordset Set Recordset = New Recordset ' Lo abre Recordset.Open "select IdCategoría,NombreCategoría,Descripción from Categorías", _ db, adOpenStatic, adLockOptimistic ' Asigna el recordset al DataGrid Set DataGrid1.DataSource = Recordset ' Esta propiedad es la que selecciona _ toda la fila del dataGrid usando la propiedad MarqueeStyle DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell End Sub Private Sub Form_Resize() On Error Resume Next ' Redimensiona el datagrid DataGrid1.Height = Me.ScaleHeight - 300 DataGrid1.Width = Me.ScaleWidth DataGrid1.Left = 0 DataGrid1.Top = 0 End Sub Private Sub Form_Unload(Cancel As Integer) ' Cierra el recordset If Not Recordset.State = adStateOpen Then Recordset.Close End If ' Elimina la referencia If Not Recordset Is Nothing Then Set Recordset = Nothing End If End Sub

Recursos visual basic - Enlaces relacionados

Datagrid - Ejemplos

Buscar en Recursos vb