Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - archivio access
Forum - Visual Basic 6 - archivio access

Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 9:41
Domenica, 07/12/2008
ciao ragazzi

in un archivio access che vorrei visualizziare in una MSHFLEXGRID in basa alla data

spiego :
ogni giorno si creano nell'archivio due record
ogni recordset ha la stessa data
esempio


Codice sorgente - presumibilmente Plain Text

  1. ID      Data            nm1     nm2     nm3     nm4     nm5     nm6     nm7
  2.  
  3. 1629    29/11/2008      47      3       42      2       35      36      27
  4. 1630    29/11/2008      11      19      22      41      34      8       23




dovrei far in modo che nella griglia
OGNI DATA VENGA VISUALIZZATA  nella stessa riga
cioè in questo modo :

Codice sorgente - presumibilmente Plain Text

  1. 1629    29/11/2008      47      3       42      2       35      36      27     11       19      22      41      34      8



uso questa semplice connessione

rs.Open " select TOP " & caricaestraz & " ID,Data,Time,nm1,nm2,nm3,nm4,nm5,nm6,nm7 From ARCUK49  ORDER BY ID DESC;", cn, 3, 3


    Dim dfwConn As ADODB.Connection


    Set MSHFlexGrid1.DataSource = rs



da questa poi dovrei fare il tutto

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 11:57
Domenica, 07/12/2008
io con i DB nn sn x niente bravo...cmq penso dovresti  utilizzare un if ogni volta che prelevi i dati dal db e li immetti nella msflexgrid...

PM Quote
Avatar
BigL (Normal User)
Newbie


Messaggi: 14
Iscritto: 07/11/2008

Segnala al moderatore
Postato alle 11:17
Giovedì, 11/12/2008
ciao per inserire i dati di una query in una flexgrid poi usare la sintassi seguente:

    Set rs2 = New ADODB.Recordset
    sql = "SELECT dbo.TotaliCol.collo, dbo.TotaliCol.fascette, dbo.DaControllare.DaControllare FROM dbo.DaControllare RIGHT OUTER JOIN dbo.TotaliCol ON dbo.DaControllare.collo = dbo.TotaliCol.collo order by dbo.TotaliCol.collo"

    rs2.Open sql, conn, 1, 2
   ReDim tRiga(6000000)
flex.row = 0               'Grassetto tutta la riga 1
For x = 0 To flex.Cols - 1
    flex.Col = x
    flex.CellFontBold = True
Next
Do Until rs2.EOF

    If IsNull(rs2.Fields("collo")) = True Then
     tRiga(i).Collo = ""
    Else
     tRiga(i).Collo = rs2.Fields("collo")
    End If
    If IsNull(rs2.Fields("fascette")) = True Then
     tRiga(i).Fascette = ""
    Else
     tRiga(i).Fascette = rs2.Fields("fascette")
    End If
    If IsNull(rs2.Fields("DaControllare")) = True Then
     tRiga(i).novalide = ""
    Else
     tRiga(i).novalide = rs2.Fields("DaControllare")
    End If
  
     flex.AddItem tRiga(i).Collo & vbTab & tRiga(i).Fascette & vbTab & tRiga(i).novalide
     rs2.MoveNext
Loop

vedi se ti va bene...
:)

PM Quote