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!
| |||
Re: Cómo agrego una fila en un datagrid 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 |