[VB+SQLServer] Errore: Nome di colonna non valido

[ladyBlu]

Originariamente inviato da darkblOOd
e funziona?

no......

ti giuro che non capisco perchè fa in quel modo.
come cavolo è possibile che eseguendo il codice con F8 funziona e a velocità normale no?...

[darkblOOd]

ma alla fine non devi mettere Listview.Add(MioItem) o qualcosa del genere? :master:

[optime]

inframezza il codice con dei DoEvents...

[ladyBlu]

Originariamente inviato da darkblOOd
ma alla fine non devi mettere Listview.Add(MioItem) o qualcosa del genere?

Originariamente inviato da ladyBlu

Sub MostraDettagli(Tipo As Integer, Optional MioFiltro As String)

  ...
  Dim mioItem As ListItem
  Dim mioSubItem As ListSubItem
    
  ...

  MioRS.MoveFirst

  Do Until MioRS.EOF

     miaDescrizione = MioRS("Descrizione")
     mioIDRicerca = MioRS("IDRicerca")
     mioIDRicercaStr = Chr(Tipo + 65) & CStr(mioIDRicerca) & """"
     If Not IsNull(MioRS("Dettaglio1")) Then 
             mioDettaglio1 = MioRS("Dettaglio1") 
        Else 
             mioDettaglio1 = ""
     End If

     If Not IsNull(MioRS("Dettaglio2")) Then 
             mioDettaglio2 = MioRS("Dettaglio2") 
        Else 
             mioDettaglio2 = ""
     End If

     If Not IsNull(MioRS("Dettaglio3")) Then 
             mioDettaglio3 = MioRS("Dettaglio3") 
        Else 
             mioDettaglio3 = ""
     End If
  
     Set mioItem = lstDettagli.ListItems.Add(, mioIDRicercaStr, & _
                   miaDescrizione, "persona", "persona")
     Set mioSubItem = mioItem.ListSubItems.Add(, , mioDettaglio1)
     Set mioSubItem = mioItem.ListSubItems.Add(, , mioDettaglio2)
     Set mioSubItem = mioItem.ListSubItems.Add(, , mioDettaglio3)
  
     MioRS.MoveNext

Loop

End Sub

dove intendi dark?...:master:, a me sembra corretto...
e comunque il problema rimane sempre l'F8...

[ladyBlu]

Originariamente inviato da optime
inframezza il codice con dei DoEvents...

ok... provo...

[ladyBlu]

Originariamente inviato da ladyBlu
ok... provo...

niente da fare..., non gliene frega un bel niente...uff

[optime]

dove li hai messi?

[ladyBlu]

uno prima di
Do Until...


e l'altro prima di
MioRS.MoveNext


ma non va proprio.