26 messaggi dal 06 settembre 2001
'Giorno a tutti!

Sto provando ad effettuare un INSER INTO ma mi dà continuamente questo errore:


Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Per l'operazione è necessaria una query aggiornabile.
/asp/insert.asp, line 39


Questo è il codice, che in poche parole effettua una query di controllo, prima, ed un INSERT INTO , dopo:


<body>
<!-- #Include File="adovbs.inc" -->

<%
Dim MyRs, MyConn, strSQL, strQuery
Set MyRs = Server.CreateObject("ADODB.Recordset")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("amministrazione.mdb")

%>
<%
Nome = request.form("nome")
Cognome = request.form("cognome")
Posizione = request.form("posizione")
Password = request.form("password")
strQuery = "SELECT * FROM AM_UTENTI WHERE COGNOME = '"&Cognome&"' AND POSIZIONE = '"&Posizione&"'"
strSQL = "Insert into AM_UTENTI (NOME, COGNOME, POSIZIONE, PASSWORD) VALUES ('" & Nome & "', " & "'" & Cognome & "', " & "'" & Posizione & "', " & "'" & Password & "')"
%>
<%
Set MyRs = MyConn.Execute(strQuery)
if (Not MyRs.EOF)and(not MyRs.BOF) then
cogn = MyRs("Cognome")
posiz = MyRs("Posizione")
if ((cogn = Cognome) and (posiz = Posizione))then
response.write "Record già presente"
end if
else
MyConn.Execute(strSQL)
response.write "Record aggiunto!"
end if
MyRs.close
Set MyRs = Nothing
%>
</body>


Dove sbaglio?

Grazie!!


1.605 messaggi dal 06 settembre 2002
prova a leggere questa F.A.Q.

http://www.aspitalia.com/newsgroup/faq.asp?ID=51

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.