MagicBuzz | Si tu passes pas MDAC (Connection OLE DB ou ODBC) il y a une solution supplémentaire, à peine moins performante et plus lisible :
Exemple avec une page ASP (code VB)
Code :
- dim cnx
- set cnx = server.createobject("ADODB.Connection" )
- cnx.open (connectionString)
- dim rs
- set rs = server.createobject("ADBDO.RecordSet" )
- set rs.ActiveConnection = cnx
- rs.cursorLocation = 2 ' adUseServer (default)
- rs.cursorType = 3 ' adOpenStatic (mode déconnecté : si un utilisateur insert/delete/update des données, tu ne vois pas les modifs, garantissant une cohérence des données tout au long de la lecture. légère baisse de performance. Si les données ne sont jamais lises à jour, alors utilise 0 (adOpenForwardOnly)
- rs.open ("select ..." )
- rs.move(min(lineDeb, rs.recordcount))
- for i = min(lineDeb, rs.recordcount) to min(lineDeb, rs.recordcount)
- if not rs.EOF then
- response.write rs("field1" )
- rs.movenext
- end if
- next
- rs.close
- set rs = nothing
- cnx.close
- set cnx = nothing
- function min(a, b)
- if a <= b then
- min = a
- else
- min = b
- end function
|
Message édité par MagicBuzz le 08-04-2003 à 17:29:55
|