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

318 - Datagrid con recordset desconectado

Ejemplo simple para crear un recordset desconectado, añadir algunos datos y luego asignar el recorset al Datagrid

En el código primero se crea un recordset y se le definen tres campos de tipo String ( método Append del objeto Fileds ).

Luego se abre el recordset con Open y se le añaden algunos registros con el método addNew. Por último se enlaza dicho recordset al control DataGrid para mostrar los datos

Nota. En el ejemplo, es ves de añadir los datos a los campos haciendo referencia al campo:

recorset("Campo") = Dato

.. los registros se añaden utilizando el parámetro opcional del método AddNew, indicando la lista de campos y en el segundo parámetro también de tipo opcional, la lista de valores para los campos.

Para el ejemplo agregar

la referencia a Microsoft Activex DataObject
y un control Datagrid

Código fuente en el formulario

Option Explicit ' Agregar un Datagrid y la referencia de Ado '*************************************************************** Dim rst_Desconectado As ADODB.Recordset Private Sub Form_Load() ' Crea un nuevo objeto recordset Set rst_Desconectado = New ADODB.Recordset ' Define tres campos de tipo string With rst_Desconectado.Fields .Append "Nombre", adBSTR, 25 .Append "Apellido", adBSTR, 25 .Append "Email", adBSTR, 40 End With ' Abre el recordset desconectado rst_Desconectado.Open ' Agrega tres registros _ '**************************************************** rst_Desconectado.AddNew _ Array("Nombre", "Apellido", "Email"), _ Array("Carlos", "Perez", "carlos@gmail.com") rst_Desconectado.AddNew _ Array("Nombre", "Apellido", "Email"), _ Array("Maria", "Rodriguez", "maria@gmail.com") rst_Desconectado.AddNew _ Array("Nombre", "Apellido", "Email"), _ Array("Pedro", "Gonsalez", "Pedro@gmail.com") '**************************************************** ' Asigna el recordset desconectado al DataGrid Set DataGrid1.DataSource = rst_Desconectado ' establece un ancho a las columnas With DataGrid1 .Columns(0).Width = 2000 .Columns(1).Width = 2000 .Columns(2).Width = 2000 End With ' se mueve al primer registro rst_Desconectado.MoveFirst End Sub Private Sub Form_Unload(Cancel As Integer) ' Si está abierto el recordset lo cierra If Not rst_Desconectado.State = adStateOpen Then rst_Desconectado.Close End If ' Descarga la referencia If Not rst_Desconectado Is Nothing Then Set rst_Desconectado = Nothing End If End Sub

Recursos vb - Enlaces relacionados

Buscar en Recursos vb