16 svar · 206 visningar · startad av Jacob
Varannan vecka skickas en releasplan för videofilm till mig, då vill jag ju lägga in den i min databas. Problemet är jag att jag itne vill klippa och klistra i varenda, det tar ju en evighet. Kan man bara klippa in allt i ett fomulär och sedan men hjälp av ASP dela upp det somlägga i rätt kolumn i databasen. Tex. efter varje tabb byt kloumn och efter varje enter en ny rad?.
Ex. på hur det kommer till mig
Titel Kategori Vecka Bolag
A Resonable Man tba 2 SF
Human Traffic Komedi 2 WHV
In A Savage Land Drama 2 WHV
House Komedi 2 WHV
Theory of Flight Drama 2 SF
Mortal Act Komedi 2 SF
Love and Basketball komedi 2 SF
(det är en tab mellen varje kategori)
Någon som vet hur och om det är möjligt.
------------------
ja©ob
[Redigerat av Jacob den 04 jan 2001]
Ett tips är att kopiera in texten i ett textediterings program vilket som helst. Word duger alldeles utmärkt. Sedan ersätter du helt enkelt tabbarn via "replace".
I word kan man genom ^t komma åt tabb-tecken och ^p motsvarar alla paragraf-tecken. Sedan är det bara att ersätta alla tabbar och paragrafer med tex. <br>, <td>, osv. vad du nu behöver för att föra in dem i databasen? Jag vet att de SQL killar jag känner använder ; och <crlf> för att separera text som ska in i databaser?
Det är inga problem att ta emot det. Splitta för upp varje rad
rader=split(värdet,vbcrlf)
och sedan varje kolumn
for each rad in rader
kolumner=split(rad,vbtab)
' gör din databasuppdatering här
' Titel ligger i kolumner(0), Kategori i kolumner(1) etc.
next
ööö jag är nästan me men vad sak man lägga i "rader" och "kolumner" och hur?
och
hur gör man för att lägga in det i databasen sedan, använderman recset lr?
[Redigerat av Jacob den 04 jan 2001]
Är det ingen som kan ge mig ett lite tips.
Jag har kört fast lite här, jag vet inte riktigt var jag ska börja. :l
------------------
ja©ob
[Redigerat av Jacob den 04 jan 2001]
tabellen heter:releaseplan
kolumnerna är:
ID, title, kategori, vecka & bolag
var det det du frågade efter
------------------
ja©ob
koden för att visa:
<!-- #include file="connect.inc" -->
<%Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("sortera") = "vecka" Then
Addera = "SELECT * FROM releaseplan ORDER BY vecka"
ElseIf Request.QueryString("sortera") = "titel" Then
Addera = "SELECT * FROM releaseplan ORDER BY title"
ElseIf Request.QueryString("sortera") = "bolag" Then
Addera = "SELECT * FROM releaseplan ORDER BY bolag"
ElseIf Request.QueryString("sortera") = "kategori" Then
Addera = "SELECT * FROM releaseplan ORDER BY kategori"
End If
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
<table width="90%" border="0" cellspacing="5" align="center">
<tr>
<td width="40%"><b><a href="releas.asp?sortera=titel">Titel</a></b></td>
<td width="15%"><b><a href="releas.asp?sortera=kategori">Kategori</a></b></td>
<td width="10%"><b><a href="releas.asp?sortera=vecka">Vecka</a></b></td>
<td ><b><a href="releas.asp?sortera=bolag">Bolag</a></b></td>
</tr>
</table>
<% Do Until RecSet.EOF %>
<table width="90%" border="0" cellspacing="5" align="center">
<tr>
<td width="40%"><%=RecSet("title") %></td>
<td width="15%"><%=RecSet("kategori") %></td>
<td width="10%"><%=RecSet("vecka") %></td>
<td><%=RecSet("bolag") %></td>
</tr>
</table>
<% RecSet.MoveNext
Loop
RecSet.Close
Connect.Close %>
Om det hjälper.
------------------
ja©ob
Nu börjar jag fatta :r , men det fungerar inte riktigt:
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM releaseplan"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
releas=Request.Form("releas")
rader=split(releas,vbcrlf)
for each rad in rader
kolumner=split(rad,vbtab)
RecSet.AddNew
[b]RecSet("titel") = kolumner(0)[/b]
RecSet("kategori") = kolumner(1)
RecSet("vecka") = kolumner(2)
RecSet("bolag") = kolumner(3)
RecSet.Update
next
%>
Felmedelande:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/nya/admin/addreleas.asp, line 16
Rad 16 är i fetstill
------------------
ja©ob
Det verkar som om du inte har någon kolumn som heter "titel"
Jag ändrade om lite:
<% releas=Request.Form("releas")
rader=split(releas,vbcrlf)
for each rad in rader
kolumner=split(rad,vbtab)
SQL = "INSERT INTO releaseplan "
SQL = SQL & "(title, kategori, vecka, bolag) "
SQL = SQL & "VALUES('" & kolumner(0) & "', '" & kolumner(1)& "', " & kolumner(2) & ", '" & kolumner(3) & "')"
connect.Execute(SQL)
Response.Write ssql & "<BR>"
[b]next[/b]
%>
Men nu kom et nytt fel.
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/nya/admin/addreleas.asp, line 18
Sedan har jag en annan sak jag undrar om. Innan jag lägger in den nya releaspalnen vill jag tabort den gammla hur gör jag det.
------------------
ja©ob
[Redigerat av Jacob den 04 jan 2001]
1: ändra följande:
Response.Write ssql & "<BR>"
till:
Response.Write SQL & "<BR>"
och remma executeraden. kan vi få se?
2: för att tömma releaseplanen: innan din för each-loop kör du:
connect.execute("delete from releaseplan")
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
Nu fungerar det perfekt, stort tack
(jag förstod aldrig vad du menade med remma)
<p class="rubrik">Du har nu laggt till följand Releasplan!</p>
<table width="100%" cellpadding="5">
<tr>
<td><b>Title</b></td>
<td><b>Kategori</b></td>
<td><b>Vecka</b></td>
<td><b>Bolag</b></td>
</tr>
<% releas=Request.Form("releas")
rader=split(releas,vbcrlf)
connect.execute("delete from releaseplan")
for each rad in rader
kolumner=split(rad,vbtab)
SQL = "INSERT INTO releaseplan "
SQL = SQL & "(title, kategori, vecka, bolag) "
SQL = SQL & "VALUES('" & kolumner(0) & "', '" & kolumner(1)& "', " & kolumner(2) & ", '" & kolumner(3) & "')"%>
<tr>
<td><%=kolumner(0)%></td>
<td><%=kolumner(1)%></td>
<td><%=kolumner(2)%></td>
<td><%=kolumner(3)%></td>
</tr>
<%connect.Execute(SQL)
next%>
</table>
<a href="JavaScript: history.go(-1)">Tillbaka</a>
------------------
ja©ob
'remma' är en försvenskning av remark, som betyder kommentera. alltså, när du kommenterar bort en rad med apostrofen ' för att den inte ska köras, så remmar du den.
jag har nog sagt remma sedan man programmerade basic 2.0 på vic-64, där det heter just rem.
capisce? ;)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
inget att be om ursäkt för, för bövelen! :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>