[VB6] Data Environment

[Brainjar]

Per prima cosa hai provato come ti ho suggerito (Execute..) ?

Se vuoi provare ad usare ADODB segui questi passi.
Se utilizzi il DataEnvironment hai già i riferimenti impostati
correttamente per ADO.

Allora :

Il Data Environment lo hai collegato ad una fonte di dati tramite
un oggetto connessione, giusto ?

Nelle proprietà di connessione hai la ConnectionSource ?
Quellla stringa è la stessa che devi utilizzare per aprire
una connessione ADODB

Per creare ed aprire la connessione basta :

  ' dichiari e crei un oggetto connessione
  Dim conn As New ADODB.Connection 

  ' dichiari e crei un oggetto recordset
  Dim rs As New ADODB.Recordset

  ' Apri la connessione 
  conn.Open "LaStringaCheTroviInConnectionSource"
  
  ' apri il recordset eseguendo la query.  
  rs.Open "SELECT * FROM .......", conn, 3,3 ' Per il momento lascia così

  ' a questo punto rs rappresenta l'insieme dei record estratti

Fammi sapere.

[Petra]

Grazie di tutto...ho provato a collegare un datagrid...

Set Me.DataGrid1.DataSource = rs

...ma non mi visualizza nulla?!

[Petra]

Grazie di tutto...ho provato a collegare un datagrid...

Set Me.DataGrid1.DataSource = rs

...ma non mi visualizza nulla?!

[Brainjar]

Per collegare il data grid (e non la FlexGrid) hai bisogno del
DataEnvironment.

Quindi vale il mio primo suggerimento.

With DataEnvironment1 ' sostituisci i nomi degli oggetti con i tuoi 
    .Connection1.Open  
    Set datagrid.DataSource = .Connection1.Execute("SELECT * FROM TABELLA ...")
End With

Ricordati di sostiituire i nomi del DaraEnvironment e del suo
oggetto connessione con quelli che hai dato tu.

[Petra]

Siamo riusciti...in pratica mancava, prima di aprire la connessione, questa riga di codice:

conn.CursorLocation = 3

[Brainjar]

Grande!