[vb6] problema su una sql

[RaouL_BennetH]

ecco il codice:


Case 6

cerca = InputBox("Inserisci il Cognome da ricercare:")
rsql = rsql & "SELECT * FROM tblRubrica" & vbCrLf
rsql = rsql & "WHERE Cognome LIKE '" & cerca & "'" & vbCrLf
Set rs = cn.Execute(rsql)

If rs.EOF Then
MsgBox "Nessun Nominativo trovato!", vbOKOnly

Else
While Not (rs.EOF)

With TextBox
.Item(0).Text = rs("Cognome")
.Item(1).Text = rs("Nome")
.Item(2).Text = rs("Azienda")
.Item(3).Text = rs("Occupazione")
.Item(4).Text = rs("Indirizzo")
.Item(5).Text = rs("Citta")
.Item(6).Text = rs("CAP")
.Item(7).Text = rs("prov")
.Item(8).Text = rs("Email")
.Item(9).Text = rs("Web")
.Item(10).Text = rs("TelUfficio")
.Item(11).Text = rs("TelCasa")
.Item(12).Text = rs("TelCellulare")
.Item(13).Text = rs("TelFax")
.Item(14).Text = rs("tNote")
End With

Toolbar1.Buttons.Item(3).Enabled = True
Toolbar1.Buttons.Item(4).Enabled = True
rs.MoveNext
Wend
End If


Il problema è che non posso eseguirla due volte di seguito.

La prima volta tutto ok, la seconda invece mi da un errore di sintassi :confused:

[RaouL_BennetH]

ehhh.... il giorno che capirò che prima di postare sarebbe necessario debuggare un pò sarà troppo tardi :p

mi mancava prima di rieseguire la sql:



rsql = ""



altrimenti lui, giustamente, teneva caricato sempre il primo cognome che inserivo.

Ok...