Bueno el problema es el suguiente tengo que hacer una aplicacion para un Tp que me pide hacer ABM de Clientes y ABm de las cuentas de los CLientes.
El tema que tengo tres tablas:
CLiente
Idcliente
Nombre
Apellido
Cuenta
N_cuenta
Saldo
Fecha
CliCue
Idcliente
N_Cuenta
Estoy usando ADO en VB6 con Access y el ABM de Clientes esta perfecto el tema esta en Cuando Quiero ingresar en una Cuenta a ese CLiente Como hago para que me agregue tmb a CLiCue los Datos Necesarios para que exista la relacion?
les dejo mi codigo del Formulario de cuentas pero aclaro que tengo otro de CLientes que es el que me trae para aca. que si lo necesitan lo pongo aca tmb.
Código C:
Ver originalPrivate Sub btnAdelante_Click()
setStatus False
AdoFrmCuentas.Recordset.MoveNext
If AdoFrmCuentas.Recordset.EOF Then
AdoFrmCuentas.Recordset.MovePrevious
End If
End Sub
Private Sub btnAtras_Click()
setStatus False
AdoFrmCuentas.Recordset.MovePrevious
If AdoFrmCuentas.Recordset.BOF Then
AdoFrmCuentas.Recordset.MoveNext
End If
End Sub
Private Sub btneditar_Click()
setStatus True
cmdAceptar.Enabled = True
Frame2.Enabled = False
btnAdelante.Enabled = False
btnAtras.Enabled = False
txtCuenta.Enabled = False
End Sub
Private Sub btnEliminar_Click()
If (AdoFrmCuentas.Recordset.EOF Or AdoFrmCuentas.Recordset.BOF) Then
' Avisar de que no hay registros
Else
' Eliminar el registro actual
AdoFrmCuentas.Recordset.Delete
' Movemos al primer registro para que los cambios se hagan permanentes
' (también podriamos haberlo movido al último registro)
AdoFrmCuentas.Recordset.MoveFirst
End If
MsgBox "la cuenta esta Eliminada"
End Sub
Private Sub btnNuevo_Click()
AdoFrmCuentas.Recordset.AddNew
AdoCliCue.Recordset.AddNew
setStatus True
txtCuenta.Text = ""
txtSaldo.Text = ""
cmbDate.Value = Date
cmdAceptar.Enabled = True
Frame2.Enabled = False
btnAdelante.Enabled = False
btnAtras.Enabled = False
End Sub
Private Sub setStatus(status As Boolean)
txtCuenta.Enabled = status
txtSaldo.Enabled = status
cmbDate.Enabled = status
End Sub
Private Sub cmdAceptar_Click()
setStatus False
AdoFrmCuentas.Recordset.MoveLast
MsgBox "la cuenta esta cargada"
cmdAceptar.Enabled = False
Frame2.Enabled = True
btnAdelante.Enabled = True
btnAtras.Enabled = True
End Sub
Private Sub Form_Load()
AdoFrmCuentas.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base\banco.mdb;Persist Security Info=False"
AdoFrmCuentas.RecordSource = "select * from Cuenta where N_Cuenta in (select N_Cuenta from CliCue where idCliente = " & FrmClientes.getCustomer & ")"
AdoFrmCuentas.Refresh
AdoCliCue.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base\banco.mdb;Persist Security Info=False"
AdoCliCue.RecordSource = "CliCue"
AdoCliCue.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
FrmClientes.listCuentas
End Sub
Espero que me puedan ayudar! y aclaro no se mucho de Ado ni Visual