Funciones ado
Hola experto, tengo una pregunta, espero puedas ayudarme. Como puedo hacer para crear una función que me permita trabajar con ADO es decir quiero darle el nombre de cualquier recordset y me haga ciertos cálculos, por ejemplo me calcule el máximo elemento de un recordset:
function max(rsDato as recordset) as integer
...
...
max=###
end function
Trato con eso pero me sale mensajes de error
function max(rsDato as recordset) as integer
...
...
max=###
end function
Trato con eso pero me sale mensajes de error
1 respuesta
Respuesta de kxhenry
1
Function AddQueryFilter(rst As Recordset)
Dim qdf As QueryDef
Dim strNewFilter As String, strRightSQL As String
Set qdf = rst.CopyQueryDef
' Prueba "LastName LIKE 'D*'"
strNewFilter = InputBox("Escriba una nueva " & _
"restricción")
strRightSQL = Right(qdf.SQL, 1)
' Quita caracteres del final de la consulta,
' según se necesite.
Do While strRightSQL = " " Or strRightSQL = ";" _
Or strRightSQL = vbCR Or _
strRightSQL = vbLF
qdf.SQL = Left(qdf.SQL, Len(qdf.SQL) - 1)
strRightSQL = Right(qdf.SQL, 1)
Loop
qdf.SQL = qdf.SQL & " AND " & strNewFilter & ";"
rst.Requery qdf ' Vuelve a consultar el
' objeto Recordset.
rst.MoveLast ' Puebla el objeto Recordset.
' "LastName LIKE 'D*'" debe devolver dos
' registros.
MsgBox "Número devuelto = " & rst.RecordCount
End Function
Dim qdf As QueryDef
Dim strNewFilter As String, strRightSQL As String
Set qdf = rst.CopyQueryDef
' Prueba "LastName LIKE 'D*'"
strNewFilter = InputBox("Escriba una nueva " & _
"restricción")
strRightSQL = Right(qdf.SQL, 1)
' Quita caracteres del final de la consulta,
' según se necesite.
Do While strRightSQL = " " Or strRightSQL = ";" _
Or strRightSQL = vbCR Or _
strRightSQL = vbLF
qdf.SQL = Left(qdf.SQL, Len(qdf.SQL) - 1)
strRightSQL = Right(qdf.SQL, 1)
Loop
qdf.SQL = qdf.SQL & " AND " & strNewFilter & ";"
rst.Requery qdf ' Vuelve a consultar el
' objeto Recordset.
rst.MoveLast ' Puebla el objeto Recordset.
' "LastName LIKE 'D*'" debe devolver dos
' registros.
MsgBox "Número devuelto = " & rst.RecordCount
End Function
