none
MSFlexGrid - Cargar datos RRS feed

  • Pregunta

  • 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.

    martes, 3 de mayo de 2011 21:39

Todas las respuestas

  • 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

    martes, 3 de mayo de 2011 22:04
  • 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
    viernes, 6 de mayo de 2011 3:32
  • 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?

     

     

    jueves, 2 de junio de 2011 20:48
  • 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)
    viernes, 3 de junio de 2011 14:00