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..
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


0