Ver Mensaje Individual
  #3 (permalink)  
Antiguo 29/10/2004, 11:53
zack
 
Fecha de Ingreso: mayo-2004
Mensajes: 195
Antigüedad: 20 años
Puntos: 0
Pregunta

Hola:

Estoy trabajando con Access

Dim Con As ADODB.Connection
Dim recorrer As ADODB.Recordset
Dim Ingresar As ADODB.Recordset
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub btn_ingresar_Click()
Ingresar.AddNew
Ingresar!fecha_proveedor = text_fecha
Ingresar!proveedor = Text_proveedores
Ingresar!camiones = Text_camiones
Ingresar!totales_camiones = text_totales_camiones
Ingresar!total_volumenes = text_volumenes
Ingresar.Update
End Sub
Private Sub btn_total_Click()
Text_total = Val(Text_banco1) + Val(Text_banco2) + Val(texdt_banco3)
End Sub
Private Sub Form_Load()
Set Con = New ADODB.Connection
Set recorrer = New ADODB.Recordset
conexion = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\sistema.mdb;Persist Security Info=False"
Con.Provider = conexion
Con.Open
Set Ingresar = New ADODB.Recordset
Ingresar.CursorType = adOpenKeyset
Ingresar.LockType = adLockOptimistic
Ingresar.Open "ingreso", Con, , , adCmdTable
End Sub


Lo que quiero es que uno de los datos del formulario se ingrese a otra tabla , gracias por tu tiempo para ayudarme.

Saludos.

Zack