Newsgroup: it.comp.lang.visual-basic
Titolo: tipi di dati non corrispondenti nell'espressione criterio xke??? HELP!

Ciao...innanzitutto grazie x le vostre risposte...
ho trovato tutta gente molto competitiva in materia, spero mi possiate
aiutare anke stavolta :)
durante una lettura da database VB 6 visualizza questo messaggio di
errore: tipi di dati non corrispondenti nell'espressione criterio
Non capisco xke... le informazioni ke restituisce sono corrette...
vi posto il codice x una maggiore comprensione del mio problema.
Private Sub CmdAnnulla_Click()
  CmdModifica.Enabled = False
  QueryAnnulla = "SELECT A_Guasti_Archivio.* " & _
                 "FROM A_Guasti_Archivio " & _
        "WHERE A_Guasti_Archivio.ID_Lav = '" & txtScheda & "' "
    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & "C:\dbLavoro.mdb"
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open stringa
    rs.Open QueryAnnulla, cn, 1
    txtCliente = rs.Fields("Azienda")
    txtScheda = rs.Fields("ID_Lav")
    txtCognome = rs.Fields("Cognome")
    txtNome = rs.Fields("Nome")
    txtGuasto = rs.Fields("Guasto")
    txtDataC = rs.Fields("Data_Chiamata")
    txtDataI = rs.Fields("Data_Intervento")
    txtOraA = rs.Fields("Ora_Arrivo")
    txtOraU = rs.Fields("Ora_Uscita")
    ChkG = rs.Fields("Garanzia")
    ChkC = rs.Fields("Contratto")
    ChkF = rs.Fields("Fine_Lavorazione")
    txtDettagli = rs.Fields("Dettagli_Lavorazione")
    txtOreL = rs.Fields("Ore_Lavorazione")
    txtTotale = rs.Fields("Totale")
    Set cn = Nothing
    Set rs = Nothing
End Sub
Grazie mille...Tutti i consigli sono ben accetti ;)

Ah dimenticavo...l'errore è su questa riga: rs.Open QueryAnnulla, cn,
1 
Quindi penso si tratti della Query...o nn so... Help me!!!  :)

 Grazie mille...Tutti i consigli sono ben accetti ;)
UN MEGA CONSIGLIO
leva le kappa!!!! ekkekaz!
-- 
------------------------------------------------
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
:-)

 ke valori sono??? 
ma chi sei, l'eroiken alleaten galeazzo musolesi?
-- 
ciao, hal

in poche parole il mio problema è che dopo aver premuto il tasto
salva...memorizzo tutto su database e fin qui tutto bene...poi se
voglio modificare i dati... premo il tasto modifica e fin qui tutto
bene...ma se ad esempio modifico qualche campo e poi voglio annullare
le modifiche xke mi sono reso conto che ho sbagliato e premo il tasto
annulla...e qui dovrei ricaricare la scheda che avevo in precedenza
salvato dal database.
1) txtScheda ha sempre un valore numerico valido.
2) where ID_Lav = 8 perche 8 sarebbe il valore numerico di txtScheda
3) NON ci puo essere un valore nulla soprattutto poi in Azienda non è
proprio possibile... cmq funziona anche se ho campi vuoti ke leggo da
database ed inserisco nel form
4) THANKS! Grazie...
PS: potresti spiegarmi la sintassi di:  rs.Open QueryAnnulla, cn, 1
QueryAnnulla richiama la stringa contenente la Query Sql
cn richiama la stringa contenente la connessione al database
1 ????
a volte trovo anke: rs.Open Query, cn, 3, 3
ke valori sono??? 
grazie a presto... hunter83

 grazie a presto... hunter83
Adesso ti dico che se programmi alla cieca come stai andando non capirai mai
un cazzo (ops un Kazzo) di quello che stai facendo....
Quindi...librettino...guida installata...e lettura!
Se ti scassi i maroni.....oh beh!...ci son sempre tante altre cose da fare!

Grazie Wodka...ho risolto il problema...non c'è bisogno ke
t'arrabbi...il librettino ce l'ho, la guida installata anke e come
posso lo leggo e lo rileggo...
quindi siamo tutti esseri umani non Cristi... cmq l'unica parte ke
manca sul libro è quella relativa alla comunicazione con il
database...ed ho preso alcune info da internet ma nn sono spiegate
molto bene...E SCUSA SE NN HO CAPITO!
p.s: se tu hai qualke dispensa ke spiega bene la comunicazione tra VB6
e database xke non me la mandi? in modo ke posso imparare di piu...
ciao!


Ora m'incazzo di brutto....
se non sai che cosa è un recordset...che tra le altre cose pretendi di
usare...siamo proprio messi male!
Perchè?
Perchè il recordset è uno degli oggetti che espone vb6 per contenere il
risultato di una query!!!!
ORA
per avere un risultato si deve aver stabilito (in qualche modo) una
connessione al db...
Inoltre.....che ne sai di "Tecnologie di accesso ai dati"?
te lo dico io...una mazza!
Esistono 2 tecnologie essenzialmente
...DAO (specifica per motore db "Jet"...quello di access)
...ADO per tutti i più comuni motori db (relazionali e non)
...e ti lascio stare ODBC...utilizzabile da ADO.
Quindi ...prima cosa....tu che cazzo di tecnologia usi?(te lo dico io...dal
tono delle tue domande scommetterei su ADO)
Sai come vederlo?
Ha un senso per te quello che appare nel menu Progetto-->Riferimenti?
INOLTRE
se hai vb originale dovresti avere anche la guida di vb
ora se cerchi
ADO
e clicchi sulla voce
"Modello di oggetti"
Hai un ottima base di partenza!
Se non hai la guida di VB:
Ritorna dal pusher spendi altri 10 euri e fattela masterizzare!
Cercala su internet c'è anche MSDN on line
Sul libro non c'è?Strano bischero libro....
Comprati quello di Francesco Balena...o fattelo dare da qualcuno....
c'è tutto quello che ti serve per iniziare!...ti avverto...è un bel
"mappazzo" di volume...
ma in definitiva....non si diventa programmatori in un giorno!
Buono studio!

ehi ciao... cm va? spero bene... senti puoi consigliarmi qualcosa x
stampare un form di visual?
avevo pensato a Crystal Repor, ho la versione 10. Ma ogni volta che
provo a stampare mi da un errore stupido secondo me... "Unable to load
report" o simile... cioè nn trova il file .rpt ma nn capisco
perchè... puoi aiutarmi?
ti posto il codice... speriamo bene :)
Formula = "{A_Guasti_Archivio.P_IVA} = '" & txtPIVA & "' And
{A_Guasti_Archivio.P_IVA} = '" & txtScheda & "' "
CrystalReport1.DataFiles(0) = "C:\GestioneUfficio\dbLavoro.mdb"
CrystalReport1.ReportFileName =
"C:\GestioneUfficio\StampaLavorazione.rpt"
CrystalReport1.SelectionFormula = Formula
CrystalReport1.WindowsState = crptMaximized
CrystalReport1.Destination = crptToPrinter
CrystalReport1.Action = 1
l'errore del Debug è sull' Action
grazie...