Visualizzazione dei risultati da 1 a 5 su 5
  1. #1
    Utente di HTML.it
    Registrato dal
    Sep 2005
    Messaggi
    361

    [VB6]: Collegare i dati ad una MsFlexGrid

    Ciao ragazzi, spero che qualcuno di voi mi sappia rispondere, probabilmente è una stupidata ma non riesco a capire bene, impostando la larghezza e l'altezza delle righe di una MsFlex vorrei che quando viene selezionato un pulsante chiamato "Preleva" la flex mi faccia visualizzare i dati di una tabella.mdb ma solo alcuni.
    Cioè, io ho una tabella.mdb con 10 campi ma la mia flex contiene solamente quattro colonne dove vengono visualizzati solo il mese, il numero della settimana, il cognome e il nome, vi posto il mio codice che chiaramente mi fa visualizzare i dati solo nella prima colonna:

    Private Sub ApriDatabase()
    Dim RigaGrid As Integer
    Dim i As Integer
    GrdTabelle.Rows = 1

    Set DB = OpenDatabase("C:\SUPER EMAIL - SUPEROTTICA\DB\DB_MAIL.mdb")
    Set rst1 = DB.OpenRecordset("SELECT DISTINCT MESE, SETTIMANANUMERO, COGNOME, NOME FROM VENDUTOSETTIMANALE")
    Do While Not rst1.EOF
    With GrdTabelle
    GrdTabelle.AddItem rst1.Fields("SETTIMANANUMERO")
    End With
    rst1.MoveNext
    Loop
    rst1.Close
    DB.Close
    Exit Sub
    End Sub

    Per esservi d'aiuto, le colonne hanno le seguenti intestazioni:
    1) Mese
    2) N° della settimana
    3) Cognome
    4) Nome

    Ciao e grazie

  2. #2
    Devi soltanto switchare da una colonna all'altra della griglia con il vbtab...Prova così (anche se il tuo codice è un po' macchinoso):

    Private Sub ApriDatabase()
    Dim RigaGrid As Integer
    Dim i As Integer
    GrdTabelle.Rows = 1

    Set DB = OpenDatabase("C:\SUPER EMAIL - SUPEROTTICA\DB\DB_MAIL.mdb")
    Set rst1 = DB.OpenRecordset("SELECT DISTINCT MESE, SETTIMANANUMERO, COGNOME, NOME FROM VENDUTOSETTIMANALE")
    Do While Not rst1.EOF
    With GrdTabelle
    GrdTabelle.AddItem rst1.Fields("MESE") & vbtab & rst1.Fields("SETTIMANANUMERO") & vbtab & _
    rst1.Fields("COGNOME") & Vbtab & rst1.Fields("NOME")
    End With
    rst1.MoveNext
    Loop
    rst1.Close
    DB.Close
    Exit Sub
    End Sub
    The Fresh...remaker
    A volte la risposta è sotto ai nostri occhi, bisogna solo aver voglia di cercarla!!
    http://www.angelsinthedark.it

  3. #3
    Utente di HTML.it
    Registrato dal
    Sep 2005
    Messaggi
    361

    GRAZIE MILLE!

    Ciao mentos
    ti ringrazio moltissimo, non pensavo che sipotesse fare anche per le Flex in questo modo.
    Ottimo consiglio e ti ringrazio ancora tanto
    Ciao Claudio

  4. #4
    Se invece della MSFlexGrid usi la MSHFlexGrid, puoi popolarla con il risultato della tua query semplicemente con una linea di codice:
    codice:
    Set GrdTabelle.Recordset = rst1
    Ciauz

    Chico

  5. #5
    Utente di HTML.it
    Registrato dal
    Sep 2005
    Messaggi
    361

    Risposta

    Ciao chico62
    prendero' in considerazione anche il tuo consiglio, perchè eviterei tante righe di codice.
    Grazie mille

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.