Salve a tutti,
la fuzione di seguito riportata mi genera il seguente errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/FORMAZIONE/CdaM.asp, line 15
Qualcuno può aiutarmi?
C'è un'altra cosa..
questa funzione mi dovrebbe scrivere il dato in una textbox.
Volendo complicare le cose io vorrei invece creare una tabella e abbinare la funzione ad una finestrella pop-up stile cerca ma con i tasti inserisci e fine così da cercare n valori e per ognuno man mano che si trovano inserirli nella riga successiva della tabella.
Poco chiaro?se qualcuno è interessato ben lieto di mettermi in contatto per spiegare meglio.
<%
public function CalcolaCGdaMATRICOLA(matricola)
Dim oRs, oConn, sql
set oConn = server.CreateObject("ADODB.Connection")
oConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\db\anagrafica.mdb;Uid=Admin;Pwd=;"
'oConn.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= D:/db/anagrafica.mdb")
set oRs = server.CreateObject("ADODB.Recordset")
sql = "SELECT * from anagrafica where matricola = '" & matricola & "'"
oRs.open sql, oConn
if not oRs.EOF and not oRs.BOF then
while not oRs.EOF
CalcolaCGdaMATRICOLA = oRs.fields("cognome")
oRs.movenext
wend
end if
oRs.close
set oRs = nothing
oConn.close
set oConn = nothing
end function
%>
Rispondi quotando
