none
Preencher msflexgrid com Criterios RRS feed

  • Pergunta

  • Olá ,

    Podem ajudar ?

    Estou com este codigo para preencchimento do grid mas esta trazendo todos os dados da tabela historico, precisava que o grid seja preenchido apenas com os dados onde na 1ª coluna  da tabela conter o ID do textbox ?

     

     

    Private Sub cmb_consultar_Click()
    Dim con As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim lTimer As Long
    lTimer = Timer
    
    'Local do banco
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BD_1.mdb"
    
    ' Abre banco
    Set Rs.ActiveConnection = con
    Rs.Open "Select *From TBL_CON"
     
     Do Until Rs.EOF
       strSQL = "SELECT * "
        strSQL = strSQL & "FROM TBL_CON "
        strSQL = strSQL & "WHERE ID = " & txt_ID.Text
        
        If Rs.Fields(0).Value = txt_ID.Text Then
          Me.txt_consumidor.Text = Rs.Fields(1)
        End If
    
      Rs.MoveNext
     Loop
      Rs.Close
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     Rs.Open "Select *From TBL_HISTORICO"
      Lin = 1
      MSFlexGrid1.Rows = 1
      
     Do While Not Rs.EOF
     
        With MSFlexGrid1
          .Rows = MSFlexGrid1.Rows + 1
          .TextMatrix(Lin, 0) = IIf(IsNull(Rs.Fields(0).Value), "", Rs.Fields(0).Value)
          .TextMatrix(Lin, 1) = IIf(IsNull(Rs.Fields(1).Value), "", Rs.Fields(1).Value)
    
        End With
        Rs.MoveNext
        Lin = Lin + 1
        
      'Wend
    Loop
    
    Set Rs = Nothing
    con.Close
    Set con = Nothing
    End Sub

    grato;

    bruno

    quarta-feira, 29 de setembro de 2010 11:35

Respostas