Bilgisayar Bölümü ASP Kod ve Script Arşivi


Recordset to Array function

Function RecordsetToArray(ByVal sConn, ByVal sSQL)
Dim cnRTA, rsRTA

Set cnRTA = Server.CreateObject("ADODB.Connection")
cnRTA.Open sConn
Set rsRTA = cnRTA.Execute(sSQL)
If Not rsRTA.EOF Then
RecordsetToArray = rsRTA.GetRows
rsRTA.Close
cnRTA.Close
Set rsRTA = Nothing
Set cnRTA = Nothing
Else
rsRTA.Close
cnRTA.Close
Set rsRTA = Nothing
Set cnRTA = Nothing
RecordsetToArray = Null
End If
End Function

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2020 Bilgisayarbolumu.com