[VB6] Associare più tabelle con FlexGrid

[vr-claudio]

Ciao ragazzi,
scusate ma devo chiedervi un'altro piacere, tre giorni fa chiesi al forum come era possibile
associare due tabelle (mdb) insieme all'interno di una ListView, Gibra gentilmente mi ha
aiutato facendomi capire il collegamento di piu' tabelle con la funzione "UNION", qui sotto il link di quella discussione:

http://forum.html.it/forum/showthrea...readid=1364251

Se io dovessi associare piu' tabelle con una FlexGrid? Come posso fare?
Qui sotto vi posto il codice che adotto per associare una sola tabella alla Flex:

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Screen.MousePointer = vbHourglass
Call StrutturaFlex
FLEX.Refresh

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\...\DB.mdb;Persist Security Info=False"
rs.Open "SELECT NOMI FROM TBL_NOMI", db, adOpenStatic, adLockReadOnly
rs.MoveFirst

FLEX.Rows = rs.RecordCount + 1
FLEX.Cols = rs.Fields.Count
FLEX.row = 1
FLEX.col = 0
FLEX.RowSel = FLEX.Rows - 1
FLEX.ColSel = FLEX.Cols - 1
FLEX.Clip = rs.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
FLEX.row = 1
FLEX.TextMatrix(2, i) = FLEX.TextMatrix(5, i)
Set rs = Nothing
Set db = Nothing
Screen.MousePointer = vbDefault

Grazie vr-claudio

[vr-claudio]

Ciao ragazzi,
ho risolto, se dovesse servire a qualcuno qui sotto vi posto il mio codice che ho utilizzato
per legare piu' tabelle ad una flexgrid

...
...
...
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\...\DB.mdb;Persist Security Info=False"
rs.Open "SELECT NOMI FROM TBL_NOMI UNION ALL SELECT NOMI FROM TBL_NOMI_1", db, adOpenStatic, adLockReadOnly
rs.MoveFirst

Grazie per la vs attenzione
vrclaudio