Visual Basic - ayuda no guarda un recorset

Life is soft - evento anual de software empresarial
   
Vista:

ayuda no guarda un recorset

Publicado por jose (10 intervenciones) el 07/07/2011 05:12:12
tengo una pequeña aplicacion pero no guarda los datos q se ingresa en el formulario no se si eh puesto algun error en el codigo, pero lo curioso es que no me sale ningun error este es el codigo le agradesco de ante mano su ayuda

Private Sub Cmdgrabar_Click()
Call Guardar
Call News
End Sub

Private Sub CmdLeer_Click()
FrmEmpleado.Show
Form1.Hide
rec.Close
cnx.Close
End Sub

Private Sub CmdNuevo_Click()
Call News
End Sub


Private Sub Form_Load()

cnx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
App.Path & "\ejercicio.accdb" & ";Persist Security Info=False"
cnx.Open

rec.Open "Empleados", cnx, adOpenDynamic, adLockOptimistic


End Sub

Public Sub Descuentos()
If Optdiez.Value = True Then
desc = suelbr * 0.1
ElseIf Optquince.Value = True Then
desc = suelbr * 0.15
ElseIf Optveinte.Value = True Then
desc = suelbr * 0.2
ElseIf Optcuarenta.Value = True Then
desc = suelbr * 0.4
End If
End Sub

Public Sub Bonificaciones()
If OptCTS.Value = True Then
bonif = suelbr * 0.08
ElseIf OptAsicFami.Value = True Then
bonif = suelbr * 0.1
ElseIf Optotros.Value = True Then
bonif = suelbr * 0.02
End If
End Sub
'Private Sub Asignar_Datos()
'rec("Nombre") = nomb
'rec("Edad") = edad
'End Sub
Public Sub News()
Txtnombre.Text = ""
Txtedad.Text = ""
TxtsueldoBruto.Text = ""
Txtnombre.SetFocus
End Sub

Public Sub Guardar()
nomb = Txtnombre.Text
edad = Val(Txtedad.Text)
suelbr = Val(TxtsueldoBruto.Text)

Call Descuentos
Call Bonificaciones
Call SeleccionSexo

Do While rec.BOF
rec.AddNew
rec!Nombre = nomb
rec!edad = edad
rec!sexo = sex
rec!sueldobruto = suelbr
rec!descuento = desc
rec!Bonificaciones = bonif
rec!sueldoneto = (suelbr - desc) + bonif
rec.Update
Loop

Do While rec.RecordCount > 0
rec.MoveFirst
rec.Delete
Loop

End Sub

Public Sub SeleccionSexo()
If Optsexo.Value = True Then
sex = Optsexo.Caption
ElseIf Optsexo1.Value = True Then
sex = Optsexo1.Caption
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda no guarda un recorset

Publicado por alfonso (66 intervenciones) el 19/07/2011 22:41:14
en la funcion guyardar te falta la sentencia

cnn.execute

o puede ser

adodc1.addnew

revisa el codigo ya que no tienes ninguna funcion que guarde los datos

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar