[vb6] e query

[ivano78]

Salve raga' mi servirebbe una mano..........


allora devo filtrare dei dati per metterli in un datagrid

tabella carico composta da: n_doc e data

Ora mi interessano solo i dati che abbiano il valore di n_doc uguale ad una text box chiamata txtn;

Ho scritto cosi:

a=val(txtn.text)
rsd.Open "SELECT * from carico where ndoc= '" & a & "'", cn, adOpenStatic, adLockOptimistic, adCmdUnknown

mi da pero errore:
Tipo di dati non corrispondente dell' esprezzione criterio

Che sbaglio :berto:


Grazie

[oregon]

Togli i singoli apici ...

[andreaciao_22]

prova così:

a=val(txtn.text)
rsd.Open "SELECT * from carico where ndoc= " & Quota(a), cn, adOpenStatic, adLockOptimistic, adCmdUnknown

Al di fuori della Sub

Function Quota(Valore as String) As String
     Quota = Chr(34) & Valore & Chr(34)
End Function

fammi sapere se funziona

[ivano78]

Grazie a entrambi


Risolto......


a= Val(txtn.text)

rsd.Open "SELECT descrizione,data FROM carico WHERE ndoc= " & a & "", cn, adOpenStatic, adLockOptimistic, adCmdUnknown

Ancora grazie

[andreaciao_22]

dovresti togliere & "" perchè non serve a nulla... nel modo in cui scrivi tu stai dicendo al programma di metterti la stringa vuota dopo la variabile a... non ha senso...

[ivano78]

Giusto Andrea

ho corretto cosi
a = Val(txtn.Text)
Dim sql As String
sql = "SELECT descrizione,data FROM carico WHERE ndoc= " & a


e funge bene ........
Scusami ma non so molto preparato...............
Sto ancora all' inizio nonostante sia quasi vecchio ormai

[andreaciao_22]

non ti preoccupare...
e comunque se tu sei vecchio, io ormai sono da buttare via....