CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Mantenimiento Paciente error fecha,horas

(1/1)

fraj:
bueno aca un problema con fecha y horas  conectandome a SQL   me sales  esto : Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM. al monento de guardar los datos
Estoy trabajandoo con  modulos y funciones


--- Código: vb.net ---    -----------ak programado en modulo ------Imports System.Data.SqlClient Module Module2    Dim cnn As New SqlConnection("data source=(local);integrated security=true ;database=clinica")     Dim da As New SqlDataAdapter    Dim ds As New DataSet Function guardarusu(ByVal co As String, ByVal no As String, ByVal ape As String, ByVal direc As String, ByVal fechaen As DateTime, ByVal fechacita As DateTime, ByVal hist As String, ByVal pago As Integer, ByVal area As String, ByVal doct As String, ByVal tele As Integer, ByVal hora As DateTime) As DataTable        ds.Clear()        Try            da.SelectCommand = New SqlCommand("ps_nuevousuario1", cnn)            da.SelectCommand.CommandType = CommandType.StoredProcedure            With da.SelectCommand.Parameters                .Add(New SqlParameter("cod_usuario", co))                .Add(New SqlParameter("Nombre", no))                .Add(New SqlParameter("Apellidos", ape))                .Add(New SqlParameter("Direccion", direc))                .Add(New SqlParameter("FechaEntrada", fechaen))                .Add(New SqlParameter("Fechacita", fechacita))                .Add(New SqlParameter("Cuentahisto", hist))                .Add(New SqlParameter("Pago", pago))                .Add(New SqlParameter("Area", area))                .Add(New SqlParameter("DoctorTumo", doct))                .Add(New SqlParameter("telefono", tele))                .Add(New SqlParameter("horacita", hora))            End With         Catch EX As SqlException            MessageBox.Show("ERROR EN LA BASE DE DATOS")         End Try         da.Fill(ds, "usuariocita")---aca me sale el error : Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.        Return ds.Tables("usuariocita")     End FunctionEnd Module   

--- Código: vb.net -------ak en frame  -------Programandoo el boton guardar Imports System.Data.SqlClient   Private Sub btonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btonGuardar.Click          Try            guardarusu(Textcod.Text, Textnom.Text, Textape.Text, Textdirec.Text, MaskedTextBox3.Text, MaskedTextBox2.Text, ComboBox1.Text, Textpago.Text, Textarea.Text, Textdoct.Text, Texttelef.Text, MaskedTextBox1.Text)            MessageBox.Show("Datos Guardados Correctamente...!")         Catch ex As InvalidCastException            MessageBox.Show("Debe Llenar sus Datos Correctamete...!")          End Try        Textcod.Text = ""        Textnom.Text = ""        Textape.Text = ""        Textarea.Text = ""        Textdirec.Text = ""        Texttelef.Text = ""        ComboBox1.ResetText()        MaskedTextBox3.Text = ""        Texttelef.Text = ""        MaskedTextBox2.Text = ""        Textdoct.Text = ""        Textpago.Text = ""        MaskedTextBox1.Text = ""         Textnom.Focus()      End Sub    aluga idea k hice mal!!!  :(   <_<  <_<

yamazaki052:
yo antes de decirte algo, te haria algunas preguntas, la primera, por que usar masked en vez de textbox normales, la segunda, estas seguro de que los datos se estan tratando de forma correcta, ya que cuando tomas datos de un textbox, por lo regular son cadenas, para mi necesitarias hacer una validación para ver que se estan tratando como fechas y horas, por lo que te dice el error, yo creo que o no esta correcto el formato que estas tratando de meter en la base de datos o estas excediendo el rango que de permite SQL server(que es lo menos probable).

espero que esto te sirva de ayuda.

yamazaki052

Navegación

[0] Índice de Mensajes