none
como insertar fecha a sql server desde vb.net RRS feed

  • Debate general

  • necesito  ingresar fecha a sql server desde vb.net agradeceria su ayuda aqui pongo mi codigo
    Dim cod_c As String = txt_cod_comprobante.Text
            Dim ruc_p As String = cbo_prov_comp.SelectedValue.ToString
            Dim tipo_c As String = cbo_tipo_comp.SelectedValue.ToString
            Dim fecha_e As DateTime = Convert.ToDateTime(txt_fecha_e_comp.Text)
            Dim fecha_v As DateTime = Convert.ToDateTime(txt_fecha_v_comp.Text)
            Dim cod_t As String = cbo_tiend_comp.SelectedValue.ToString
            Dim dirigido As String = txt_dirigido_c.Text
            Dim descrip_d As String = rtxt_desc_comp.Text
            Dim cod_ec As String = txt_estado_comp.Text
            Dim subtotal As String = txt_subtotal_comp .Text
            Dim igv As String = txt_monto_igv_comp.Text
            Dim percep_detra_cod As String = txt_detra_comp.Text
            Dim percep_detra_m As String = txt_monto_pdn_comp.Text
            Dim total As String = txt_total_comp.Text
    
            Dim cadena_comp As String = "insert into COMPROBANTE_DETALLE (cod_c,ruc_p,tipo_c,fecha_e,fecha_v,cod_t,dirigido,descrip_d,cod_ec,subtotal,igv,percep_detra_cod,percep_detra_m,total) values ('" & txt_cod_comprobante.Text & "','" & cbo_prov_comp.SelectedValue.ToString & "','" & cbo_tipo_comp.SelectedValue.ToString & "','" & txt_fecha_e_comp.Text & "','" & txt_fecha_v_comp.Text & "','" & cbo_tiend_comp.SelectedValue.ToString & "','" & txt_dirigido_c.Text & "','" & rtxt_desc_comp.Text & "','" & txt_estado_comp.Text & "','" & txt_subtotal_comp.Text & "','" & txt_monto_igv_comp.Text & "','" & txt_detra_comp.Text & "','" & txt_monto_pdn_comp.Text & "','" & txt_total_comp.Text & "')"
    
            Dim comando_comp As SqlCommand
            comando_comp = New SqlCommand(cadena_comp, cn)
            comando_comp.ExecuteNonQuery()
    
            MsgBox("DATOS AGREGADOS CORRECTAMENTE")

    jueves, 14 de febrero de 2019 21:26

Todas las respuestas

  •   Public Sub insertar_registro_Empleados()
    
           
            Using cnn As New SqlConnection(configuracion.ConnectionString)
                Using cmd As New SqlCommand("SP_INSERTAR_EMPLEADO", cnn)
                    cmd.CommandType = CommandType.StoredProcedure
                    With cmd
                        .Parameters.AddWithValue("@Apellido_Paterno_Emp", txtapellidopaterno.Text)
                        .Parameters.AddWithValue("@Apellido_Materno_Emp", txtapellidomaterno.Text)
                                                             
                        If mtbfechacontratacion.Text.Trim = String.Empty Then
                            .Parameters.AddWithValue("@Fecha_Contratacion", DBNull.Value)
                        Else
                            .Parameters.AddWithValue("@Fecha_Contratacion", cdate(mtbfechacontratacion.Text).toshortstringdate)
                        End If
                        
                    End With
                    Try
                        cnn.Open()
                        cmd.ExecuteNonQuery()
                        MsgBox("Registro Insertado", vbArchive, "Insertado")
                    Catch ex As Exception
                        MessageBox.Show(ex.Message)
                    End Try
                End Using
            End Using
        End Sub
    Si ya tienes tu cadena de conexion bien definida yo te recomiendo que uses los procedimientos almacenados (store procedure) en la base de datos, un dia por este foro una persona que sabe mucho me dijo "deja que cada cosa se encarge de lo que mejor sabe hacer" trata de no manipular sentencias sql desde codigo visual basic, mejor invoca el procedimiento almacenado


    • Editado Efrain Diaz jueves, 14 de febrero de 2019 23:23
    jueves, 14 de febrero de 2019 23:21
  • otra cosita importante en vez de usar tu cadena de conexion en cada uno de los form mejor usa app.config para crear tu cadena de conexion con codigo xml, es muy facil y muy recomendado. exito Kafir
    jueves, 14 de febrero de 2019 23:25