Guardar Fecha

[asg_025]

DISCULPEN, soy NUEVO, estoy tratando de aprender a programar, un amigo me ayudo con este codigo, podrian enseñarme o pasarme alguna informacion que pudiera leer para poder hacer esto mejor

cristiantorres podrias darme un ejemplo de como usar parametros??

LES AGRADESCO MUCHO A LOS 2.

ya logre guardar ahora lo que no me permite es modificar, en ese boton tengo el siguiente codigo

Private Sub ELIMINAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ELIMINAR.Click
Dim obj As New Conexion
Dim conn As Common.DbConnection = obj.Conectar
Try
Dim cmd As Common.DbCommand
Dim sqlBuilder As New System.Text.StringBuilder
With sqlBuilder
.Append("update LLANTAS set ")
.Append("MARCA='" & Me.marca.Text.ToUpper & "', ")
.Append("MEDIDA='" & Me.medida.Text.ToUpper & " ',")
.Append("NO_SERIE='" & Me.no_serie.Text.ToUpper & "',")
.Append("TIPO='" & Me.tipo.Text.ToUpper & "',")
.Append("MODELO='" & Me.modelo.Text.ToUpper & "',")
.Append("CLIENTE='" & Me.cliente.Text.ToUpper & "',")
.Append("AREA='" & Me.area.Text.ToUpper & "',")
.Append("NO_CAPAS='" & Me.no_capas.Text.ToUpper & "',")
.Append("FECHA_ENTREGA='" & Me.DateTimePicker1.Value.ToString("yyyy-MM-dd") & "',")
.Append("CATEGORIA='" & Me.categoria.Text.ToUpper & "',")
.Append("ESTATUS ='" & Me.estatus.Text.ToUpper & "'")
.Append("WHERE CODIGO= '" & Me.codigo.Text.ToUpper & "'")
End With
conn.Open()
cmd = New SqlCommand(sqlBuilder.ToString, conn)
cmd.ExecuteNonQuery()
MsgBox("Actualizado el Registro!!!")
CargarDatos()
Catch ex As Exception
MsgBox(ex.ToString)
Finally
conn.Close()
End Try
End Sub


podrian ayudarme porfavor, disculpen las molestia