16/12/2002, 13:15
|
| | | Fecha de Ingreso: diciembre-2002
Mensajes: 26
Antigüedad: 22 años, 5 meses Puntos: 0 | |
| Hola!!!
Lo que puedes hacer es una consulta a tu BD, que revise...
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM TuTabla WHERE TuCampo = " & CadenaAValidar
cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\TuBase.mdb"
rs.Open strSQL,cn
If rs.eof and rs.bof Then
'Está vacío, entonces no existe el nombre, lo puedes dar de alta
Else
'El nombre ya existe, no lo des de alta
End If
rs.Close
cn.Close |