Error al Grabar Fechas

[websistems]

esto trabajando con vb 2010 tengo el sig. codigo en una aplicacion, y al grabar en un campo fecha me arroja un error.

Dim sql As String = "insert into personal (pers_cod,pers_apel,pers_nom,pers_di,pers_fn) values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "'," & CDate(Me.MaskedTextBox1.Text) & ""

Dim cmd As New SqlCommand(sql, cn)

cn.Open()

cmd.ExecuteNonQuery()
cn.Close()

pongo por ejemplo en el masked box 10/10/1995

me arroja este error: sintaxis incorrecta cerca de 1995.

Que puede estar ocurriendo?

[Aquaventus]

Hola websystems te falta agregar las ' ' entre la fecha y cerrar al final con el ")". Nos cuentas. Saludos!.

[jhonwilliams]

No te aconsejo que hagas este tipo de insert para la informacion que contiene fechas.

Y menos hacer la conversion directa porque el formato que entrega el CDATE podria no corresponder con el formato que espera el motor de bases de datos.

Que te recomiendo...

Trabajar con SqlParameters

aldo mas o menos asi: (no lo he probado porque no tengo en este momento una maquina de desarrollo, asi que debes verificar la sintaxis)

1. Armas el query

Código:

Dim sql As String = "insert into personal (pers_cod,pers_apel,pers_nom,pers_di,pers_fn) values (@codigo,@apellidos,@nombres,@direccion,@fecha) "

2. Armas el command

Código:

Dim cmd As New SqlCommand(sql, cn)

3. Crear los parametros Informaicion

Código:

SqlParameter pCodigo = New SqlParameter  (revisa las sobrecargas)
pCodigo.Value = txtCodigo.Text

SqlParameter pNombre= New SqlParameter  (revisa las sobrecargas)
pNombre.Value = txtNombre.Text

Y asi sucesivamente con todos los campos, entre las sobre cargas de los parametros esta el tipo de dato: SqlDbType.VarChar, SqlDbType.Interger, SqlDbType.DateTime es muy importante que el tipo corresponda a lo que deseas guardar asi la conversion no te va a fallar para las fechas.

3. Agregar al cmd los parametros en el mismo orden que los vas a usar en la sentencia INSERT

Código:

cmd.Parameters.Add(pCodigo)
cmd.Parameters.Add(pNombre)

Y asi con cada uno

Una vez tengas esto listo lo ejecutas

Código:

cn.Open()

cmd.ExecuteNonQuery()
cn.Close()

Recuerda usar el Try... Cacth para controlar los errores.

Saludos

[websistems]

Ya lo consegui era un erro de sistaxis, y ano me arroja error pero no me graba correctamente la fecha en el masquedbox tengo este formato ##/##/#### (Dia, mes, año) en mi bd (sql 2008) se graba asi:

1900-01-01 00:00:00

como puedo hacer para que se grabe correctamente.

[jhonwilliams]

Revisa el post que te escribi sobre el manejo de parametros.

Realiza un paso a paso a ver que valor de fecha te esta entregado el MaskedBox

Saludos

[websistems]

pero en tu post en que parte le pones a los parametros el tipo de dato que es?

[jhonwilliams]

Donde dice, "Revisa las sobrecargas"

En la noche cuando este en casa busco un ejemplo que tengo y te lo posteo.

Saludos

[jhonwilliams]

Listo, lo encontre, este es un desarrollo que hice para MySQL pero es totalmente funcional tambien con SQLServer y sirve para ilustrarte lo que debes hacer con tu Insert.

Código C#:

