Inserimento Record con SQL

[mrpj]

Ecco qua il codice inserito:

<%
Date = Replace(request("Date"),"'", "''")
TpRec = N
Km = Replace(request("Km"),"'", "''")
Fornitore = Replace(request("Fornitore"),"'", "''")
Descrizione = Replace(request("Descrizione"),"'", "''")
pagatodamauro = Replace(request("pagatodamauro"),"'", "''")
pagatodaale = Replace(request("pagatodaale"),"'", "''")
pagatodamirko = Replace(request("pagatodamirko"),"'", "''")

StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=" & server.MapPath("/mdb-database") & "\***.mdb;pwd=***"
	
Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open StrConnessione

SQL = "SELECT * FROM SpAttive"

SQL = SQL & " values ('"  & TpRec & "','" & Date & "','" & Km & "','" & Descrizione & "',
'" & Fornitore & "','" & pagatodamauro & "','" & pagatodaale & "',
'" & pagatodamirko & "')"

Conn.execute SQL

Conn.Close
set Conn=nothing

%>

chiaramente non funziona ... è la prima volta che aggiungo una record ad un database quindi ho fatto riferimento ad uno già esistente ...ma certe cose le ho inserite e/o modificate alla cieca senza sapere esattamento quello che facevo ... grazie per qualsiasi aiuto!

Mirko

[Roby_72]

SQL = SQL & " values ('"  & TpRec & "','" & Date & "','" & Km & "','" & Descrizione & "',
'" & Fornitore & "','" & pagatodamauro & "','" & pagatodaale & "',
'" & pagatodamirko & "')"
response.write SQL:response.end

Posta quello che vedi a video.

Roby

[mrpj]

Mi da un mega errore:

Impossibile visualizzare la pagina 
Impossibile visualizzare la pagina desiderata. Si è verificato un problema. 

--------------------------------------------------------------------------------

Provare a eseguire le operazioni seguenti:

Aprire la pagina iniziale www.***.com, quindi cercare i collegamenti alle informazioni desiderate. 
Scegliere il pulsante  Aggiorna o riprovare in un secondo momento.

Fare clic sul pulsante  Cerca per ricercare informazioni su Internet. 
È anche possibile visualizzare un elenco di siti correlati. 




HTTP 500 - Errore interno del server 
Internet Explorer

[Roby_72]

Menu Strumenti --> Opzioni Internet --> Avazante di Internet Explorer e disabilita la voce "Mostra messaggi di errore HTTP brevi".
Fai ripartire la pagina e ...

Roby

[mrpj]

Questa proprio non la sapevo, ecco il risultato:

Microsoft VBScript runtime error '800a01f5' 

Illegal assignment: 'Date' 

/GSTconnection/add_record10.asp, line 9

[mrpj]

Ok ... ho sostituito il valore Date con Data ... ecco quello che da:

SELECT * FROM SpAttive values ('','','','','','','','')

[Roby_72]

ehemmmm ma tu devi inserire?
Allora devi fare una insert into

Non devi scrivere select ma

INSERT INTO (campo1, campo2, campon,.. ) VALUES (....)

Roby

[mrpj]

Scusa ... ma come faccio a dirgli in quale tabella inserire del DB?

[Roby_72]

INSERT INTO nometabella (campo1, campo2, campo n,.. ) VALUES (....)

Roby

[mrpj]

Ho scritto questo .... ma temo non gli piaccia

Insert Into SpAttive (TpRec,Data,Km,Descrizione,Fornitore,ImpMa,ImpAl,ImpMi)
values (TpRec,Data,Km,Descrizione,Fornitore,pagatodamauro,pagatodaale,
pagatodamirko)

ed ecco l'errore:

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/GSTconnection/add_record10.asp, line 52 

Insert Into SpAttive (TpRec,Data,Km,Descrizione,Fornitore,ImpMa,ImpAl,ImpMi) values 
(TpRec,Data,Km,Descrizione,Fornitore,pagatodamauro,pagatodaale,
pagatodamirko)
------------^

Mir

PS: i caporiga non ci sono nel codice ... li ho aggiunti solo per non sforare nel video del forum.