MSFlexGrid - Cargar datos

Question

Buen día amigos, tengo varias preguntas respecto a este control

Mi conexión se llama CN

Mi Recordset se llama RS

1. Deseo cargar un MSFlexGrid con los datos de mi tabla.

2. Al cargar mi MSFlexGrid, al darle click a la fila, quiero que cargue la información al formulario.

Answer 1

Abraham, gracias por marcar mi ayuda como respuesta.

Tengo un ejemplo de esta grid en Microsoft Access. La idea es agregar datos a la grid desde una serie de controles de texto al pié de la misma. Para editar, también. Doble click y se cargan los valores en los cuadros de texto. Revísalo. http://www.tucondominioaldia.com.ve/archivos/ejemGrid.zip

Answer 2

Hola,

Escribio Abrahan Rosables
>
>1. Deseo cargar un MSFlexGrid con los datos de mi tabla.

Analiza este codigo ver si te puede serivir para lo que buscas

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sQuery As String

Dim lCol2 As Long
Dim lRow2 As Long

sQuery = "Select ID,Order_ID,Product_ID FROM [Order]"

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb" & ";Persist Security Info=False"

cnn.Open

rs.Open sQuery, cnn, adOpenKeyset, adLockOptimistic, adCmdText
lCol2 = 0

With rs
With MSFlexGrid1
rs.AddNew

rs.Fields("ID") = VarCustomer
rs.Fields("Order_ID") = OrderID

For lRow2 = .FixedRows To .Rows - 1 ' Process all row
rs.Fields("Product_ID") = MSFlexGrid1.TextMatrix(lRow2, lCol2)
rs.Update
Next lRow2

End With

End With

Un saludo

---

Santo Domingo

Answer 3

Hola,

Escribio Abrahan Rosables
>
>1. Deseo cargar un MSFlexGrid con los datos de mi tabla.

Analiza este codigo ver si te puede serivir para lo que buscas

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sQuery As String

Dim lCol2 As Long
Dim lRow2 As Long

sQuery = "Select ID,Order_ID,Product_ID FROM [Order]"

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb" & ";Persist Security Info=False"

cnn.Open

rs.Open sQuery, cnn, adOpenKeyset, adLockOptimistic, adCmdText
lCol2 = 0

With rs
With MSFlexGrid1
rs.AddNew

rs.Fields("ID") = VarCustomer
rs.Fields("Order_ID") = OrderID

For lRow2 = .FixedRows To .Rows - 1 ' Process all row
rs.Fields("Product_ID") = MSFlexGrid1.TextMatrix(lRow2, lCol2)
rs.Update
Next lRow2

End With

End With

Un saludo

---

Santo Domingo

Hola amigo no entiendo este pedazo

For lRow2 = .FixedRows To .Rows - 1 ' Process all row
rs.Fields("Product_ID") = MSFlexGrid1.TextMatrix(lRow2, lCol2)
rs.Update
Next lRow2

 

Para que sirve?

 

 

Answer 4

el For es para recorrer cada fila de la rejilla. Luego actualiza el campo Product_ID con el valor de la celda segun la fila activa(indicada por la variable IRow2 y la columna ICOL2)