Desconocido
|
| Enviado - 21/4/2003 |
| ? |
Hola a todos!
Agradezco por fa si me echan una mano. Tengo una funci?n que me compara la c?dula que introduzco por teclado y la que tengo en la base de datos, si son iguales me emite un mensaje de error dici?ndome que ya existe sino lo incluye, pero cuando la c?dula no existe y lo va a agregar a la bd me retorna el siguiente error:
Error 3251 en tiempo de ejecuci?n--> El objeto o proveedor no puede ejecutar la operaci?n requerida, y se ubica en:
datos.Fields("nombre") = nombre.Text
La funci?n es la siguiente: (todas las instrucciones de apertura de la bd est?n en el form_load)
Function comparar_cedula() As Boolean
Dim sql_compara As String
sql_compara = "select * from gentio where cedula = '" & cedula.Text & "'"
Set datos = conexion.Execute(sql_compara)
If datos.EOF Then
comparar_cedula = False 'No existe, est? bien
MsgBox "est? bien no existe"
datos.Fields("nombre") = nombre.Text
datos.Fields("cedula") = cedula.Text
datos.Fields("ciudad") = ciudad.Text
nombre.Enabled = False
cedula.Enabled = False
ciudad.Enabled = False
btnincluir.Enabled = True
btnmodificar.Enabled = True
btneliminar.Enabled = True
btnbuscar.Enabled = True
btnaceptar.Enabled = False
btncancelar.Enabled = True
btnsalir.Enabled = False
datos.Update
blanquear
Else
comparar_cedula = True 'Existe, est? mal
MsgBox "?sta c?dula ya existe en la Base de Datos. Int?ntelo de nuevo con otra c?dula.", vbCritical, "ERROR"
blanquear
btnincluir.Enabled = False
btnmodificar.Enabled = False
btneliminar.Enabled = False
btnbuscar.Enabled = False
btnaceptar.Enabled = True
btncancelar.Enabled = True
btnsalir.Enabled = False
nombre.Enabled = True
cedula.Enabled = True
ciudad.Enabled = True
nombre.SetFocus
End If
End Function |
| ? |
|
?Microsoft Certified
');}
document.write('