Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Sep 2006
    Messaggi
    181

    [VB6/ACCESS] Accesso a più tuple dopo una SELECT

    Salve a tutti,
    sto utilizzando per il mio programmino uninterfaccia costruita in VB6 ed un database ACCESS.
    Desidero prelevare informazioni dalla tabella Persone nel seguente modo:
    SQL = "SELECT * FROM Persone WHERE (Nome = '" & (TextName.Text) & "')"
    rec_set.Open SQL, conn
    MsgBox rec_set(Campo1).Value
    MsgBox rec_set(Campo2).Value
    MsgBox rec_set(Campo3).Value
    ecc....

    Il codice appena postato però mi permette di visualizzare solo i valori relativi ad una tupla. Da quel che so il linguaggio SQL permette di memorizzare il risultato di una select in una matrice temporanea. Per accedere alle altre tuple come faccio? Se richiamo più volte rec_set.Open accedo alle tuple successive?
    Grazie in anticipo

  2. #2

  3. #3
    Utente di HTML.it
    Registrato dal
    Sep 2006
    Messaggi
    181
    Infatti,
    grazie per avermelo ricordato.
    Non so se sia molto elegante comunque funziona

    SQL_NUM = "SELECT count(*) AS n FROM Persone " _
    & "WHERE (Nome = '" & (TextName.Text) & "')"
    rcsn.Open SQL_NUM, conn
    SQL1 = "SELECT * FROM Persone WHERE" _
    & "(Nome = '" & (TextName.Text) & "')"
    rec_set.Open SQL1, conn
    rec_set.MoveFirst
    n = rcsn("n")
    For i = 0 To n - 1
    ...............
    rec_set.MoveNext
    Next
    rcsn.Close
    rec_set.Close

  4. #4
    Utente di HTML.it L'avatar di tekanet
    Registrato dal
    Oct 2001
    Messaggi
    300
    Tutto ok, il .MoveFirst è superfluo!

    EDIT: No no scusa!

    rs.Open SQL, ...
    Do While Not rs.EOF
    ...
    rs.MoveNext
    Loop
    rs.Close

    Basta così!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.