Datagrid Con Recordset Desconectado
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Datagrid Con Recordset Desconectado as PDF for free.
More details
- Words: 423
- Pages: 3
318 - Datagrid con recordset desconectado - Anterior - Siguiente
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 Texto planoCopiar código fuenteImprimir
1.
Option Explicit
2.
3. 4.
' Agregar un Datagrid y la referencia de Ado '***************************************************************
5.
6. 7.
Dim rst_Desconectado As ADODB.Recordset Private Sub Form_Load()
8. 9.
10.
' Crea un nuevo objeto recordset
11.
Set rst_Desconectado = New ADODB.Recordset
12.
13.
' Define tres campos de tipo string
14.
15. 16. 17. 18. 19.
With rst_Desconectado.Fields .Append "Nombre", adBSTR, 25 .Append "Apellido", adBSTR, 25 .Append "Email", adBSTR, 40 End With
20.
21. 22. 23.
24. 25. 26.
' Abre el recordset desconectado rst_Desconectado.Open ' Agrega tres registros _ '**************************************************** rst_Desconectado.AddNew _
27. 28. 29. 30.
Array("Nombre", "Apellido", "Email"), _ Array("Carlos", "Perez", "[email protected]") rst_Desconectado.AddNew _
31. 32. 33. 34.
Array("Nombre", "Apellido", "Email"), _ Array("Maria", "Rodriguez", "[email protected]") rst_Desconectado.AddNew _
35. 36.
Array("Nombre", "Apellido", "Email"), _ Array("Pedro", "Gonsalez", "[email protected]")
37.
38.
'****************************************************
39.
40. 41.
' Asigna el recordset desconectado al DataGrid Set DataGrid1.DataSource = rst_Desconectado
42.
43. 44.
' establece un ancho a las columnas
45. 46. 47.
With DataGrid1 .Columns(0).Width = 2000 .Columns(1).Width = 2000 .Columns(2).Width = 2000
48.
End With
49.
50. 51. 52.
53. End
' se mueve al primer registro rst_Desconectado.MoveFirst Sub
54.
55. Private
Sub Form_Unload(Cancel As Integer)
56.
57. 58. 59. 60.
' Si está abierto el recordset lo cierra If Not rst_Desconectado.State = adStateOpen Then rst_Desconectado.Close End If
61.
62. 63. 64. 65.
' Descarga la referencia If Not rst_Desconectado Is Nothing Then Set rst_Desconectado = Nothing End If
66.
67. End 68.
Sub
Recursos Visual basic 6.0 - Enlaces relacionados
• •
Paginar un Microsoft FlexGrid mediante un recordset desconectado Datareport con un 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 Texto planoCopiar código fuenteImprimir
1.
Option Explicit
2.
3. 4.
' Agregar un Datagrid y la referencia de Ado '***************************************************************
5.
6. 7.
Dim rst_Desconectado As ADODB.Recordset Private Sub Form_Load()
8. 9.
10.
' Crea un nuevo objeto recordset
11.
Set rst_Desconectado = New ADODB.Recordset
12.
13.
' Define tres campos de tipo string
14.
15. 16. 17. 18. 19.
With rst_Desconectado.Fields .Append "Nombre", adBSTR, 25 .Append "Apellido", adBSTR, 25 .Append "Email", adBSTR, 40 End With
20.
21. 22. 23.
24. 25. 26.
' Abre el recordset desconectado rst_Desconectado.Open ' Agrega tres registros _ '**************************************************** rst_Desconectado.AddNew _
27. 28. 29. 30.
Array("Nombre", "Apellido", "Email"), _ Array("Carlos", "Perez", "[email protected]") rst_Desconectado.AddNew _
31. 32. 33. 34.
Array("Nombre", "Apellido", "Email"), _ Array("Maria", "Rodriguez", "[email protected]") rst_Desconectado.AddNew _
35. 36.
Array("Nombre", "Apellido", "Email"), _ Array("Pedro", "Gonsalez", "[email protected]")
37.
38.
'****************************************************
39.
40. 41.
' Asigna el recordset desconectado al DataGrid Set DataGrid1.DataSource = rst_Desconectado
42.
43. 44.
' establece un ancho a las columnas
45. 46. 47.
With DataGrid1 .Columns(0).Width = 2000 .Columns(1).Width = 2000 .Columns(2).Width = 2000
48.
End With
49.
50. 51. 52.
53. End
' se mueve al primer registro rst_Desconectado.MoveFirst Sub
54.
55. Private
Sub Form_Unload(Cancel As Integer)
56.
57. 58. 59. 60.
' Si está abierto el recordset lo cierra If Not rst_Desconectado.State = adStateOpen Then rst_Desconectado.Close End If
61.
62. 63. 64. 65.
' Descarga la referencia If Not rst_Desconectado Is Nothing Then Set rst_Desconectado = Nothing End If
66.
67. End 68.
Sub
Recursos Visual basic 6.0 - Enlaces relacionados
• •
Paginar un Microsoft FlexGrid mediante un recordset desconectado Datareport con un recordset desconectado
Related Documents
Datagrid Con Recordset Desconectado
May 2020 4
Recordset
November 2019 5
Datagrid
April 2020 13
Datagrid
November 2019 14
Color Datagrid
October 2019 16
Datagrid Web Control
November 2019 13More Documents from ""
Datagrid Con Recordset Desconectado
May 2020 4
Integracion Sistemas Linux-windows 2003
December 2019 8
De Bd A Textbox
May 2020 4
De Datagrid A Excel
May 2020 5