Tengo un text_box y cuando le doy clic a un botón deseo que el contenido de ese text_box pase a un grid.
¿Como hago esto?
Mil gracias desde ya!
| |||
![]() YA LO RESOLVÍ. Opte por grabar (insert) los datos del text en una tabla, luego despliego inmediatamente el contenido de la tabla en el datagrid. Bendiciones! |
| |||
Re: Cómo agrego una fila en un datagrid hola podrias pasarme un ejemplo de este tema a mi mail, [email protected] |
| |||
Re: Cómo agrego una fila en un datagrid Cita: Adjunto lo solicitado:
Iniciado por felipedejess ![]() hola podrias pasarme un ejemplo de este tema a mi mail, [email protected] Private Sub cmdAgregar_Click() 'Agrega al grid Err.Clear cnJoyeria.BeginTrans sSQL = "INSERT INTO jo_param_prod(pp_empresa, pp_prod, pp_multiplo) " & _ "VALUES (1,'" & Trim(txtProducto.Text) & "'," & _ txtFactor.Text & ")" cnJoyeria.Execute sSQL If Err.Number <> 0 Then mensaje = Err.Description MsgBox mensaje, vbCritical, "System" cnJoyeria.RollbackTrans Exit Sub Else cnJoyeria.CommitTrans deFactura.cmParamProd 1 grdProdMultiplo.DataMember = "cmParamProd" deFactura.cnConecta.Close deFactura.cnConecta.Open ajustando_col txtProducto.Text = "" lblProducto.Caption = "" txtFactor.Text = "" End If End Sub Private Sub cmdAgregar_Click() 'Agrega al grid Err.Clear cnJoyeria.BeginTrans sSQL = "INSERT INTO jo_param_prod(pp_empresa, pp_prod, pp_multiplo) " & _ "VALUES (1,'" & Trim(txtProducto.Text) & "'," & _ txtFactor.Text & ")" cnJoyeria.Execute sSQL If Err.Number <> 0 Then mensaje = Err.Description MsgBox mensaje, vbCritical, "System" cnJoyeria.RollbackTrans Exit Sub Else cnJoyeria.CommitTrans deFactura.cmParamProd 1 grdProdMultiplo.DataMember = "cmParamProd" deFactura.cnConecta.Close deFactura.cnConecta.Open ajustando_col txtProducto.Text = "" lblProducto.Caption = "" txtFactor.Text = "" End If End Sub |