[VB6] completamento automatico explorer (era: Oggetto misterioso)

[Fado84]

Perfetto.. Funziona...
Sei stato gentilissimo..
un'ultima cosa..
Adodc1.Recordset.EOF e .BOF che comandi sono??

grazie

[junx]

Adodc1.Recordset.EOF e .BOF che comandi sono??

BOF = Inizio del file (Begin Of File)
EOF = Fine del file (End Of File)

Se entrambe le condizioni sono vere, cioè ci troviamo sia all'inizio che alla fine, significa che il file (in questo caso il recordset) è vuoto, quindi servono a controllare che il Recordset sia o no vuoto, equivale a Recordcount = 0.

Ciao.

[Fado84]

bella, grazie mille di tutto!!

[Fado84]

Un'altra cosa per favore e poi questo comando sarà perfetto..
I) Quando seleziono un elemento con il mouse, mi resta aperta la tendina..
II)Vorrei che quando clikko sopra la datacombo mi caricasse tutti gli elementi del database invece se c'è gia un elemento dentro mi carica solo quell'elemento o altri elementi che contengano come prefisso quel nome..
Spero d'essermi spiegato abbastanza bene..

P.S: ho pravato in un casino di modi ma nada.. è un mio limite..

[Fado84]

Ho notato un'altro bug..
Ad esempio se nella datacombo è caricata la parola Andrea se io digito "A", me lo prende, se cancello la A e la riscrivo non me la prende più, la volta dopo si.. si alternano..
Grazie mille!!!

Confido in te JUNX!!!!

[Fado84]

un'altra cosa...
quando uso questa funzione messa in un modulo non mi fa uscire quando premo freccia su e giu.. che sbaglio??

Public Sub AutoComplete(Data As Object, Controllo As DataCombo, tabella As String, colonna As String)
If KeyUPDown = 38 Or KeyUPDown = 40 Then
    Exit Sub
End If

Dim Lunghezza As Integer
Dim Testo As String

Lunghezza = Len(Controllo.Text)
Testo = UCase(Trim(Controllo.Text))

    If Lunghezza <> 0 Then
        Data.RecordSource = "SELECT * FROM " & tabella & " WHERE " & tabella & " LIKE UCASE('" & Testo & "%') ORDER BY " & tabella
        Data.Refresh
        Controllo.Refresh

        
        If Not (Data.Recordset.BOF And Data.Recordset.EOF) Then
                SendKeys "%{DOWN}"
            Else
                SendKeys "{ESC}"
        End If
        Controllo.SelStart = Len(Controllo)
    Else
        Data.RecordSource = "SELECT * FROM " & tabella & " ORDER BY " & tabella
        Data.Refresh
        Controllo.Refresh
    End If

End Sub

Grazie mille!!

[junx]

KeyUPDown devi dichiararla nel modulo.
Ciao.

[Fado84]

nada non funge..
Hai qualche idea per gli altri bug?

GRAZIEEEEEEEEEEEEE

[junx]

Deve fungere!
Questo è il tuo codice:

Public Sub AutoComplete(Data As Object, Controllo As DataCombo, tabella As String, colonna As String)

che non funzionerà mai per ovvi motivi.....

Prova così:

Public Sub AutoComplete(Data As Object, Controllo As DataCombo, tabella As String, colonna As String, KeyUpDown as Integer)

Ciao.

[Fado84]

strano adesso funziona anche se avevo gia provato..
hai idea da cosa siano dovuti gli altri bug?

grazie