This function executes an SQL Statement against a given connection and returns the resulting recordset as a GetRows array. For empty recordsets Null is returned.
Parameters
strConnectionString
The connection string to the database
strSQL
The SQL statement
Source Code
' ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++
' Function: db_GetRows
'
'
Function db_GetRows(ByVal strConnectionString, ByVal strSQL) Dim objConn Dim objRs Dim OLEDB Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConnectionString Set objRs = objConn.Execute(strSQL) If Not objRs.EOF Then db_GetRows = objRs.GetRows() Else db_GetRows = Null End If objRs.Close objConn.Close Set objRs = Nothing Set objConn = Nothing End Function