20 svar · 525 visningar · startad av pellsäter
Jag får inte i smaker och storlekar i min DB
Jag har i sidan innan ett textfält där man skriver in olika smakid och storleksid för en produkt och detta ska in i den tabell som heter rblRel.....
<%
tblsmak = Split(Request.form("tblsmak"),",")
For x = 0 To UBound(tblsmak)
Response.Write tblsmak(x)
Next
tblstorlek = Split(Request.form("tblstorlek"),",")
For x1 = 0 To UBound(tblstorlek)
Response.Write tblstorlek(x1)
Next
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=xxx"
sql2 = "Insert Into tblrel (smakid,storleksid,prodid) Values (" & Trim(tblsmak(x)) & "," & Trim(tblStorlek(x1)) & "," & prodid & ")"
conn.Execute(sql2)
conn.close
%>
Detta felet får jag
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'x'
/admin/admin_lagg_till_ok.asp, line 63
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=xxx"
for x = 0 to ubound(tblsmak)
sql2 = "Insert Into tblrel (smakid,storleksid,prodid) Values (" & Trim(tblsmak(x)) & "," & Trim(tblStorlek(x)) & "," & prodid & ")"
conn.Execute(sql2)
next
conn.close
Förutsatt att det är lika många element i båda arrayerna.
Hur kan du då ha dom på samma post?
Om det är olika antal så skulle jag ha två olika tabeller.
va?
Jag har en tabell med storlekar det är väl 6st oliak sedan en med smaker det är 12st.... men sedan har jag en tabell som bara innehåller relationer och det är i den jag vill ha in detta
så här ser DB ut
PRODUKTER
prodID
vara
smak (JA)
TBLSMAKER
smakID
smak
TBLSTORLEKAR
storleksID
storlek
TBLREL
prodID
smakID
storleksID
Okej, så kommer varje produkt att ha ett smakID och ett storleksID?
inte nödvändigtvis... men jag gjorde om det nu så jag har en relataionstabell för smakerna och en för storlekarna
s
Lyckades få in både smaker och storlekar men när jag vill kunna ta bort en smak från en produkt så funkar det inte med denna update. nån som ser varför
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=xxx"
sql1 = "Select prodid from produkter where item = '"& item &"' and prodnummer = "& prodnummer
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql1, conn
response.write prodid
%> <%
pprodid = rs("prodid")
%> <%
rs.close
conn.close%>
<%
tblsmak = Split(Request.form("tblsmak"),",")
response.write tblsmak
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "xxx"
for x = 0 to ubound(tblsmak)
sql2 = "Update tblrel (smakid) Values (" & Trim(tblsmak(x)) & ") where prodid = "&pprodid
conn.Execute(sql2)
next
conn.close
%>
ändarade SQL-satsen till
sql2 = "Update tblrel Set smakid = " & Trim(tblsmak(x)) & " where prodid = "&pprodid
men det ändras inte ändå
ingen som nån idé varför?
Vad får du ut för svar om du bara skriver ut, response.write UBound(tblsmak)
Kanske ska du kolla om tblsmak är en array först innan du loopar IF isArray(tblsmak) THEN
For....
jag får -1
Då är tblsmak ingen array...därför måste du köra IF isArray(tblsmak) THEN
I annat fall får du leva med felmeddelandet :)
La in denna kod men det uppdaterar inte db ändå??
<%
tblsmak = Split(Request.form("tblsmak"),",")
response.write ubound(tblsmak)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=xxxx"
IF isArray(tblsmak) THEN
for x = 0 to ubound(tblsmak)
sql2 = "Update tblrel Set smakid = " & Trim(tblsmak(x)) & " where prodid = '"&pprodid&"'"
conn.Execute(sql2)
next
conn.close
end if
%>
Vart för du prodid ifrån och är det verkligen ett textfält?
PProdid får jag från en annan koppling till produktdb.... nej det är ignet texxtfält men jag provade att skriva
where prodid = "&pprodid
och det gör ingen skillnad men det ska väl stå som det ovan här väl?
och skriver jag ut pprodid så stämmer det
Vad får du för värde om du skriver
response.write Request.form("tblsmak")
samt
response.write prodid
jag får ingenting... och jag fattar inte varför.. i sidan innan har jag detta
<input type="text" name="tblSmak" size="3" class="thisform">
hittade felet.... jag hade inte lagt över rätt version av sidan.. men nu blir problemet att om jag har haft 5 olika smaker tidigare och jag bara ska ha en smak så ersätter den alla de tidigare 5 med den nya smaken 5 ggr
tex.
tidigare har produkten haft jordgubb och choklad som smak
Nu ska den bara ha jordgubb då läggs jordgubb i 2 ggr
eller
tidigare har produkten haft jordgubb som smak och nu ska den ha choklad, jorgubb och vanilj.. då läggs bara vanilj in
RelID ProdID SmakID
106 199 99
107 199 99
108 199 99
109 199 99
så här blir deti tblRel om jag lägger in smakid 99 och produkten tidare haft 4 smaker... lägger jag in 99 vill jag bara ha med den en gång ju....
och lägger jag in smakid 1,2,3 så vill jag bara ha dessa tre med i DB
Detta beror troligtvis på Where-satsen där du bara använt prodid.
Ett sätt du skulle kunna lösa detta på är att du först kör
IF isArray(tblsmak) THEN
sql2 = "Delete tblrel Where prodid = " & prodid
conn.Execute(sql2)
for x = 0 to ubound(tblsmak)
sql2 = "INSERT INTO tblrel (smakid, prodid) Values (" & Trim(tblsmak(x)) & ", prodid)
conn.Execute(sql2)
next
End if