Newsgroup: it.comp.lang.visual-basic
Titolo: Auitatemi sono un ranone !!

Partendo dal presupposto che sono consapevole che la mia domanda sia banale
e che molti di molti di voi se la rideranno pensando a quanto sia incapace
vi porgo comunque il mio insormontabile problema !!
Partendo da una tabella del genere
  Data                Cliente      Città
25-11-2000      Rossi         Torino
25-11-2000      Bianchi       Roma
26-11-2000      Verdi          Milano
27-11-2000       ....... .          .......
27-11-2000       .........           ......
28-11-2000      ........             .......
..... ...........            ........          ......
estraggo una serie di record, il mio problema è questo: come faccio a
visualizzare il risultato in un DBGRID ???
Ecco il codice
   strQuery = "SELECT * FROM TabDatario WHERE Data BETWEEN  '" & Text1 & "'
AND '" & Text2 & "';"
   Set dbs = OpenDatabase(strPercorsoFile)                  '" & txtNumCar &
"';"
   Set rst = dbs.OpenRecordset(strQuery)
     With rst
         Do Until .EOF
    DBGrid1.Columns(0) = !Data           'Visuaklizza solo l'ultimo record
    DBGrid1.Columns(1) = !Cliente       'Visuaklizza solo l'ultimo record
    DBGrid1.Columns(1) = !Città           'Visuaklizza solo l'ultimo record
     List1.AddItem !Data            ' Questo funziona
     List2.AddItem !Cliente         ' Questo funziona
     List3.AddItem !Città              ' Questo funziona
     .MoveNext
      Loop
     .Close
  End With
Grazie 1000
inoltre volevo ringraziare Aldo (3-11-2000).

 Partendo dal presupposto che sono consapevole che la mia domanda sia
banale
nessuna lo e', specie ma non solo per chi chiede. spesso possono esserlo le
risposte :)

a occhio, la griglia ti visualizza solo l'ultima scheda perche' caricandola
a mano prob devi anche spostarti tu di riga -- cosi' metti tutto nella prima
e unica linea, mentre giustamente al listbox aggiungi degli elementi.
se usi un controllo data con una dbgrid, collega la seconda al primo gia' in
design, poi prova un codice tipo questo e lascia che se la sbrighi vb:
Private Sub cmdSqlExec_Click()
    On Error GoTo errman
    If txtSQL = "" Then Exit Sub
    Screen.MousePointer = 11
    dbArk.RecordsetType = 1 ' <--- dynaset
    dbArk.RecordSource = txtSQL
    dbArk.Refresh
    DBG.ReBind ' <--- la tua griglia
    Screen.MousePointer = 0
    Exit Sub
errman:
    Screen.MousePointer = 0
    MsgBox Err & " - " & Error
End Sub
se non usi un datacontrol, ci riaggiorniamo :)

 Partendo dal presupposto che sono consapevole che la mia domanda sia
banale


 ha scritto nel messaggio
news:8u6sg9$7l3$1...@nslave3.tin.it...


 wrote in message 8u7ah9$q40$1...@nslave3.tin.it...


Accetta anche la mia (che son piccolino come programmatore), ma
secondo me devi fare così:
Ecco il codice
Dim x as long ' Dimensiona un contatore
   strQuery = "SELECT * FROM TabDatario WHERE Data BETWEEN  '" & Text1
& "'
AND '" & Text2 & "';"
   Set dbs = OpenDatabase(strPercorsoFile)                  '" &
txtNumCar &
"';"
   Set rst = dbs.OpenRecordset(strQuery)
     With rst
         'Do Until .EOF  (non con Until ma:)
Do while not .EOF 
 
    DBGrid1.Columns(0) = !Data           'Visuaklizza solo l'ultimo
record
    DBGrid1.Columns(x+1) = !Cliente       'Visuaklizza solo l'ultimo
record
    DBGrid1.Columns(x+1) = !Città           'Visuaklizza solo l'ultimo
record
	x=x+1' incrementa il contatore
     List1.AddItem !Data            ' Questo funziona
     List2.AddItem !Cliente         ' Questo funziona
     List3.AddItem !Città              ' Questo funziona
     .MoveNext
    Loop
     .Close
  End With
Spero funzioni!!!
Ciao
Robin