Uppdataring

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?

Jag vill inte ha inte de i en tabell ute in i databasen.

------------------
ja©ob

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]

Hur fungerar din databas?

"värdet" är fältet från formuläret.

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&ouml;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>

:l om du hade bara skrivit rem så hade jag fattat sorry

------------------
ja©ob

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>