Tema: Consulta SQL
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 26/08/2008, 10:57
bufalobill
 
Fecha de Ingreso: agosto-2007
Mensajes: 8
Antigüedad: 17 años, 7 meses
Puntos: 0
Respuesta: Consulta SQL

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