[VB] tipo non corrispondente

[laccamen]

Originariamente inviato da Rossella_75
Ok adesso funziona, ma io volevo fare in modo che quando l'utente scrive nella textbox il risultato viene scritto non nella list1 ma nella textbox..

è possibile???

e grazie

ma penso che tu voglia una cosa del genere: nell'evento change della textbox devi eseguire una query del tipo
select * from nometabella like textbox.text

[Rossella_75]

si infatti ma se io faccio cosi mi da sempre "Nessun Record"

Data.rscomuni.Open
Data.rscomuni.Find "zone LIKE '" & Text1 & "'"
If Not Data.rscomuni.EOF Then
Do While Not Data.rscomuni.EOF
Text1.Text = (Data.rscomuni.Fields("COMU_DESCR"))

Data.rscomuni.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
Data.rscomuni.Close

perchè??

[ddies]

  Data.rscomuni.Find "zone LIKE '%" & Text1 & "%'"
  'oppure
  Data.rscomuni.Find "zone LIKE '*" & Text1 & "*'"

[Rossella_75]

adesso mi dice che l'operazione non è consentita se l'oggetto è aperto

Private Sub Form_Load()

    Data.rscomuni.Open
    While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("via"))
    Data.rscomuni.MoveNext
    Wend
    Data.rscomuni.Close
    
End Sub

Private Sub List1_Click()
risultato = List1
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

Data.rscomuni.Open ' lo apro
Data.rscomuni.Find "zone LIKE '*" & Text1 & "*'"

If Not Data.rscomuni.EOF Then
Do While Not Data.rscomuni.EOF
Text1.Text = (Data.rscomuni.Fields("via"))

Data.rscomuni.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
Data.rscomuni.Close ' lo chiudo

End Sub

perchè??

[ddies]

in che punto te lo da? appena lo riapri nella text_change?

[Rossella_75]

appena ad esempio scrivo "p" nelle textbox

ed evidenzia Data.rscomuni.Open

[ddies]

Prova ad aprirlo nella load e a chiuderlo nell Unload e basta toglieno le aprture e chiusure nella text change

[Rossella_75]

cosi senza la chiusura (anche perchè non so mettere la chiusura come hai datto tu) mi da sempre "Nessun Record"

Private Sub Form_Load()

    Data.rscomuni.Open
    While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("via"))
    Data.rscomuni.MoveNext
    Wend

    
End Sub

Private Sub List1_Click()
risultato = List1
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))


Data.rscomuni.Find "zone LIKE '%" & Text1 & "%'"
If Not Data.rscomuni.EOF Then
Do While Not Data.rscomuni.EOF
Text1.Text = (Data.rscomuni.Fields("via"))

Data.rscomuni.MoveNext
Loop
Else
MsgBox "Nessun record"
End If


End Sub

grazie mille

[ddies]

Private Sub Form_Load()

  Data.rscomuni.Open
  While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("via"))
    Data.rscomuni.MoveNext
  Wend
  Data.rscomuni.MoveFirst
                                  
End Sub

[Rossella_75]

Se scivo "p" prima mi apparare la msgbox "Nessun Record" poi se premo su ok mi da Errore '3021'

"il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente"


ed evidenzia la scritta in basso in grassetto

Private Sub Form_Load()


  Data.rscomuni.Open
  While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("via"))
    Data.rscomuni.MoveNext
  Wend
  Data.rscomuni.MoveFirst
                                  

    
End Sub

Private Sub List1_Click()
risultato = List1
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))


Data.rscomuni.Find "zone LIKE '%" & Text1 & "%'"
If Not Data.rscomuni.EOF Then
Do While Not Data.rscomuni.EOF
Text1.Text = (Data.rscomuni.Fields("via"))

Data.rscomuni.MoveNext
Loop
Else
MsgBox "Nessun record"
End If


End Sub