Ma come è possibile? Tipi di dati non corrispondenti nell'espressione criterio.

[diegoctn]

Ragazzi sto sclerando , ho una form che manda i dati ad una pagina ( di.asp), i dati vengono inseriti in una tabella ANVER. Ho un'altra pagina che prende i dati dalla tabella, viene popolata una form identica a quella di sopra ma quando i dati vengono processati dalla pagina (di.asp) mi si da errore Tipi di dati non corrispondenti nell'espressione criterio.

I dati in pratica li metto nella tabella, poi li prendo dalla tabella per rimetterli dentro e ...........Tipi di dati non corrispondenti nell'espressione criterio.


Ma come è possibile?

[viki1967]

se posti qualche riga di code e ci descrivi il database, tipo dei campi, nomi dei campi... etc forse possiamo aiutarti...

[Sypher]

posta l'sql che ti da errore? probabilmente nelle condizioni nn rispetti il tipo di campo!

[diegoctn]

E' una intranet per due palestre. Il medico che fa le visite dovrebbe fare una specie di lettere per il certificato....a parte questo:
Questo e la pagina dim che processa sia il form che proviene da A.asp ( e funziona...), sia il form che proviene da B.asp ( e non funziona). Nel primo caso i valori vengono inseriti dall'utente, nel secondo caso li richiamo tramite una select. Il db è access; i campi dat, ric, dimesso e controllo sono data\ora

Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("intranet.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset") 
set objRs = objConn.Execute("SELECT * from dimissioni") 
uo=session("uo")

nomem=session("nomemed")

cognomem=session("cognomed")
titolo=session("tit")
DATAIN=Request.Form("DATA")
cognome1=Request.Form("cognome")
cognome= Replace(cognome1,"'","''")
nome=Request.Form("nome")
CC=Request.Form("CC")
ric=Request.Form("ric")
diagnosi1=Request.Form ("diagnosi")
diagnosi = Replace(diagnosi1,"'","''")
terapia1=Request.Form ("terapia")
terapia = Replace(terapia1,"'","''")
osservazioni1=Request.Form ("osservazioni")
osservazioni = Replace(osservazioni1,"'","''")
dimesso=Request.Form("dimesso")
terapiadim1=Request.Form ("terapiadim")
terapiadim = Replace(terapiadim1,"'","''")
controllo1=Request.Form ("controllo")
controllo = Replace(controllo1,"'","''")
noti1=Request.Form ("noti")
noti = Replace(noti1,"'","''")
Sql = "INSERT into dimissioni " 
sql= Sql & "(dat,cognome,nome,cc,ric,dimesso, " 
Sql= Sql & " diagnosi,terapia,osservazioni,mediconome,medicocognome, "
Sql= Sql & "titolo,terapiadim,controllo, noti,uo) " 
sql= Sql & "VALUES (' " & datain & " ','"& cognome &"','" & nome & "', "
sql= Sql & "'" & cc & "','" & ric & "', '" & dimesso & "', "
sql= Sql & "'" & diagnosi & "',' " & terapia & " ', ' " & osservazioni & "', "
sql= Sql & "'" & nomem & "', '" & cognomem & "','" & titolo & "', "
sql= Sql & "'" & terapiadim & "', '" & controllo & "', '" & noti & "','"&uo&"')"
OBJConn.Execute(SQL)

[Sypher]

uè mica sto a capì...ma nn è la select che da problemi???

[diegoctn]

No. E' nell'inserimento dati che ho problemi. Nell'insert. E' come se non leggesse i campi data/ora...........

[viki1967]

sql= Sql & "VALUES (# " & datain & " #,'"& cognome &"','" & nome & "', "

il cancelletto al posto degli apici.. il campo nel dbase è data/ora, vero?

[Sypher]

probabilmente dico na caxxata ma quegli spazi fra gli apici nn dovrebbero essere tolti?

Sql= Sql & "titolo,terapiadim,controllo, noti,uo) " 
sql= Sql & "VALUES (' " & datain & " ' ,'"& ...

e attorno ai campi data prova ad usare il cancelleto al posto degli apici

[diegoctn]

Ho corretto: nel momento in cui recuperavo i dati dato una variabile testo ad un campo data.
Ma adesso, dato che la giornata è infinita........quando io modifico scrivo una riga in più, in pratica prendo i dati, li modifico e reinserisco. Se dovessi riprendere l'ultima modifica? Devo per forza raggruppare tutti i campi? Io utilizzo top 1 per prendere una riga sola ma sbaglio perchè mi prende la prima inserita, io voglio invece l'ultima inserita, Come faccio senza raggruppare?