Visualizzazione dei risultati da 1 a 8 su 8
  1. #1
    Utente di HTML.it
    Registrato dal
    Nov 2008
    Messaggi
    148

    [vb6] problema 'qualificatore non valido'

    appena tento di eseguire il seguente sub mi viene restituito : 'qualificatore non valido'
    come posso risolvere?
    codice:
    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:
    codice:
    Private Sub Form_Load()
    Dim cdart As String
    cdart = "cdfa"
    Call riempi(cdart)
    End Sub

  2. #2
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480

    Re: [vb6] problema 'qualificatore non valido'

    Originariamente inviato da killerbomb
    appena tento di eseguire il seguente sub mi viene restituito : 'qualificatore non valido'
    In quale riga?
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  3. #3
    Utente di HTML.it
    Registrato dal
    Nov 2008
    Messaggi
    148

    Re: Re: [vb6] problema 'qualificatore non valido'

    Originariamente inviato da oregon
    In quale riga?
    nella prima : "Public Sub riempi(indiceIngr As String)"

  4. #4
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    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 ?
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  5. #5
    Utente di HTML.it
    Registrato dal
    Nov 2008
    Messaggi
    148
    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?

  6. #6
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    La Datagrid la devi semplicemente associare al recordset

    Set DataGrid1.DataSource = rds2

    senza cicli ...
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  7. #7
    Utente di HTML.it
    Registrato dal
    Nov 2008
    Messaggi
    148
    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?

  8. #8
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    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.


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.