[VB6] Errore "Qualificatore non valido"

[killerbomb]

appena tento di eseguire il seguente sub mi viene restituito : 'qualificatore non valido'
come posso risolvere?

Public Sub riempi(indiceIngr As String)

Dim conn As New ADODB.Connection
Dim rds As New ADODB.Recordset
conn.Open LocaleStringaConnessione

Set rds = conn.Execute("select * from INGRED where CODMAG='" & indiceIngr & "'")
Dim cont As Integer
cont = -1
While rds.EOF = False
    Dim rds2 As New ADODB.Recordset
    Set rds2 = conn.Execute("Select CODART,TIPO,DESCRIZ,QUANT,PREZZO from MOVMAG where CODART='" & rds(1) & "' and TIPO=0")
    While rds2.EOF = False
    cont = cont + 1
        DataGrid1.Row.Add
        DataGrid1.Row(cont).cells(0).Value = rds2(1)
        DataGrid1.Row(cont).cells(1).Value = rds2(3)
        DataGrid1.Row(cont).cells(2).Value = rds2(2)
        Dim qta
       If (rds2(6) < 0) Then
        qta = (rds2(6) * -1) * rds(2)
       Else
        qta = rds2(6) * rds(2)
       End If
        DataGrid1.Row(cont).cells(3).Value = qta
        
    End

End
conn.Close
End Sub

richiamo la sub cosi:

Private Sub Form_Load()
Dim cdart As String
cdart = "cdfa"
Call riempi(cdart)
End Sub

[oregon]

Originariamente inviato da killerbomb
appena tento di eseguire il seguente sub mi viene restituito : 'qualificatore non valido'

In quale riga?

[killerbomb]

Originariamente inviato da oregon
In quale riga?

nella prima : "Public Sub riempi(indiceIngr As String)"

[oregon]

Non è possibile ... l'errore deriva da un'altra riga ...

Prova a inserire dei commenti

'

in alcune righe per eliminare l'errore e capire la riga ...


P.S. Cosa ci fanno quelle istruzioni End ?

[killerbomb]

Originariamente inviato da oregon
Non è possibile ... l'errore deriva da un'altra riga ...

Prova a inserire dei commenti

'

in alcune righe per eliminare l'errore e capire la riga ...


P.S. Cosa ci fanno quelle istruzioni End ?

si giusto. l'errore deriva da :'DataGrid1.Row.Add'.
come si aggiunge una nuova riga al datagrid da codice?

[oregon]

La Datagrid la devi semplicemente associare al recordset

Set DataGrid1.DataSource = rds2

senza cicli ...

[killerbomb]

Originariamente inviato da oregon
La Datagrid la devi semplicemente associare al recordset

Set DataGrid1.DataSource = rds2

senza cicli ...

il primo ciclo devo utilizzarlo obbligatoriamente. come avrai già notato, nel codice uso due query una per mi serve per recuperare dei dati che utilizzerò per recuperare altri dati da un altra tabella e accodare ogni volta i dati ricavati, nel datagrid1. in definitiva vorrei poter inserire i dati da codice come si fa con il datagridview di vb9 ("datagridview1.row(0).cell(0).value ="xxx"... "). è possibile ottenere qualcosa di simile?

[gibra]

Originariamente inviato da killerbomb
("datagridview1.row(0).cell(0).value ="xxx"... "). è possibile ottenere qualcosa di simile?

No, non è possibile perchè il DataGrid lavora solo in modalità connessa al recorset (Bound).

Quindi, o fai una query che includa entrambe le query (e poi carichi il DataGrid),
oppure usi un'altra griglia come la MSHFlexGrid.