Autor Tema: Error Al Insertar Fecha (sql 2005) (Leído 5468 veces)

Sagma · « **en:** Miércoles 22 de Noviembre de 2006, 19:49 »

hola a todos, como estan, estoy teniendo problemas al tratar de inserta una fecha con la hora en una DB de SQL 2005, he puesto SET DATEFORMA dmy y naranjas este es el codigo que tengo:

Código: Text

 
Dim FPro As DateTime 
FPro = DateTime.Now 
FPro = Format(FPro, &#34;dd/MM/yyyy&#34;) 
'FPro = Format(FPro, &#34;dd/MM/yyyy hh:mm:ss&#34;) 
 
Me.txt_codigo.Text = Pn.Nuevo(Desc, CPeri, DGlos, VCom, FPro)

y el error que me tira es este:

Citar

Error en la insercion del PlanThe conversion of a char data type to a datetime data type resulted in an out-of-range datetime value

ya que quiero insertar la fecha y la hora, alguien me puede orientar que estoy haciendo mal ????

gracias

ElNapster

Chequea el regional settings de tu maquina ya que talvez tienes el formato de mm/dd/yyyy y estas tratando de ingresar el formato dd/mm/yyyy

Cualquier cosa me contas....

senzao18

Por que no pones la parte de codigo en la que estas insertando el dato a la tabla....

Yo para no meterme con esas mentadas fechas... uso parameter ya sea en commandstring "insert into table (fecha,n1,n2...) values(@fecha,@n1,@n2...)"

Usando procedimientos almacenados nunca eh tenido ese problema......

El problema en si lo tienes a la hora de hacer el insert......

Sagma

gracias por contestar, el regional settins de mi maquina esta Español-Bolivia, y es dd/MM/yyyy.

Y esta es la manera que estoy haciendo en tres capas (espero que sea asi).

Código: Text

 
 
    Sub New(ByVal Comando As SqlClient.SqlCommand)
        Command = Comando
        id_planes = -1
        Desc = &#34;&#34;
        CPeriodo = -1
        DetGlosa = &#34;&#34;
        Est = -1
        FechaPro = &#34;01/01/1901&#34;
 
        Campos.Add(&#34;varchar&#34;)
        Campos.Add(&#34;DESCRIPCIONplan&#34;)
        Campos.Add(&#34;int&#34;)
        Campos.Add(&#34;CPERIODOplan&#34;)
        Campos.Add(&#34;varchar&#34;)
        Campos.Add(&#34;GLOSAplan&#34;)
        Campos.Add(&#34;smallint&#34;)
        Campos.Add(&#34;ESTADOplan&#34;)
        Campos.Add(&#34;datetime&#34;)
        Campos.Add(&#34;FPROCESO&#34;)
    End Sub
 
    Sub New(ByVal IDPLANES As Integer, ByVal Comando As SqlClient.SqlCommand)
        Dim Datos As New AccesoDatos.Operaciones(Comando)
        Dim dr As DataRow
 
        Command = Comando
        dr = Datos.TraerUno(&#34;PLANES&#34;, IDPLANES, Comando)
 
        id_planes = IDPLANES
        Desc = dr(1)
        CPeriodo = dr(2)
        DetGlosa = dr(3)
        Est = dr(4)
        FechaPro = dr(5)
 
        Campos.Add(&#34;varchar&#34;)
        Campos.Add(&#34;DESCRIPCIONplan&#34;)
        Campos.Add(&#34;int&#34;)
        Campos.Add(&#34;CPERIODOplan&#34;)
        Campos.Add(&#34;varchar&#34;)
        Campos.Add(&#34;GLOSAplan&#34;)
        Campos.Add(&#34;smallint&#34;)
        Campos.Add(&#34;ESTADOplan&#34;)
        Campos.Add(&#34;datetime&#34;)
        Campos.Add(&#34;FPROCESO&#34;)
    End Sub
 
Public Function Nuevo(ByVal Descripcion_PLanes As String, ByVal CodPeriodo As Integer, ByVal DetalleGlosa As String, ByVal Estado_planes As Integer, ByVal FechaProceso_Plan As DateTime) As Integer
        Try
 
            Dim AD As New AccesoDatos.Operaciones(Command)
            Dim Valores As New ArrayList
 
            Valores.Add(&#34;varchar&#34;)
            Valores.Add(Descripcion_PLanes)
            Valores.Add(&#34;int&#34;)
            Valores.Add(CodPeriodo)
            Valores.Add(&#34;varchar&#34;)
            Valores.Add(DetalleGlosa)
            Valores.Add(&#34;smallint&#34;)
            Valores.Add(Estado_planes)
            Valores.Add(&#34;datetime&#34;)
            Valores.Add(FechaProceso_Plan)
 
            Return AD.Insertar(&#34;PLANES&#34;, Campos, Valores)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
 
 

Código: Text

 
    Public Function Insertar(ByVal Tabla As String, ByVal Campos As ArrayList, ByVal Valores As ArrayList) As Integer
 
        Try
            Dim Consulta As String
            Dim Consulta2 As String
            Consulta = &#34; Insert Into &#34; & Tabla & &#34;(&#34;
            Consulta2 = &#34;) Values (&#34;
 
            Dim Cont As Integer = 0
            While Cont &#60;= Valores.Count - 1
                Select Case Valores(Cont)
                    Case &#34;varchar&#34;
                        Consulta = Consulta & Campos(Cont + 1)
                        Consulta2 = Consulta2 & &#34;'&#34; & Valores(Cont + 1) & &#34;'&#34;
                    Case &#34;int&#34;
                        Consulta = Consulta & Campos(Cont + 1)
                        Consulta2 = Consulta2 & Valores(Cont + 1)
                    Case &#34;datetime&#34;
                        Consulta = Consulta & Campos(Cont + 1)
                        Consulta2 = Consulta2 & &#34;'&#34; & Valores(Cont + 1) & &#34;'&#34;
                    Case &#34;smallint&#34;
                        Consulta = Consulta & Campos(Cont + 1)
                        Consulta2 = Consulta2 & Valores(Cont + 1)
                    Case &#34;decimal&#34;
                        Consulta = Consulta & Campos(Cont + 1)
                        Consulta2 = Consulta2 & Valores(Cont + 1)
                End Select
 
                Cont = Cont + 2
                If Cont &#62; Valores.Count - 1 Then
                    Consulta2 = Consulta2 & &#34;)&#34;
                Else
                    Consulta = Consulta & &#34;,&#34;
                    Consulta2 = Consulta2 & &#34;,&#34;
                End If
 
            End While
 
            Command.CommandText = Consulta & Consulta2
            Command.ExecuteNonQuery()
 
            Dim Codigo As Integer
            Command.CommandText = &#34;Select Max(ID_&#34; & Tabla & &#34;) From &#34; & Tabla
            Return Command.ExecuteScalar
 
        Catch ex As Exception
            Throw ex
        End Try
 
    End Function
 
 

es campo en la DB de SqlServer 2005 lo tengo como Datetime, ya que es lo unico que hay para almacenar fecha.

gracias por la ayuda.

senzao18

Trata con lo siguiente....

Consulta2 = Consulta2 & _
"(CONVERT(Datetime, CONVERT(Varchar, '" & _
Valores(Cont + 1) & _
"', 101), 101) "

Sagma

gracias por la colaboracion, pero aun sigo teniendo problemas, fijate:

cuando esta de esta manera sale el siguiente mensaje:

Código: Text

 
Dim FPro As DateTime
FPro = DateTime.Now

Citar

Error de conversion al convertir una cadena de caracteres a datetime.

y cuando pongo de esta forma sale el siguiente mensaje:

Código: Text

 
Dim FPro As DateTime
FPro = DateTime.Now
FPro = Format(FPro, &#34;dd/MM/yyyy&#34;)

Citar

la conversion de tipo de dato char a datetime produjo un valor datetime fuera del intervalo

muchas gracias, pero fijate que he echo de esta manera y si lo carga:

Código: Text

 
'Dim FPro As DateTime = New DateTime(2006, 12, 12, 0, 0, 0)

lo inserta, pero como veras son fechas fijas, y la hora es cero.

gracias de nuevo por la ayuda

senzao18

Cita de: "senzao18"

Trata con lo siguiente....

Consulta2 = Consulta2 & _
"(CONVERT(Datetime, CONVERT(Varchar, '" & _
Valores(Cont + 1) & _
"', 101), 101) "

Trataste quitando el primer "(" se me barrio está de más jeje....

Que te marca con lo que te pasé.....???

Voy a buscar el codigo que yo uso para fechas.... haber que show....

senzao18

Cita de: "senzao18"

Cita de: senzao18,Noviembre 24, 2006 10:37 am

Voy a buscar el codigo que yo uso para fechas.... haber que show....
Pues aui está el codigo... lo uso con un select.. y me funciona bien...

Código: Text

Function DPVALE(ByVal strPlaza As String, ByVal Fecha As Date) As DataSet

Dim strQuery As String = _
"Select movimientosdp.Plaza, movimientosdp.AsociadoID,CreditoDPVale.CodigoSAP as CodigoClienteSAP, " & _
"sum(Case When TipoDocumento in('Abono','Canc Abono') Then " & _
" Abono - Cargo " & _
" Else " & _
" 0 " & _
" END " & _
") as Abono, " & _
"sum(Case When TipoDocumento in('Bonificacion','Canc Bonificacion') Then " & _
" Abono - Cargo " & _
" Else " & _
" 0 " & _
" END" & _
") as Bonificacion " & _
"from movimientosdp " & _
" INNER JOIN CreditoDPVale ON MovimientosDP.AsociadoID = CreditoDPVale.AsociadoID " & _
"Where TipoDocumento in ('Abono','Bonificacion','Canc Abono','Canc Bonificacion') AND Plaza =@Plaza AND " & _
"FechaMovimiento = @Fecha " & _
"GROUP BY movimientosdp.Plaza, movimientosdp.AsociadoID,CreditoDPVale.CodigoSAP " & _
"Order by movimientosdp.Plaza,movimientosdp.AsociadoID,CreditoDPVale.CodigoSAP "

Dim oResult As DataSet

Dim sccnnConnection As New SqlConnection(oAppContext.ApplicationConfiguration.DataStorageConfiguration.GetConnectionString)

Dim sccmdSelect As SqlCommand

sccmdSelect = New SqlCommand

With sccmdSelect

.Connection = sccnnConnection

.CommandText = strQuery
.CommandType = System.Data.CommandType.Text

.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
'.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Referencia", System.Data.SqlDbType.Int))
.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Plaza", System.Data.SqlDbType.VarChar))
.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fecha", System.Data.SqlDbType.DateTime))

.Parameters("@Plaza").Value = strPlaza
.Parameters("@Fecha").Value = Fecha.ToShortDateString
'.Parameters("@Referencia").Value = Referencia

End With

Dim oCatalogoCorridasAdapter As SqlDataAdapter
oCatalogoCorridasAdapter = New SqlDataAdapter
oCatalogoCorridasAdapter.SelectCommand = sccmdSelect

Try

sccnnConnection.Open()

oResult = New DataSet

oCatalogoCorridasAdapter.Fill(oResult, "DPVALE")

Catch ex As Exception

Throw ex

Finally

If (sccnnConnection.State <> ConnectionState.Closed) Then
Try
sccnnConnection.Close()
Catch
End Try
End If

End Try

sccmdSelect.Dispose()
sccmdSelect = Nothing

sccnnConnection.Dispose()
sccnnConnection = Nothing

Return oResult

End Function

Es un select algo raro pero el ejemplo de fecha ahi está cualquier duda.. haces tu post.

Sagma

hola amigo,

, la verdad estoy por volverme mono, pero aun sigo.

mira la imagen, de esa manera lo estoy haciendo, segun tu ejemplo que has pasado.

y aun sigo con el mensaje, y no puedo ingresar el dato a la DB.

Citar

Conversion failed when converting datetime from character string

pero fijate, que estuve tratando primero en la DB del Sql 2005 y tambien me daba el mismo error, pero si se quita el p.m., todo ok.

Código: Text

 
SET DATEFORMAT dmy;
 
insert into planes(DESCRIPCIONplan,CPERIODOplan,GLOSAplan,ESTADOplan,FPROCESO) 
values ('asdasd',2,'zxczxc',1,CONVERT(datetime,CONVERT(varchar,'25/11/2006 13:43:53')))

ahora la pregnta del millon, como se hace para que no tengo " p.m. ", ya que estoy tratando con:

Código: Text

 
            Dim FPro As DateTime
            FPro = DateTime.Now
            FPro = Format(FPro, &#34;dd/MM/yyyy hh:mm:ss&#34;)

y aun me sigue saliendo el mensaje:

Citar

Conversion failed when converting datetime from character string

gracias por la colaboracion

senzao18

Ah ok....
Trata poniendo 102 en lugar de 101.... eso puede funcionar.....

Aunque yo siempre le mongo

strFecha = Format(FEcha,"Short Date")

o

Feche.ToShortDate

Este ultimo ya en el armado de la cadena....

lo que pasa que si lo asigno a una tipo date... seguira poniendo la hora con 00:00:00

Sagma

gracias senzao18, pero igual si le pongo el 102,que corresponde al ANSI. da el mismo mensaje de error.

Pero cambie todo, al regional settings de mi maquina, y lo puse la insercion del dato como en un principio, y puse:

Código: Text

 
Dim Fpro as string
fpro = date.now

y listo lo insera la fecha y la hora, no como queria, pero weno, lo inserta.

gracias

SoloCodigo

Autor Tema: Error Al Insertar Fecha (sql 2005) (Leído 5468 veces)

Sagma

Error Al Insertar Fecha (sql 2005)

ElNapster

Re: Error Al Insertar Fecha (sql 2005)

senzao18

Re: Error Al Insertar Fecha (sql 2005)

Sagma

Re: Error Al Insertar Fecha (sql 2005)

senzao18

Re: Error Al Insertar Fecha (sql 2005)

Sagma

Re: Error Al Insertar Fecha (sql 2005)

senzao18

Re: Error Al Insertar Fecha (sql 2005)

senzao18

Re: Error Al Insertar Fecha (sql 2005)

Sagma

Re: Error Al Insertar Fecha (sql 2005)

senzao18

Re: Error Al Insertar Fecha (sql 2005)

Sagma

Re: Error Al Insertar Fecha (sql 2005)