treeview of Italy

[sal21]

Perhaps just post but not found in my old project, sorry.

attached a database.

I need this structure

+REG-REGIONE
+PR-PROVINCIA
CF-COMUNE

note:
a where clausole in query is on STATO field =A, for only active COMUNE

sorry me

[HansV]

See treeview with database access

[sal21]

See treeview with database access

!!!! Found in my old program 10 minutes ago...
I'm already working on it, I'm at 90%

sorry, bro.

note;
during the loop

Set RST = New ADODB.Recordset
RST.Open SQL, CNN, adOpenForwardOnly, adLockReadOnly ', ActiveConnection:=CNN, Options:=adCmdText
Do While Not RST.EOF
Set CHL = Me.TreeView1.Nodes.Add(Relative:=NOD, Relationship:=tvwChild, Text:=RST(FLD))
If level < UBound(arrLevels) Then
AddChildren CHL, level + 1
End If
RST.MoveNext
Loop

note:
my idea...
i see the code close and set to nothing the recordset, but have and idea to set from the query an array and work with it?
I think you gain a lot in speed or not?

[HansV]

I don't You might use the GetRows method of the recordset to read the records into an array

Code: Select all

    Dim myArray
    myArray = RST.GetRows

but you'd have to test for yourself if it improves the speed of execution.

[sal21]

I don't You might use the GetRows method of the recordset to read the records into an array

Code: Select all

    Dim myArray
    myArray = RST.GetRows

but you'd have to test for yourself if it improves the speed of execution.

Infact tomorrow i test GetRows.

[SpeakEasy]

Aha - back to testing, eh? Does this mean you'll be able to test the string decryption code from 10 days ago as well?

[sal21]

Aha - back to testing, eh? Does this mean you'll be able to test the string decryption code from 10 days ago as well?

SORRY i can test only now.

[snb]

Where/how did you get the mdb database ?
Save the database as "G:\OF\Italy.mdb"
Open the Excel file.
Adapt the fullpath in variable c00 in the Userform_initialize event of UF_001.
Click the button 'userform' in sheet1.