Hola perropato, gracias por tu respuesta, mira segui paso a paso tu ayuda y di con lo siguiente
Código:
' 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 & "," & Tabla2 & " WHERE " & Tabla2 & ".Id_ingreso= " & Tabla & ".Id_ingreso AND Codigo='" & ListView1.ListItems(i).SubItems(1) & "'"
's = "SELECT p.Id_ingreso,Codigo as " & Tabla & " , m.Id_ingreso,PrecioDetalle as " & Tabla2 & " FROM " & Tabla & " as p INNER JOIN " & Tabla2 & " as m ON p.Id_ingreso=m.Id_ingreso;"
rst.Open s, cnn, adOpenDynamic, adLockOptimistic
With rst
If (.BOF Or .EOF) Then
MsgBox "No existen registros en la db", vbCritical
Exit Sub
Else
.MoveFirst
Do While Not .EOF
'Text1(0) = .Fields("Id_ingreso")
Text1(1) = .Fields("Codigo")
Text1(2) = .Fields("Descripcion")
Text1(3) = .Fields("Cantidad")
Text1(4) = .Fields("Cunitario")
lbl_IDprecio.Caption = .Fields("Id_precio")
Con le primera Select trabaja bien a media, ya que el primer campo que es el mas importante me dice ERROR 3265 no se reconoce el elemento de la coleccion que corresponde con el nombre o el ordinal pedido, sin embargo me muestra todo los demas campos de ambas tablas, solo no me muestra los ID_ingreso
y con la segunda select me da el mismo error para todos los campos
Por favor ayudame amigo,
te lo agradecere hasta el infinito y mas alla
Bufalobill