Cita:
Iniciado por felipedejess 
hola podrias pasarme un ejemplo de este tema a mi mail,
[email protected] Adjunto lo solicitado:
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