[VB6] Ricerca di record

[oregon]

Scrivi nel codice

Data1.RecordSource = "SELECT ..."

e poi

Data1.Refresh

[RastaRego]

nella private sub data1_validate(action as integer,save as integer)??
mi da un errore in data1.refresh..
mi dice metodo non applicabile in questo contesto.

[oregon]

data1_validate

?

Non ho mai parlato di usare questo evento.

Perche' hai inserito il refresh in questo evento?

Devi usarlo all'interno di un evento click di un pulsante con cui inizi la ricerca ...

[RastaRego]

Giusto! ed è anche giusto che sono un PIRLA!
Cmq adesso mi da questo errore: Data Type mismatch in criteria expression
(in data1.refresh credo..)

[avatar]

Originariamente inviato da oregon
Non si paga per scrivere nel forum ...

[ot]
... essere ordinati aiuta chi ti vuole aiutare
Un po come andare dal panettiere a chiedere le catene della neve

[/ot]

Private Sub Command1_Click()

  Data1.RecordSource = "SELECT ..."
  Data1.Refresh

End Sub

[oregon]

Originariamente inviato da RastaRego
Giusto! ed è anche giusto che sono un PIRLA!
Cmq adesso mi da questo errore: Data Type mismatch in criteria expression
(in data1.refresh credo..)

Il campo del codice del database e' numerico o testo?

Se, come penso dall'errore, e' di tipo testo, allora devi inserire gli apici nella query, che diventa

"SELECT * FROM Tabella WHERE Codice = '" & Text1.Text & "'"

[RastaRego]

ALLORA... CALMA...
IO HO SCRITTO:

private sub CmdCerca_click()

data1.recordsource= "SELECT * FROM ARTICOLI WHERE COD_ART = " & text1.txt
data1.refresh

end sub

e penso che quell'errore mi sia spuntato quando il prg doveva eseguire la refresh :master: ..

[RastaRego]

il tipo di dati all'interno della tabella, sono di tipo memo! VVoVe:

[oregon]

Cod_Art e' di tipo Memo? Un codice di un articolo di tipo Memo?

Penso sia di tipo testo ... Quindi devi scrivere

Private Sub CmdCerca_click() 
   Data1.RecordSsource = "SELECT * FROM ARTICOLI WHERE COD_ART = '" & text1.txt & "'"
   Data1.Refresh 
End Sub

[RastaRego]

adesso sono di tipo testo...
cosa devo cambiare??

data1.recordsource= "select * from articoli where cod_art = " & txtcod.text & ""