Visual Basic - Dato nulo en campo fecha

Life is soft - evento anual de software empresarial
 
Vista:

Dato nulo en campo fecha

Publicado por Féiix f (4 intervenciones) el 27/06/2008 03:43:29
Tengo qure actualizar una tabla con la información que captura el usuario y esta puede ser completa o parcial, cuando los campos de fecha quedan sin valor no puedo realizar la actualización dela tabla.
tengoelsiguiente codigo:

Set RstProc = New ADODB.Recordset
RstProc.LockType = adLockOptimistic
RstProc.CursorType = adOpenKeyset
nofecha = ""
strsqlproc = "SELECT * from TblProceso;"
RstProc.Open strsqlproc, CnnFup, adOpenKeyset '(asi estaba
strsqlproc = "INSERT INTO TblProceso (ID_Ur, PrNombre, PtoCodigo, PrNoOficio, "
strsqlproc = strsqlproc & "PrFecOf, PrEstatus, Id_Tramite, PrFecSol, PrVigencia, PrFecRecep) "
strsqlproc = strsqlproc & "Values ("
strsqlproc = strsqlproc & vIdUr
strsqlproc = strsqlproc & ",'"
strsqlproc = strsqlproc & TxtNombre.Text
strsqlproc = strsqlproc & "','"
strsqlproc = strsqlproc & vPtoCodigo
strsqlproc = strsqlproc & "','"
strsqlproc = strsqlproc & txtNoOfic.Text
strsqlproc = strsqlproc & "','"
strsqlproc = strsqlproc & TxtFecOfic.Text
strsqlproc = strsqlproc & "',"
strsqlproc = strsqlproc & vEstatus
strsqlproc = strsqlproc & ","
strsqlproc = strsqlproc & vIdTramite
strsqlproc = strsqlproc & ",'"
strsqlproc = IIf(IsNull(TxtFecSol.Text), nofecha, strsqlproc & TxtFecSol.Text)
strsqlproc = strsqlproc & "','"
strsqlproc = IIf(IsNull(TxtFecVigencia.Text), nofecha, strsqlproc & TxtFecVigencia.Text)
strsqlproc = strsqlproc & "','"
strsqlproc = IIf(IsNull(TxtFecRecep.Text), nofecha, strsqlproc & TxtFecRecep.Text)
strsqlproc = strsqlproc & "')"
CnnFup.Execute strsqlproc
La cadena resultante la llevo a access y me genera el nuevo registro sin problema.
pero cuando ejecuto el programa me mando un mensaje de error de
"No coinciden los tipos de datos en la expresion de criterios"

Gracias por sus comentarios..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Dato nulo en campo fecha

Publicado por Pedro Luis (878 intervenciones) el 27/06/2008 10:13:14
Prefiero ir paso a paso por lo que mi solución en el caso de las fechas es la siguiente:

If IsDate(Fecha(1)) Then
!inscripcion = Fecha(1)
Else
!inscripcion = Null
End If

o lo que es lo mismo

Iif fecha(1)<>"" then mireg!Inscripcion=Fecha(1) else Mireg!Inscripcion=null
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Dato nulo en campo fecha

Publicado por Felix F (4 intervenciones) el 30/06/2008 20:11:17
Eso no es mi problema, ya identifique que el campo sea fecha que sea nulo y que pueda ser actualizado.
El problema reside en que cuando lo trato de ejecutar el programa en VB me manda el codigo de error anteriormente descrito.

la sentencia que resulta del anaisis delos datos a grabar en la BD de acces, la copio tal cual y la ejecuto en las consultas de Acces y si funciona, pero no así desde VB.

de todas formas Gracias por tu comentario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar