Biblioteca de Clases,Funciones y Sub-rutinas.

[juanamador]

Aqui va una, espero sea util para mas de alguno


'Nombre: fExisteReg
'Proposito:Determinar si un registro existe en la Base de Datos
'Parametros:
' strTableName=Tabla donde se va a buscar el valor
' strFieldName=Campo de la tabla donde se va a buscar
' myValue=Valor que vamos a buscar en el campo
' intTipoCampo=Tipo de campo en el que vamos a buscar
' 1=Texto
' 2=Numero
' 3=Fecha
' strConexion=Cadena de conexion a la Base de Datos
' Por ejemplo:"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
' nos conectaria a una base de datos de Microsoft Access alojada en la misma direccion
' donde se encuentre alojada esta funcion.
'Autor: Juan Amador
'E-mail: famaads en yahoo.com
'Fecha: Enero/2005
'Uso: IF fExisteReg("Table1","Field1","Juan Amador",1) Then
'Resultado: Devuelve TRUE si el dato existe y FALSE si no existe

Function fExisteReg(strTableName,strFieldName,myValue,intTi poCampo,strConexion)
Dim strCritExisteReg
Dim strConnExisteReg
Dim ConexionExisteReg
Dim strSQLExisteReg
Dim rstExisteReg

strConnExisteReg =strConexion
Set ConexionExisteReg=CreateObject("adodb.connection")
Set rstExisteReg=CreateObject("AdoDB.Recordset")

Select Case intTipoCampo
Case 1 'Texto
strCritExisteReg="[" & strFieldName & "]='" & myValue & "'"
Case 2 'Numerico
strCritExisteReg="[" & strFieldName & "]=" & myValue
Case 3 'Fecha
strCritExisteReg="[" & strFieldName & "]=#" & myValue & "#"
End Select

strSQLExisteReg="SELECT * FROM [" & strTableName & "] WHERE " & strCritExisteReg

ConexionExisteReg.Open strConnExisteReg

rstExisteReg.Open strSQLExisteReg,ConexionExisteReg

If rstExisteReg.BOF And rstExisteReg.EOF Then
fExisteReg=False
Else
fExisteReg=True
End If

rstExisteReg.Close
ConexionExisteReg.Close
Set rstExisteReg=Nothing
Set ConexionExisteReg=Nothing
End Function