Biblioteca de Clases,Funciones y Sub-rutinas.

[drmkace]

Esta es una funcion para Obtener un campo de una tabla determinada dada un acondicion en otor campo


Function ObtenerValorCampo(strTabla,strCampoResult,strCampo Donde,strValorDonde,cnn)

dim rst,sReturnValue,sSql

sSql="SELECT DISTINCT " & strCampoResult & " FROM " & strTabla & " WHERE " & strCampoDonde & "=" & strValorDonde
Set rst = CreateObject("ADODB.RecordSet")
with rst
.Open sSql,cnn
if not (.EOF and .BOF) then
ObtenerValorCampo=.Fields(strCampoResult)
Else
ObtenerValorCampo=""
End iF
.close
End With
set rst=Nothing
End function

PARAMETROS:
--------------

strTabla : Tabla
strCampoReult : CAmpo que Se desea devolver su Valor
strCampoDonde : Campo por el cual se desea filtrar / Buscar
strValorDonde : Valor para filtrar / Buscar en strCampoDonde
cnn : ADODB.Connection (Valida)