| Respuesta: Form con campos no obligatorios ...
Hola, este es mi codigo de insert, son puros parametros....
Código:
Protected Sub Enviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Enviar.Click
Using conn As New OleDbConnection(Me.AccessDataSource9.ConnectionString)
Dim cmd As New OleDbCommand(Me.AccessDataSource9.InsertCommand, conn)
conn.Open()
cmd.Parameters.AddWithValue("@requerimiento", Me.DDL_Requerimiento.SelectedValue)
cmd.Parameters.AddWithValue("@alteracion", Me.TB_AlteracionODC.Text)
cmd.Parameters.AddWithValue("@requisitor", Me.TB_Requisitor.Text)
cmd.Parameters.AddWithValue("@telefono", Me.TB_Telefono1.Text)
cmd.Parameters.AddWithValue("@fecha", Me.TB_Fecha1.Text)
cmd.Parameters.AddWithValue("@proveedor", Me.TB_Proveedor.Text)
cmd.Parameters.AddWithValue("@contacto", Me.TB_Contacto.Text)
cmd.Parameters.AddWithValue("@moneda", Me.RBL_moneda.SelectedValue)
cmd.Parameters.AddWithValue("@costo", Me.TB_CostoEstimado.Text)
cmd.Parameters.AddWithValue("@duns", Me.TB_Duns.Text)
cmd.Parameters.AddWithValue("@telefonoprov", Me.TB_Tel2.Text)
cmd.Parameters.AddWithValue("@workorder", Me.TB_WorkOrder.Text)
cmd.Parameters.AddWithValue("@numproyecto", Me.TB_NumProyecto.Text)
cmd.Parameters.AddWithValue("@paradepartamento", Me.DDL_Depto.Text)
cmd.Parameters.AddWithValue("@partida1", Me.TB_par1.Text)
cmd.Parameters.AddWithValue("@partida2", Me.tb_par2.Text)
cmd.Parameters.AddWithValue("@partida3", Me.tb_par3.Text)
cmd.Parameters.AddWithValue("@partida4", Me.tb_par4.Text)
cmd.Parameters.AddWithValue("@partida5", Me.tb_par5.Text)
cmd.Parameters.AddWithValue("@desc1", Me.tb_desc1.Text)
cmd.Parameters.AddWithValue("@desc2", Me.tb_desc2.Text)
cmd.Parameters.AddWithValue("@desc3", Me.tb_desc3.Text)
cmd.Parameters.AddWithValue("@desc4", Me.tb_desc4.Text)
cmd.Parameters.AddWithValue("@desc5", Me.tb_desc5.Text)
cmd.Parameters.AddWithValue("@quimico1", Me.CB_quimico1.Text)
cmd.Parameters.AddWithValue("@quimico2", Me.CB_quimico2.Text)
cmd.Parameters.AddWithValue("@quimico3", Me.CB_quimico3.Text)
cmd.Parameters.AddWithValue("@quimico4", Me.CB_quimico4.Text)
cmd.Parameters.AddWithValue("@quimico5", Me.CB_quimico5.Text)
cmd.Parameters.AddWithValue("@unidadmedida1", Me.DDL_unidad1.SelectedValue)
cmd.Parameters.AddWithValue("@unidadmedida2", Me.DDL_unidad2.SelectedValue)
cmd.Parameters.AddWithValue("@unidadmedida3", Me.DDL_unidad3.SelectedValue)
cmd.Parameters.AddWithValue("@unidadmedida4", Me.DDL_unidad4.SelectedValue)
cmd.Parameters.AddWithValue("@unidadmedida5", Me.DDL_unidad5.SelectedValue)
cmd.Parameters.AddWithValue("@cantidadrequerida1", Me.TB_cant1.Text)
cmd.Parameters.AddWithValue("@cantidadrequerida2", Me.TB_cant2.Text)
cmd.Parameters.AddWithValue("@cantidadrequerida3", Me.TB_cant3.Text)
cmd.Parameters.AddWithValue("@cantidadrequerida4", Me.TB_cant4.Text)
cmd.Parameters.AddWithValue("@cantidadrequerida5", Me.TB_cant5.Text)
cmd.Parameters.AddWithValue("@preciounitario1", Me.TB_PUni1.Text)
cmd.Parameters.AddWithValue("@preciounitario2", Me.TB_PUni2.Text)
cmd.Parameters.AddWithValue("@preciounitario3", Me.TB_PUni3.Text)
cmd.Parameters.AddWithValue("@preciounitario4", Me.TB_PUni4.Text)
cmd.Parameters.AddWithValue("@preciounitario5", Me.TB_PUni5.Text)
cmd.Parameters.AddWithValue("@total1", Me.TB_Total1.Text)
cmd.Parameters.AddWithValue("@total2", Me.TB_Total2.Text)
cmd.Parameters.AddWithValue("@total3", Me.TB_Total3.Text)
cmd.Parameters.AddWithValue("@total4", Me.TB_Total4.Text)
cmd.Parameters.AddWithValue("@total5", Me.TB_Total5.Text)
cmd.Parameters.AddWithValue("@centrocostos1", Me.DDL_CCostos1.SelectedValue)
cmd.Parameters.AddWithValue("@centrocostos2", Me.DDL_CCostos2.SelectedValue)
cmd.Parameters.AddWithValue("@centrocostos3", Me.DDL_CCostos3.SelectedValue)
cmd.Parameters.AddWithValue("@centrocostos4", Me.DDL_CCostos4.SelectedValue)
cmd.Parameters.AddWithValue("@centrocostos5", Me.DDL_CCostos5.SelectedValue)
cmd.Parameters.AddWithValue("@total", Me.TB_Total.Text)
cmd.Parameters.AddWithValue("@cuentaGL1", Me.DDL_CtaGL1.SelectedValue)
cmd.Parameters.AddWithValue("@cuentaGL2", Me.DDL_CtaGL2.SelectedValue)
cmd.Parameters.AddWithValue("@cuentaGL3", Me.DDL_CtaGL3.SelectedValue)
cmd.Parameters.AddWithValue("@cuentaGL4", Me.DDL_CtaGL4.SelectedValue)
cmd.Parameters.AddWithValue("@cuentaGL5", Me.DDL_CtaGL5.SelectedValue)
cmd.Parameters.AddWithValue("@comentarios", Me.TB_Comentarios.Text)
cmd.Parameters.AddWithValue("@championcta", Me.DDL_Champion.SelectedValue)
cmd.Parameters.AddWithValue("@fechaprobchamp", Me.TB_Fecha2.Text)
cmd.Parameters.AddWithValue("@aprobfinanzas", Me.DDL_AprobacionFinanzas.SelectedValue)
cmd.Parameters.AddWithValue("@fechaprobfinanzas", Me.TB_Fecha4.Text)
cmd.Parameters.AddWithValue("@aprobmontosmayores", Me.DDL_AutorizacionMonto.SelectedValue)
cmd.Parameters.AddWithValue("@fechaprobmontosmayores", Me.TB_Fecha3.Text)
cmd.Parameters.AddWithValue("@aprobquimicos", Me.DDL_AprobacionQuimicos.SelectedValue)
cmd.Parameters.AddWithValue("@fechapobquimicos", Me.TB_Fecha5.Text)
cmd.ExecuteNonQuery()
End Using
Código:
INSERT INTO ODC(requerimiento, alteracion, requisitor, telefono, fecha, proveedor, contacto, moneda, costo, duns, telefonoprov, workorder, numproyecto, paradepartamento, partida1, partida2, partida3, partida4, partida5, desc1, desc2, desc3, desc4, desc5, quimico1, quimico2, quimico3, quimico4, quimico5, unidadmedida1, unidadmedida2, unidadmedida3, unidadmedida4, unidadmedida5, cantidadrequerida1, cantidadrequerida2, cantidadrequerida3, cantidadrequerida4, cantidadrequerida5, preciounitario1, preciounitario2, preciounitario3, preciounitario4, preciounitario5, total1, total2, total3, total4, total5, centrocostos1, centrocostos2, centrocostos3, centrocostos4, centrocostos5, Total, cuentaGL1, cuentaGL2, cuentaGL3, cuentaGL4, cuentaGL5, cometarios, championcta, fechaprobchamp, aprobfinanzas, fechaprobfinanzas, aprobmontosmayores, fechaprobmontosmayores, aprobquimicos, fechapobquimicos) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
|