Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
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