public int InsertNewOwner(string id_owner, string cod_owner, string name,
            string telephone, string cellphone, string address, string mail)
        {
            int result = 0;
            MySqlConnection cn = new MySqlConnection(Common.ConnectionString);
 
            using (cn)
            {
                try
                {
                    cn.Open();
                    MySqlParameter pIdOwner = new MySqlParameter("@ID_OWNER", MySqlDbType.String, 40) { Value = id_owner };
                    MySqlParameter pCodeOwner = new MySqlParameter("@COD_OWNER", MySqlDbType.String, 20) { Value = cod_owner };
                    MySqlParameter pName = new MySqlParameter("@NAME", MySqlDbType.String, 80) { Value = name };
                    MySqlParameter pTelephone = new MySqlParameter("@TELEPHONE", MySqlDbType.String, 45) { Value = telephone };
                    MySqlParameter pCellPhone = new MySqlParameter("@CELLPHONE", MySqlDbType.String, 45) { Value = cellphone };
                    MySqlParameter pAddress = new MySqlParameter("@ADDRESS", MySqlDbType.String, 80) { Value = address };
                    MySqlParameter pMail = new MySqlParameter("@MAIL", MySqlDbType.String, 80) { Value = mail };
 
                    query = "INSERT INTO tblowners " +
                        "(ID_OWNER, " +
                        "COD_OWNER, " +
                        "NAME, " +
                        "TELEPHONE, " +
                        "CELLPHONE, " +
                        "ADDRESS, " +
                        "MAIL) " +
                        "VALUES " +
                        "( " +
                        "@ID_OWNER, " +
                        "@COD_OWNER, " +
                        "@NAME, " +
                        "@TELEPHONE, " +
                        "@CELLPHONE, " +
                        "@ADDRESS, " +
                        "@MAIL " +
                        ") ";
 
                    MySqlCommand cmd = new MySqlCommand(query, cn);
                    cmd.Parameters.Add(pIdOwner);
                    cmd.Parameters.Add(pCodeOwner);
                    cmd.Parameters.Add(pName);
                    cmd.Parameters.Add(pTelephone);
                    cmd.Parameters.Add(pCellPhone);
                    cmd.Parameters.Add(pAddress);
                    cmd.Parameters.Add(pMail);
 
                    result = cmd.ExecuteNonQuery();
 
                }
                catch (Exception ex)
                {
 
                }
                finally
                {
                    cn.Close();
                }
            }
 
            return result;
        }
 

[rikakashi]

Iniciado por websistems

Ya lo consegui era un erro de sistaxis, y ano me arroja error pero no me graba correctamente la fecha en el masquedbox tengo este formato ##/##/#### (Dia, mes, año) en mi bd (sql 2008) se graba asi:

1900-01-01 00:00:00

como puedo hacer para que se grabe correctamente.

verifica en tu base de datos el tipo de dato, posiblemente lo tengas como datetime y este te guardara la fecha y hora pero si solo quieres la fecha utiliza el smalldatetime

[websistems]

muchas gracias a todos me resulto la grabacion del registro, solo tengo un problema la fecha de nacimiento lo grabo de un control maskedbox, con este formato 99/99/9999, cuando le pongo fecha me graba perdecto pero cuando ese campo lo deja en blanco me arroja un error:

cmd.ExecuteNonQuery()

-Error al convertir el valor del parametro de string a datetime

yo le asigno el valor del masked box como parametro de esta forma

With cmd.Parameters
.Add("@codigo", SqlDbType.Char).Value = Me.TextBox1.Text
.Add("@apellido", SqlDbType.VarChar).Value = Me.TextBox2.Text
.Add("@nombre", SqlDbType.VarChar).Value = Me.TextBox3.Text
.Add("@fecnac", SqlDbType.Date).Value = Me.MaskedTextBox1.Text
end with

ojo cuando le pongo la fecha me graba muy bien, pero cuando dejo en blanco este campo es que me arroja error, me podrian ayudar por favor?

[jhonwilliams]

Intenta validar algo como esto:

Si MaskedFecha.Value Diferente de Vacio
le asignas el valor
else
.Add("@fecnac", SqlDbType.Date).Value = DbNull.Value

Proba y me comentas.

[Aquaventus]

podrias tambien validarlo por la longitud(length) de caracteres que tiene tu mascara y mostrar un mensaje. Saludos.

[websistems]

Gracias por sus ideas lo resolvi asi, si tiene vacio(solo el formato) le paso una fecha por defecto en este caso "01/01/1900"

If Me.MaskedTextBox1.Text = " / /" Then
.Add("@fecnac", SqlDbType.Date).Value = "01/01/1900"

Else
.Add("@fecnac", SqlDbType.Date).Value = Me.MaskedTextBox1.Text

End If

gracias a todos