query inserimento dati

[tigre2209]

Ho una pagina che inserisce dei dati su una abella sqlServer.

 set rs=server.createobject("adodb.recordset")
 sql="select * from dati" 
 
 rs.open sql,connECTION1,3,3
 
 'scrivo
 rs.addnew
 rs("utente")=cognome
 rs("INDIRIZZO")=request.servervariables("remote_addr")
 RS("data")=FORMATDATETIME(NOW,0)
    rs.update 
 rs.close
 set rs=nothing

ma mi da questo errore:

[Microsoft][ODBC SQL Server Driver][SQL Server]Il 
cursore non include la tabella da modificare oppure la tabella non può essere 
aggiornata tramite il cursore.

[cavicchiandrea]

Non so se addnew è supportato da sqlserver usa inset into

[tigre2209]

ciao,
cosi mi ha sempre funzionato.
Solo che da quando ho dovuto cambiare il nome del pc mi da questo problema.
Anzi mi dava un problema sui database (dovevo aggiungere il server) , ma poi ho fatto:
EXEC
sp_addlinkedserver'nome\SQLExpress','SQL Server'

[optime]

quindi adesso è tuttapposhto?

[tigre2209]

no,
adesso vedo il server, ma non mi fa salvare i record sulle tabelle

[optime]

come ti ha già detto andrea, se usi la INSERT INTO è più sicuro

[marino51]

come ti è stato detto "insert into" è sicuramente meglio, ma avendo usato la tua costruzione solo per update, ho voluto provarla anche con insert, ebbene, ti posto il codice simile al tuo, ed il risultato positivo

Set testDB=CreateObject("ADODB.Connection") 
testDB.ConnectionString="File Name=E:\TEST\testDB.UDL;"
testDB.Open
Set RS_periodi = CreateObject("ADODB.Recordset") 
SQLcmd="select * from PERIODI with (ROWLOCK) where id_periodo>0"
RS_periodi.CursorLocation = 3 ' adUseClient
RS_periodi.CursorType  = 3 ' adOpenStatic
RS_periodi.LockType  = 2 ' adLockPessimistic
RS_periodi.Open SQLcmd, testDB
RS_periodi.addnew
RS_periodi("id_periodo")  =9
RS_periodi("id_struttura")=9
RS_periodi("data_inizio") ="2015-05-29 18:01:01"
RS_periodi("data_fine")   ="2015-05-30 18:01:01"
RS_periodi.update
RS_periodi.Close
set RS_periodi=nothing
WScript.Quit(0)

Cattura.PNG
nel file udl vi è la stringa di connessione ad MS SQL

[tigre2209]

Grazie, va bene.
Adesso dovrei cambiare tutte le mie pagine cosi.
Non mi spiego perché come ho fatto prima ha sempre funzionato, solo che dopo che ho cambiato il nome al computer dopo aver istallato SqlSErver Express 2005 è successo tutto questo.
Se disistallo tutto e rifaccio funzionera????

[marino51]

ho reso lo script molto più simile al tuo, togliendo la lock nella select e le altre istruzioni per il cursore
e continua a funzionare

Set testDB=CreateObject("ADODB.Connection") 
testDB.ConnectionString="File Name=E:\TEST\testDB.UDL;"
testDB.Open
Set RS_periodi = CreateObject("ADODB.Recordset") 
SQLcmd="select * from PERIODI where id_periodo>0"
RS_periodi.Open SQLcmd, testDB, 3, 3
RS_periodi.addnew
RS_periodi("id_periodo")  =99
RS_periodi("id_struttura")=99
RS_periodi("data_inizio") ="2015-05-29 18:01:01"
RS_periodi("data_fine")   ="2015-05-30 18:01:01"
RS_periodi.update
RS_periodi.Close
set RS_periodi=nothing
WScript.Quit(0)

controlla bene la open del cursore

l'idea disinstalla/installa ... non credo che funzioni ma ... se ti costa poco ... prova

stai usando un utente che non ha le autorizzazioni sulla tabella ?