'ACTUALIZACION (UPDATE) DE TODOS LOS CAMPOS
<System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Update, True)> _
Public Function UpdateAccion(ByVal AccionID As Integer, ByVal Clave _
As String, ByVal TipoAccion As Integer, ByVal NombreAccion As
String, ByVal FechaRegistro As Date, _
ByVal Problema As String, ByVal ReportadoPor As String,
ByVal FechaReporte As Date, ByVal departamentoID As Integer, _
ByVal Causas As String, ByVal parche As String, ByVal
FechaParche As Date, ByVal Accion As String, _
ByVal FechaAccion As Nullable(Of Date), ByVal Autorizo As
Integer, ByVal FechaAutorizo As Date, ByVal Verifico As Integer, _
ByVal FechaVerifico As Date, ByVal ProblemaRelacionadoCon As
String, ByVal Origen As String, ByVal AccionEfectiva As String, _
ByVal Estatus As Integer) As Boolean
Dim Acciones As DsIso9001.AccionesDataTable =
Adapter.GetAccionesByID(AccionID)
If Acciones.Count = 0 Then
Return False
End If
Dim AccionUsada As DsIso9001.AccionesRow = Acciones(0)
AccionUsada.Clave = Clave
AccionUsada.TipoAccion = TipoAccion
AccionUsada.NombreAccion = NombreAccion
AccionUsada.FechaRegistro = FechaRegistro
AccionUsada.Problema = Problema
AccionUsada.ReportadoPor = ReportadoPor
AccionUsada.FechaReporte = FechaReporte
AccionUsada.DepartamentoID = departamentoID
AccionUsada.Causas = Causas
AccionUsada.Parche = parche
If FechaParche = DateTime.MinValue Then
FechaParche = System.DBNull.Value
End If
AccionUsada.FechaParche = FechaParche
AccionUsada.Accion = Accion
If FechaAccion = DateTime.MinValue Then
FechaAccion = ""
End If
'AccionUsada.FechaAccion = System.DBNull.Value
AccionUsada.FechaAccion = FechaAccion
AccionUsada.Autorizo = Autorizo
AccionUsada.FechaAutorizo = FechaAutorizo
AccionUsada.Verifico = Verifico
AccionUsada.FechaVerifico = FechaVerifico
AccionUsada.ProblemaRelacionadoCon = ProblemaRelacionadoCon
AccionUsada.Origen = Origen
AccionUsada.AccionEfectiva = AccionEfectiva
AccionUsada.Estatus = Estatus
Dim rowsAffected As Integer = Adapter.Update(AccionUsada)
Return rowsAffected = 1
End Function
Agradecere mucho la ayuda que me puedan proporcionar
Saludos!
La conversión del tipo 'DBNull' en el tipo 'Date' no es válida.
ya en la capa de acceso a datos validas si es nothing,,, y en ese caso
recién le pasas system.dbnull.value
Cualquier cosa, comentas?
Segundo Serrano P.
Sistemas
JABSOFT
Blog: http://dotnet-peru.blogspot.com
511-91974975
511-2428802
---------------------------------
"Marcos" <Mar...@discussions.microsoft.com> escribió en el mensaje de
noticias news:5A6FAE88-53B0-43F3...@microsoft.com...
GRacias nuevamente!
Saludos y muchas gracias por tu valiosa ayuda!
Saludos
______________________
Jose A. Fernandez
blog: http://geeks.ms/blogs/fernandezja
On 18 feb, 19:50, Marcos <Mar...@discussions.microsoft.com> wrote:
> Oraleeee funciona perfecto pero ya me entro la duda :( ¿a que te refieres que
> los dataset tipados dan problemas? Acaso ¿deberia hacer toda mi capa de datos
> con codigo personal?
>
> Saludos y muchas gracias por tu valiosa ayuda!
>
> "Segundo Serrano" wrote:
> > pienso que el generador de código tiene el dataset fuertemente tipado y no permite la inserción de nulls
> > reconozco que no me agrada mucho la idea de usar dataset tipados... me parecen un problema más que una ayuda...
>
> > pero, en los dataset tipados hay una función cuyo nombre incluye el nombre de tu campo y que permite asignar a null...
> > pregunta si FechaParche es system.dbnull.value... en ese caso le pones SetFechaParcheNull
>
> > if FechaParche = DateTime.MinValue then
> > AccionUsada.SetFechaParcheNull()
> > else
> > AccionUsada.FechaParche = fechaparche
> > end if
>
> > algo así debería ser la solución...
>
> > Cualquier cosa, comentas?
>
> > Segundo Serrano P.
> > Sistemas
> > JABSOFT
> > Blog:http://dotnet-peru.blogspot.com
> > 511-91974975
> > 511-2428802
>
> > "Marcos" <Mar...@discussions.microsoft.com> escribió en el mensaje de noticiasnews:830A2B43-EAFA-4EAA...@microsoft.com...
> > > Humm el problema ahi seria que no se como hacer la validacion en la capa de
> > > Datos puesto que son los datasets que genera el Visual Studio :( ¿como podria
> > > hacer eso?
>
> > > GRacias nuevamente!
>
> > > "Segundo Serrano" wrote:
>
> > >> hmm,
> > >> ya entendí como está tu código... entonces ponle Nothing nomás.
> > >> AccionUsada.FechaParche = iif(FechaParche = DateTime.MinValue, nothing,
> > >> fechaparche)
>
> > >> ya en la capa de acceso a datos validas si es nothing,,, y en ese caso
> > >> recién le pasas system.dbnull.value
>
> > >> Cualquier cosa, comentas?
>
> > >> Segundo Serrano P.
> > >> Sistemas
> > >> JABSOFT
> > >> Blog:http://dotnet-peru.blogspot.com
> > >> 511-91974975
> > >> 511-2428802
>
> > >> ---------------------------------
>
> > >> "Marcos" <Mar...@discussions.microsoft.com> escribió en el mensaje de
> > >> noticiasnews:5A6FAE88-53B0-43F3...@microsoft.com...
> > >> > Humm ahora tengo este error :( :
>
> > >> > La conversión del tipo 'DBNull' en el tipo 'Date' no es válida.
>
> > >> > "Segundo Serrano" wrote:
>
> > >> >> Hola,
> > >> >> Puedes hacerlo así:
>
> > >> >> 'Comentas estas líneas
> > >> >> 'If FechaParche = DateTime.MinValue Then
> > >> >> ' FechaParche = system.dbnull.value
> > >> >> 'end if
>
> > >> >> 'modificas esta línea
> > >> >> AccionUsada.FechaParche = iif(FechaParche = DateTime.MinValue,
> > >> >> system.dbnull.value, fechaparche)
>
> > >> >> Cualquier cosa, comentas?
>
> > >> >> Segundo Serrano P.
> > >> >> Sistemas
> > >> >> JABSOFT
> > >> >> Blog:http://dotnet-peru.blogspot.com
> > >> >> 511-91974975
> > >> >> 511-2428802
>
> > >> >> -----------------------------------------------------------
>
> > >> >> "Marcos" <Mar...@discussions.microsoft.com> escribió en el mensaje de
> > >> >> noticiasnews:CAC5BD2D-42E7-4925...@microsoft.com...
Saludos.
Segundo Serrano P.
Sistemas
JABSOFT
Blog: http://dotnet-peru.blogspot.com
511-91974975
511-2428802
-------------------------------------------------------
"Jose A. Fernandez" <ferna...@gmail.com> escribió en el mensaje de
noticias
news:e453a13f-ff28-4e38...@i29g2000prf.googlegroups.com...
y a todo esto no me han dicho cual es el problema con los datasets que
genera el visual studio :D
Gracias de verdad por su valiosa ayuda.
"Segundo Serrano" <sserrano[at]jabs[dot]com[dot]pe> escribió en el mensaje
news:%232SMUfw...@TK2MSFTNGP04.phx.gbl...