guardar datos de un datetimepicker a una bd

[Migue-LXC]

hola a todos

quisiera saber que estoy haciendo mal... estoy tratando de guardar una fecha de un datetimepicker a una base de datos pero no me sale...

Private Sub btngra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngra.Click

Try
'Dim rs As ADODB.Recordset
Dim codobj As String = Val(Me.txtocod.Text)
Dim nomobj As String = Me.txtonom.Text
Dim objtini As Date = Me.dtpoini.Value
Dim objtfin As Date = Me.dtpofin.Value



Dim cadena As String
cadena = "insert into objetivo(obj_cod,obj_nom,obj_t_ini,obj_t_fin) values ('" + codobj + "','" + nomobj + "','" + objtini + "','" + objtfin + "')"


Dim comando As New SqlCommand(cadena, cn)
Dim r As Integer
cn.Open()
r = comando.ExecuteNonQuery()
cn.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
MessageBox.Show("Los datos se grabaron correctamente....")



por favor.... espero que me ayudaen

gracias de antemano

[jhonwilliams]

Pues yo acostumbro a utilizar los SqlParameters para que el command no me ponga lio con los tipo de datos, algo como este emplo que busque en internet.

Código Vb.Net:

Private Sub Guardar_cambios_Click(ByVal sender As System.Object, ByVal e _
    As System.EventArgs) Handles BtnGuardar_cambios.Click
    'guardamos los cambios realizados
    Dim sqlcadena As String
    sqlcadena = New String("update vendedores set nombres=@nombres,apellidos=@apellidos," + _
    "dirección=@dirección,e_civil=@civil,sexo=@sexo, sueldo=@sueldo,retirado=@retirado  where codigo=@codigo")
    Dim ocmd As New SqlCommand
    ocmd.Parameters.Add(New SqlParameter("@codigo", SqlDbType.Int)).Value = CboCodigo.Text
    ocmd.Parameters.Add(New SqlParameter("@nombres", SqlDbType.Text, 25)).Value = Txtnom.Text.ToString
    ocmd.Parameters.Add(New SqlParameter("@apellidos", SqlDbType.Text, 25)).Value = Txtapel.Text.ToString
    ocmd.Parameters.Add(New SqlParameter("@dirección", SqlDbType.VarChar, 60)).Value = Txtdir.Text
    ocmd.Parameters.Add(New SqlParameter("@sueldo", SqlDbType.Decimal)).Value = Txtsueldo.Text
    Select Case CboCivil.Text
        Case Is = "Casado"
            ocmd.Parameters.Add("@civil", SqlDbType.Char, 1).Value = "C"
        Case Is = "Soltero"
            ocmd.Parameters.Add("@civil", SqlDbType.Char, 1).Value = "S"
        Case Is = "Viudo"
            ocmd.Parameters.Add("@civil", SqlDbType.Char, 1).Value = "V"
        Case Is = "Divorciado"
            ocmd.Parameters.Add("@civil", SqlDbType.Char, 1).Value = "D"
    End Select
 
    If CboSexo.Text = "Masculino" Then
        ocmd.Parameters.Add("@sexo", SqlDbType.Int, 1).Value = 1
    ElseIf CboSexo.Text = "Femenino" Then
        ocmd.Parameters.Add("@sexo", SqlDbType.Int, 1).Value = 0
    End If
    If chkRetirado.Checked = True Then
        ocmd.Parameters.Add("@retirado", SqlDbType.Bit, 1).Value = chkRetirado.Checked
    ElseIf chkRetirado.Checked = False Then
        ocmd.Parameters.Add("@retirado", SqlDbType.Bit, 1).Value = chkRetirado.Checked
    End If
    conection.Open()
    ocmd.CommandText = sqlcadena
    ocmd.Connection = conection
    ocmd.ExecuteNonQuery()
    conection.Close()
End Sub
 

Como puedes ver, en la linea

Código Vb.Net:

ocmd.Parameters.Add("@civil", SqlDbType.Char, 1).Value = "V"
 

Se esta especificando el tipo del dato y el tamaño, para el tipo Fecha seria algo como esto:

Código Vb.Net:

ocmd.Parameters.Add("@fecha", SqlDbType.DateTime).Value = miFecha
 

Ya que el tamaño no aplica para este tipo de dato.

Si tienes algún inconveniente para entender todo el código me comentas.

Todo el codigo del ejemplo aqui

Saludos

[Migue-LXC]

he aplicado lo que me indico pero tengo un problema

ocmd.Parameters.Add("@fecha", SqlDbType.DateTime).Value = miFecha

que iria en mifecha si los estoy tomando de un datetimepicker...

le pongo..

ocmd.Parameters.Add("@fecha", SqlDbType.DateTime).Value = datetimepicker1..Value.ToString("MM/dd/yyyy")

me sale el mensaje:

Error al convertir el valor del parámetro de String a DateTime.

porfavor ayudaa...

[jhonwilliams]

Debes de capturar el value del dtPiker

Código Vb.Net:

ocmd.Parameters.Add("@fecha", SqlDbType.DateTime).Value = datetimepicker1.Value
 

Saludos

[Migue-LXC]

muchas gracias ya me salio