[VB6] DataGrid e ADODB

[hunt]

Voglio visualizzare nel DataGrid i recordset estrapolati dall'ADO "conn"...mi fa quest'errore!!!
Cosa può essere ? ? ?

Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private strConn As String
Private strSQL As String
Private strFile As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Persist Security Info=False"
conn.ConnectionString = strConn
conn.Open
strSQL = "Select * From TABELLA"
rs.Open strSQL, conn
Set DataGrid.DataSource = conn

Errore di run-time '13'.
Tipo non corrispondente

La linea in rosso è il debug di VB6.

[hunt]

[anatroccolo]

Originariamente inviato da hunt
Voglio visualizzare nel DataGrid i recordset estrapolati dall'ADO "conn"...mi fa quest'errore!!!
Cosa può essere ? ? ?

Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private strConn As String
Private strSQL As String
Private strFile As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Persist Security Info=False"
conn.ConnectionString = strConn
conn.Open
strSQL = "Select * From TABELLA"
rs.Open strSQL, conn
Set DataGrid.DataSource = conn

Errore di run-time '13'.
Tipo non corrispondente

La linea in rosso è il debug di VB6.

Devi passare il Recordset non la connessione.

Set DataGrid.DataSource = rs

Ciao

[hunt]

Ho provato con "rs", ma mi fa quest'errore!!!
Cos'è sta volta ? ? ?

Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private strConn As String
Private strSQL As String
Private strFile As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Persist Security Info=False"
conn.ConnectionString = strConn
conn.Open
strSQL = "Select * From TABELLA"
rs.Open strSQL, conn
Set DataGrid.DataSource = rs

Errore di run-time '7004'.
Impossibile assegnare segnalibri al gruppo di righe

La linea in rosso è il debug di VB6.

[hunt]

[hunt]

[diegocoz]

Nell'esempio che ti riporto qua sotto funziona, anche se ho un pò sviato:

    Dim strConn As String
    Dim strSQL As String
    Dim strFile As String
    
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sviluppo\prove\Access2000\anagrafica.mdb;Persist Security Info=False"
    strSQL = "Select * From clienti"
    
    Set DataGrid1.DataSource = Me.Adodc1
    
    Me.Adodc1.ConnectionString = strConn
    Me.Adodc1.RecordSource = strSQL
    
    DataGrid1.ReBind

In partica, sul mio form ho messo pure un ADOdatacontrol (invisibile) e la DataGrid la associo a questo datacontrol; poi smanetto la connessione e il recordsource del datacontrol, e indirettamente aggiorna i dati nel datagrid.
Così funziona. Se invece devi per forza usare gli oggetti recordset e connection di ADO, forse dovresti provare ad usare la DBGrid invece della DataGrid.

Ciao

[hunt]

grazie mille!!! funziona...cmq volevo farlo tramite oggetti!!! pazienza!!! ;-)