17. januar 2002 - 00:43
Der er
4 kommentarer og 1 løsning
skrive i msSQL db... hvad gør jeg forkert ??..
jeg for en fejl i linje 14 som er write.addnew.. hvad er det jeg gør forkert?... her er koden <% Set objConn = Server.CreateObject(\"ADODB.Connection\") objConn.Open \"Driver={SQL Server}; Server=Koldy.dyndns.dk; Database=movie;\"\', 1, 3 %> <% if request.querystring(\"action\") = \"write\" then SQLw = \"Select * From movies Order by id\" set write = objConn.execute(SQLw) %> <% write.addnew write(\"title\") = request.form(\"title\") write(\"genre\") = request.form(\"genre\") write(\"Codex\") = request.form(\"Codex\") write(\"file_name\") = request.form(\"file_name\") write(\"file_size\") = request.form(\"file_size\") write(\"cd\") = request.form(\"cd\") write(\"quality\") = request.form(\"quality\") write(\"comments\") = request.form(\"comments\") write.update response.redirect \"add_movie.asp\" else %> her kommer formen, men den virker ok nok ;)
Annonceindlæg fra Cognizant
17. januar 2002 - 10:10
#1
prøv det her istedet SQLw = \"Select * From movies Order by id\" set write = Server.CreateObject(\"ADODB.RecordSet\") write.open SQLw conn, 3, 1 <% write.addnew write(\"title\") = request.form(\"title\") write(\"genre\") = request.form(\"genre\") write(\"Codex\") = request.form(\"Codex\") write(\"file_name\") = request.form(\"file_name\") write(\"file_size\") = request.form(\"file_size\") write(\"cd\") = request.form(\"cd\") write(\"quality\") = request.form(\"quality\") write(\"comments\") = request.form(\"comments\") write.update response.redirect \"add_movie.asp\" else %>
17. januar 2002 - 10:11
#2
write.open SQLw conn, 3, 1 skal selvfølgelig være write.open SQLw objConn, 3, 1
17. januar 2002 - 12:00
#3
nej det virker ikke :( .-\'-.Fejl.-\'-. Error Type: Microsoft VBScript compilation (0x800A0401) Expected end of statement /ny/secret/add_movie.asp, line 14, column 16 .-\'-.Kode.-\'-. <% Set objConn = Server.CreateObject(\"ADODB.Connection\") objConn.Open \"Driver={SQL Server}; Server=Koldy.dyndns.dk; Database=movie;\"\', 1, 3 %> <% if request.querystring(\"action\") = \"write\" then SQLw = \"Select * From movies Order by id\" set write = Server.CreateObject(\"ADODB.RecordSet\") write.open SQLw objConn, 3, 1 write.addnew write(\"title\") = request.form(\"title\") write(\"genre\") = request.form(\"genre\") write(\"Codex\") = request.form(\"Codex\") write(\"file_name\") = request.form(\"file_name\") write(\"file_size\") = request.form(\"file_size\") write(\"cd\") = request.form(\"cd\") write(\"quality\") = request.form(\"quality\") write(\"comments\") = request.form(\"comments\") write.update response.redirect \"add_movie.asp\" else %>
17. januar 2002 - 12:31
#4
Jeg har fået en løsning på problemet nu... men ellers mange tak :)
17. januar 2002 - 13:12
#5
<% Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"Driver={SQL Server}; Server=Koldy.dyndns.dk; Database=movie;\" If Request.QueryString(\"action\") = \"write\" Then Conn.Execute(\"INSERT INTO movies (title, genre, codex, file_name, cd, quality, comments) values (\'\" & Request.Form(\"title\") & \"\', \'\" & Request.Form(\"genre\") & \"\', \'\" & Request.Form(\"codex\") & \"\', \'\" & Request.Form(\"file_name\") & \"\', \'\" & Request.Form(\"file_size\") & \"\', \'\" & Request.Form(\"cd\") & \"\', \'\" & Request.Form(\"quality\") & \"\', \'\" & Request.Form(\"comments\") & \"\')\") Response.Redirect(\"add_movie.asp\") Else %>
Kurser inden for grundlæggende programmering