Stringa [vb] per ciclo...

[ciko1973]

Salve ragazzi,

ma cosa sbaglio in questo ?
Perchè mi restituisce un errore di run-time alla riga del ciclo for ?

Private Sub Comando0_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stsql As String
Dim i As Variant

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ("c:/db1.mdb") 'Server.mapPath non so cos'è..

stsql = "SELECT Data FROM tabella1"
rs.Open stsql, conn, 3, 3

For i = 0 To UBound(stsql)

MsgBox stsql

Next i

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing
End Sub

[vonkranz]

...perche' stsql non e' un Array.
Ubound serve per vedere da quanti elementi e' composta l'array.

Poi non ho ben capito perche' devi fare un ciclo FOR di quel tipo..
..a che ti serve?
...oppure avevi in mente qualche cosa di particolare...?

[ciko1973]

pensavo all'altro lavoro in cui mi stai aiutando.
Pensavo ad una connessione al db e verificare da lì le date.

Pure perchè in questo modo potrei controllare in qualsiasi istante i giorni festivi dell'anno