[VB+ACCESS] Problema Select...

[ladyBlu]

Buongiorno a tutti.

Devo fare una select che mi prenda tutti i campi di una tabella TBPreventivi.

Io ho scritto questo:

miaSource = "SELECT TBPreventivi.IDPrev, TBPreventivi.IDReparto,
 "TBPreventivi.Anno, TBPreventivi.Completato, " & _
 "TBPreventivi.Disponibilità, TBPreventivi.Descrizione " & _
 "FROM TBPreventivi ORDER BY TBPreventivi.IDPrev"
    
Set mioRSPrev = CurrentDb.OpenRecordset(miaSource)
numRec = mioRSPrev.RecordCount

nella tabella ci sono 105 record. Perchè se faccio il RecordCount me ne tira fuori solo 1??? :master: A mio parere è praticamente impossibile... eppure lo fa...

Mi sapete aiutare voi?

Vi ringrazio... di cuore...

[darkblOOd]

e tu prova a fare Select * From .....

[ladyBlu]

Originariamente inviato da darkblOOd
e tu prova a fare Select * From .....

già fatto......e non funziona.
ho provato anche a passargli il nome di una query esterna... ma niente lo stesso.
eppure questi 105 record ci sono, non me li sono inventati, tant'è che se eseguo la query esterna li trova tranquillamente.
Tra l'altro l'istruzione di select che ho scritto è proprio quella della query esterna... solo che di là funziona e di qua no!!!

[darkblOOd]

questi 105 record sono sul db o li crei tu da programma?

mi posti la sub?

[ladyBlu]

Originariamente inviato da darkblOOd
questi 105 record sono sul db o li crei tu da programma?

mi posti la sub?

i record sono tutti su una tabella, già esistenti... io devo solo estrarli, e fare un ciclo dal primo all'ultimo per crearne una copia esatta sulla stessa tabella.
il mio capo mi ha detto: fatti una select * e poi li ricopi uno x uno... solo che mi trova solo il 1°.

io nn ho sub da postarti perchè i record sono già inseriti.
l'unica cosa che ho scritto è quella che già hai visto.

comunque tutto ciò che ho è questo:

Private Sub cmdCreaPreventivo_Click()

    CopiaPreventivi
    
End Sub

Private Sub CopiaPreventivi()

   miaSource = "SELECT TBPreventivi.IDPrev, TBPreventivi.IDReparto,
       "TBPreventivi.Anno, TBPreventivi.Completato, " & _
       "TBPreventivi.Disponibilità, TBPreventivi.Descrizione " & _
       "FROM TBPreventivi ORDER BY TBPreventivi.IDPrev"
    
    Set mioRSPrev = CurrentDb.OpenRecordset(miaSource)
    numRec = mioRSPrev.RecordCount
    
    If numRec = 0 Then Exit Sub
    
    mioRSPrev.MoveFirst
    Do Until mioRSPrev.EOF
        
       miaSQLInsert = "INSERT INTO TBPreventivi " & _
       "(IDReparto,Anno,Completato,Disponibilità, " & _
       "Descrizione) " & _
       "values (mioRSPrev!IDReparto, " & _
       "(cint(mioRSPrev!Anno)+1), " & _
       "mioRSPrev!Completato, " & _
       "dateadd('yyyy',1,mioRSPrev!Disponibilità), " & _
       "mioRSPrev!Descrizione)"
       
       CurrentDb.Execute miaSQLInsert
        
       mioRSPrev.MoveNext

    Loop

End Sub

[darkblOOd]

nella insert hai dimenticato di mettere l'ID, non è una chiave primaria?
cmq, se mtti un punto di interruzione subito dopo
numRec = mioRSPrev.RecordCount
che valore trovi in numrec? 1?

anceh se non ho capito la funzionalità del codice...riscrivere nella stasse tabella un record già esistente...non è che devi fare l'update del record trovato? :master:

[ladyBlu]

la chiave primaria è IDPrev... ma non si incrementa da sola? è un contatore! :master: non dovrei aver bisogno di scrivercelo...


cmq,
numRec = 1
il che ripeto che è impossibile, dal momento che la select è perfetta!!! :master:



no, non devo fare update... devo proprio copiare fisicamente i record per poi apportargli delle modifiche... e poi che ne so io... mi hanno detto cosa devo fare e io eseguo...

[darkblOOd]

Originariamente inviato da ladyBlu
la chiave primaria è IDPrev... ma non si incrementa da sola? è un contatore! :master: non dovrei aver bisogno di scrivercelo...

si, era solo per sapere

cmq,
numRec = 1
il che ripeto che è impossibile, dal momento che la select è perfetta!!! :master:

no, non devo fare update... devo proprio copiare fisicamente i record per poi apportargli delle modifiche... e poi che ne so io... mi hanno detto cosa devo fare e io eseguo...

e fai bene


ma che cavolo è?.....per curiosità, togli l'order by e fai Select * from Tabella.......

[ladyBlu]

in principio io avevo scritto proprio

"SELECT * FROM TBPreventivi"

ma la situazione non era diversa... sempre 1 record mi trova.

[vonkranz]

..dal momento che non ho voglia di leggere tutto il post...mi limito a dire...

prova a popolare il recset... con

mioRSPrev.movelast
mioRSPrev.movefirst


.....
debug.print
mioRSPrev.recordcount

..e vedi se i record ci sono tutti


....se avete gia' risolto........amen....