es primera vez que quiero tratar de obtener datos simultaneamente de dos tablas
tengo una db llamada Productos con dos tablas Ingresos y Precios
Ingresos tiene campos Id_ingreso auto incrementable, fecha, codigo, descripcion
Precios tiene campos Id_precio auto incrementable, Id_ingreso, PrecioDetalle, PrecioDocena
relacione el campo Id_ingreso en ambas tablas con integridad referencial, ahora
en ambas tablas he ingresado datos de esta forma:
Código:
'Establecer ruta de conexión sBase = App.Path & "\" & "Productos.mdb" Tabla = "Ingresos" ' Crear los objetos Set cnn = New adodb.Connection Set rst = New adodb.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase s = "SELECT * FROM " & Tabla rst.Open s, cnn, adOpenDynamic, adLockOptimistic rst.AddNew rst!Id_ingreso = lbl_ID.Caption rst!Fecha = DTPicker1.Value rst!Codigo = Text1(0).Text rst!Descripcion = Text1(1).Text rst!Cantidad = Val(Text1(2).Text) rst!Cunitario = Val(Text1(3).Text) rst!Ctotal = Val(Text1(4).Text) rst.Update rst.Close cnn.Close Err = 0 Set rst = Nothing Set cnn = Nothing
Código:
hasta ahi puedo ingresar en forma correcta'Establecer ruta de conexión sBase = App.Path & "\" & "Productos.mdb" Tabla = "Precios" ' Crear los objetos Set cnn = New adodb.Connection Set rst = New adodb.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase s = "SELECT * FROM " & Tabla rst.Open s, cnn, adOpenDynamic, adLockOptimistic rst.AddNew rst!Id_precio = lbl_IDprecio.Caption rst!Id_ingreso = Text1(0).Text rst!PrecioDetalle = Val(Text1(5).Text) rst!PrecioDocena = Val(Text1(6).Text) rst.Update rst.Close cnn.Close Err = 0 Set rst = Nothing Set cnn = Nothing
pero ahora necesito hacer una consulta que me involucre a las dos tablas a travez de los cambos relacionados Id_ingreso.
y francamente No tengo idea de como hacerlo
los resultados los muestro en un listview asi
Código:
ahora lo que deseo hacer es que al clicar en un item Private Sub cargar() 'Establecer ruta de conexión sBase = App.Path & "\" & "Productos.mdb" Tabla = "Ingresos" ' Crear los objetos Set cnn = New adodb.Connection Set rst = New adodb.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase s = "SELECT * FROM " & Tabla & " " rst.Open s, cnn, adOpenDynamic, adLockOptimistic With rst If (.BOF Or .EOF) Then MsgBox "No existen registros en la db", vbCritical Exit Sub Else ListView1.ListItems.Clear .MoveFirst Do While Not .EOF ListView1.ListItems.Add , , .Fields("Id_ingreso") & "" ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = .Fields("Codigo") & "" ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = .Fields("Descripcion") & "" ListView1.ListItems(ListView1.ListItems.Count).SubItems(3) = .Fields("Cunitario") & "" .MoveNext Loop End If End With rst.Close cnn.Close Err = 0 Set rst = Nothing Set cnn = Nothing End Sub
me relaciones las dos db a travez del campo Id_ingreso y me muestre los resultados de ambas tablas
Código:
por favor les ruego me ayudenFor i = ListView1.ListItems.Count To 1 Step -1 If ListView1.ListItems(i).Selected Then y es aqui donde guateo, pues no se como conectar con las dos tablas ni como hacer la consulta simultanea

muy agradecido de antemano
Bufalobill
