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

[ladyBlu]

perfetto, ho sostituito gli apici doppi con i singoli, e sembra funzionare.

problemino: il risultato della ricerca è visibile solo se mando in esecuzione il codice con il debug. se lo mando normale, non mi restituisce nulla, pur inserendo gli stessi identici parametri!

c'è una spiegazione per questo fenomeno alquanto strano?...:master:

[darkblOOd]

Originariamente inviato da ladyBlu
perfetto, ho sostituito gli apici doppi con i singoli, e sembra funzionare.

problemino: il risultato della ricerca è visibile solo se mando in esecuzione il codice con il debug. se lo mando normale, non mi restituisce nulla, pur inserendo gli stessi identici parametri!

c'è una spiegazione per questo fenomeno alquanto strano?...:master:

cioè?

[ladyBlu]

Originariamente inviato da darkblOOd


cioè?

come sarebbe cioè?...


allora, va bene con gli apici singoli, però riesco a vedere il risultato della ricerca nella mia listview solo se mando in esecuzione il programma e lo eseguo col debug. altrimenti vedo una bella listview vuota vuota...:master:


più chiaro ora?...

[darkblOOd]

cosa intendi per "eseguo col debug" che lo mandi avanti passo passo con F8?

posta il codice

[ladyBlu]

Originariamente inviato da darkblOOd
cosa intendi per "eseguo col debug" che lo mandi avanti passo passo con F8?

ma bravo a mamma, ci sei arrivato... proprio F8...
quindi, se lo "eseguo col debug e lo mando avanti passo passo con F8" il risultato della ricerca viene scritta nella listview, se invece non uso F8 la listview rimane inspiegabilmente bianca...

posta il codice

e che codice vuoi che ti posto?...:master:

[darkblOOd]

Originariamente inviato da ladyBlu

e che codice vuoi che ti posto?...:master:

quello che riempie la listview :adhone:

[ladyBlu]

Originariamente inviato da darkblOOd
quello che riempie la listview :adhone:

ok, eccoti servito...

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

  Dim miaSQL As String, MioRS As ADODB.Recordset 
  Dim mioIDRicerca As Long, miaDescrizione As String
  Dim mioTipo As String, mioIndice As Long,
  Dim mioDettaglio1 As String, mioDettaglio2 As String
  Dim mioDettaglio3 As String, miaLarghezza As Long
  Dim mioItem As ListItem, miaIntestazione As ColumnHeader
  Dim mioSubItem As ListSubItem, mioIDRicercaStr As String
    
  Set MioRS = New ADODB.Recordset
  
  miaSQL = "SELECT * from #tbRicercaGlobale WHERE Tipo = " & Tipo
  If MioFiltro <> "" Then miaSQL = miaSQL & " AND " & MioFiltro
   
  miaSQL = miaSQL & " ORDER BY Descrizione"

  MioRS.Open miaSQL, miaConn, 1, 3
  If MioRS.EOF Then Exit Sub

  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

[darkblOOd]

prima del loop prova a mettere rs.,ovelast e rs.MoveFirst....ricordi il casino della posizione sul primo record?

[ladyBlu]

Originariamente inviato da darkblOOd
prima del loop metti rs.MoveFirst....ricordi il casino della posizione sul primo record?

già fatto... me lo ero scordato...

[darkblOOd]

Originariamente inviato da ladyBlu
già fatto... me lo ero scordato...

e funziona?