Funzione di interrogazione database

[VaLvOnAuTa]

Arisalve.

Stavo tentando di creare una funzione che, passata la stringa sql, mi eseguisse la query e mi restituisse il recordset corrispondente (tipo come mysql_query di php).

In pratica ho fatto

function mysql_query(query)
 comm.CommandText = query
 Rs.Open comm,,1,1
 mysql_query = Rs 
end function

però ovviamente mi da errore perchè mysql_query non viene trattata come ADODB.Recordset

C'è un modo per forzare tale funzione a restituire un recordset o è meglio che mi riscrivo il codice di volta in volta?

[Roby_72]

sub otticaUltima(objConn, strSQL, byRef arr_rs)
set rs = server.createObject("ADODB.Recordset")
rs.open strSQL, objConn, 1, 3
if not rs.eof then
	arr_rs = rs("ottica_id") 
end if
rs.close
set rs = nothing
end sub

In questo modo ti restituisce un array bidimensionale (righe - colonne) che devi solo scorrere.

Roby

[VaLvOnAuTa]

Originariamente inviato da Roby_72

rs.open strSQL, objConn, 1, 3

Giusto perchè sono novizio... mi spieghi la stringa quotata?
Cioè.. non l'ho mai capito, ma quei due interi a fine stringa a che servono?

[Roby_72]

So i curso di lettura e scorrimento del recordset aperto.
Puoi ometterli e lui se li crea di default se preferisci.

Roby

[VaLvOnAuTa]

Originariamente inviato da Roby_72
So i curso di lettura e scorrimento del recordset aperto.
Puoi ometterli e lui se li crea di default se preferisci.

Roby

Ok grazie mille