Uppdataring

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.

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.

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

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.

Nu börjar jag fatta , 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

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.

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,

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>

'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?

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

inget att be om ursäkt för, för bövelen!