Ciclo con consultas en Access - VB-MUNDO

RANSERRANO · #1 (**permalink**) 17-10-2006, 19:12:23

Tengo una tabla "T1" con nombres y numeros en Access y Otra tabla "T2" con una columna "Prod", lo que requiero es leer el primer "nombre" de la tabla "T1" y escribirlo en una columna de la tabla "T2" la cantidad de veces que diga en la linea "número", una vez que termina, repita el ciclo con el segundo registro "nombre" de la tabla "T1" hasta que se acaben los "nombres".

Gracias por la ayuda que me puedan brindar.

J.M.Movilla · #2 (**permalink**) 17-10-2006, 20:33:03

Supongo que sepas abrir las conexiones y los recordsets de cada tabla. Si no es así, creo que tendrás que empezar leyendo algún tutorial sobre tratamiento de bases de datos, porque no estaría bien que te diéramos todo hecho sin que tengas ni la más mínima base teórica sobre el tema.

Bueno, pues suponiendo que hayas abierto un recordset con la tabla T1, al que llamamos rsT1 y otro con la tabla T2 al que llamamos rsT2, para realizar la función que indicas, creamos un CommandButton (Command1) en el que ponemos este código:

Código:

Private Sub Command1_Click()
    Dim i As Integer
    With rsT1
        If .RecordCount() = 0 Then Exit Sub
        .MoveFirst
        Do While Not .Eof()
            For i = 1 to !Numero
                rsT2.AddNew
                rsT2!Prod = !Nombre
                rsT2.Update
            Next i
            .MoveNext
        Loop
    End With
End Sub

RANSERRANO · #3 (**permalink**) 18-10-2006, 19:56:42

No tengo mucha experiencia en abrir las conexiones y los recordsets, si me pueden brindar una guia adicional lo agradecería mucho.
Tengo entendido que se puede realizar con ADO o DAO que será más recomendable o más sencillo? :smt017

RANSERRANO · #4 (**permalink**) 18-10-2006, 20:52:08

Adjunto el ejemplo, pero lo que sucede es q al ejecutar el Buttom Command1 del formulario me genera un error, no se cual será el error si me pueden ayudar...!

Mil Gracias!!!

J.M.Movilla · #5 (**permalink**) 18-10-2006, 21:54:32

Como puedes comprobar, no podemos entendernos porque hablamos distintos idiomas... Yo te estoy dando código de Visual Basic, y tú estás haciendo una aplicación en Access... Y la verdad es que el título de tu consulta así lo indica... pero pusiste el mensaje en el FORO DE VISUAL BASIC y me desorientó...

A ver si hay alguien que te eche una manita...

RANSERRANO · #6 (**permalink**) 20-10-2006, 20:38:20

Gracias Don José María me funcionó de maravilla la ayuda inicial que me brindó, adjunto la manera que lo implementé en Access por si alguien lo requiere.

De nuevo mil gracias.

Option Compare Database
Option Explicit
Dim Base_Datos As DAO.Database
Dim rsT1 As DAO.Recordset
Dim rsT2 As DAO.Recordset
Const sPathBase As String = "C:\Prueba.mdb"

Sub Dristribuir()
Set Base_Datos = OpenDatabase(sPathBase)
Set rsT1 = Base_Datos.OpenRecordset("SELECT * FROM T1", dbOpenDynaset)
Set rsT2 = Base_Datos.OpenRecordset("SELECT * FROM T2", dbOpenDynaset)
Dim i As Integer
With rsT1
If .RecordCount() = 0 Then Exit Sub
.MoveFirst
Do While Not .EOF()
For i = 1 To !Numero
rsT2.AddNew
rsT2!Prod = !Nombre
rsT2.Update
Next i
.MoveNext
Loop
End With
End Sub