om jag vill få en färdig match tabell och om jag har dessa fält i databasen (access)
då skulle man väll kunna få en färdig tabell och sortera lagen efter poäng osv. eller skall det vara nått mer för att kunna fixa det? tanken var först att skippa skriva in poängen, det skulle ju kunna lösa sid då man räknar mål flest mål ger 3 poäng, men då det är sudden i en machs så är det ju inte så ju. nu vet jag bara inte hur jag skall gå till väga för att börja vill ju få att det räknar ihop poängen och listar alla efter poäng och målskilnad, men hur skall jag få till det då är frågan, vill hjärna få hjälp med det.

tabell "klaramatcher" med fältennamnen
id
hemmalag
bortalag
malhemma
malborta
pointhemmalag
pointbortalag

/Tommy

För oss som inte vet hur man poänger matchresultat kan du väl förklara det. Hur identiferar man om det är suddendeath?

okej så här räknar man "hockey"
vinst ger 3 poäng
förlust ger ju 0 poäng
är det lika typ 4 -4 då det gått 3 perioder så är det förlängning som gäller, första målet vinner, de laget som då vinner får 2 poäng och laget som förlorar får 1 poäng,
jag hitta en bra grej som löste detta som var skrivet i java tror jag.
det funkade som så att allt fanns i en textfil och så så skrev man i textfilen
typ:
Hammarby - AIK 5-4
då får ju Hammarby 3 poäng
men om det blev en match som gick till förlängning så skrev man i textfilen

Hammarby - AIK 5-4* så lbetyde * att 5 ger 2 poäng och 4 1 poäng
Hammarby vann förlängningen med 1-0 alltså

det jag skulle vilja få att funka är att man bara skriver in matchresultat (mål 5-4 typ) för en match typ Hammarby - AIK och att man kanske har en checkbox som betyder att den då skall räkna 2 för vinst och 1 för förlust av sig själv, men det är ju lättare att ha en sida där man skriver in målen och poängen ju så slipper man lösa det problemet, det kanske är svårt att fixa det, kanske en utmaning oxå om någon vill försöka?

hoppas att jag förklarade så att alla som inte vet hur det funkar fattar det nu :-)
vinst = 3
förlust =0
match som går till förlängning
vinst = 2
förlust =1

//Tommy

Jag ger dig ingen färdig kod, men något sånt här kanske fungerar.

<code>
Dim Lag1Poang, Lag2Poang
If checkboxen är ikryssad Then
If MålFörLag1 > MålFörLag2 Then
Lag1Poang = 2
Lag2Poang = 1
Else
Lag1Poang = 1
Lag2Poang = 2
End If
Else
If MålFörLag1 > MålFörLag2 Then
Lag1Poang = 3
Lag2Poang = 0
Else
Lag1Poang = 0
Lag2Poang = 3
End If
End If
</code>

bifogar den kod som jag nu har för att föra in målen i databasen
denna hämtar alltså en match från en annan sida som redan finns i en tabell den lägger sedan in den med målen för lagen

<code> <!-- #include file="adovbs.inc" -->
<%

id = Request.QueryString("id")
databas = Server.MapPath("datab/match.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM matcher WHERE id LIKE '"& id &"'"

rs.Open SQL, Connect, adOpenStatic, adLockOptimistic

%>
<link href="css/alltable.css" rel="stylesheet" type="text/css">
<div align="center"><span class="head">Slutresultat<br>
<% =rs("hemmalag") %>
<font color="#990000">vs</font>
<% =rs("bortalag") %>
</span> </div>
<p>

<%

%>
</p>
<form name="form1" method="post" action="add.asp">
<table width="350" border="0" align="center" cellpadding="1" cellspacing="1">
<tr align="left" valign="top">
<td colspan="2"><div align="center"><font color="#990000">Datum</font><br>
<% =rs("datum") %>
<input name="datum1" type="hidden" value="<% =rs("datum") %>">
</div></td>
</tr>
<tr align="left" valign="top">
<td width="150"><div align="center"></div></td>
<td width="150"><div align="center"></div></td>
</tr>
<tr align="left" valign="top">
<td width="150"><div align="center"><font color="#990000">Gjorda m&aring;l
f&ouml;r:</font></div></td>
<td width="150"><div align="center"><font color="#990000">Gjorda m&aring;l
f&ouml;r:</font></div></td>
</tr>
<tr align="left" valign="top">
<td width="150"> <div align="center">
<% =rs("hemmalag") %>
<input name="hemmalag1" type="hidden" value="<% =rs("hemmalag") %>">
</div></td>
<td width="150"> <div align="center">
<% =rs("bortalag") %>
<input name="bortalag1" type="hidden" value="<% =rs("bortalag") %>">
</div></td>
</tr>
<tr align="left" valign="top">
<td width="150"><div align="center">
<input name="malhemma1" type="text" class="input" id="malhemma" size="5">
</div></td>
<td width="150"><div align="center">
<input name="malborta1" type="text" class="input" id="malborta" size="5">
</div></td>
</tr>
<tr align="left" valign="top">
<td width="150"><div align="center"></div></td>
<td width="150"><div align="center"> </div></td>
</tr>
<tr align="center" valign="top">
<td height="30" colspan="2"><div align="center">
<input name="Submit" type="submit" class="input" value="Submit">
</div></td>
</tr>
</table>
</form>
<%
' Stänger databasen
rs.Update
rs.Close
Connect.Close

%> </code>

Spara följande fråga:
qrySumResult

SELECT hemmalag AS Lag, SUM(pointhemmalag) AS Points, SUM(malhemma) AS mal
FROM klaramatcher
GROUP BY hemmalag
UNION ALL
SELECT bortalag AS Lag, SUM(pointbortalag) AS Points, SUM(malborta) AS mal
FROM klaramatcher
GROUP BY bortalag


Sedan kan du sammanställa med en Join:

SELECT Lag.*, qrySumResult.*
FROM Lag LEFT JOIN qrySumResult ON Lag.ID = qrySumResult.Lag

skall jag skapa en ny fil med detta eller menar du att det skall in i min kod som jag har bifogade här tidigare?

Öppna databasen ocf spara frågan som en fråga. ;o)

nää det där hajar jag inte :-(
kan du inte visa ett exempel på det, det står ju qrySumResult vart skall jag få in det då??

du förstår jag tar mig alltid vatten över huvet typ, ger mig in på saker och ting innan jag vet om jag klarar av det osv. *s*

Har du använt Microsoft Access som ingår i Office Proffesional paketet?
I databas fönstrt finns flikar för Tabeller, fråger, formulär, raporter, macron och moduler.
Under fliken fråger väljer du att skapa en ny.
Sparar frågan och stänger dtabasen i access.

okej, det där viste jag inget om alls, men jag tror jag har fixat det, för nu har jag en fråga där som heter

qrySumResult
klickar jag på den så finns det 3 fält

Lag
Points
mal
kan välja visa SQL
och då ser jag
<code> SELECT hemmalag AS Lag, SUM(pointhemmalag) AS Points, SUM(malhemma) AS mal
FROM klaramatcher
GROUP BY hemmalag
UNION ALL SELECT bortalag AS Lag, SUM(pointbortalag) AS Points, SUM(malborta) AS mal
FROM klaramatcher
GROUP BY bortalag; </code>

vist är det rätt ??

Sedan kör jag alltså
<code> SELECT Lag.*, qrySumResult.*
FROM Lag LEFT JOIN qrySumResult ON Lag.ID = qrySumResult.Lag
</code>
i min asp fil.

då testar jag :-)

nu ser det ut så här, är det rätt?

<code> <%
databas = Server.MapPath("datab/match.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas
Set rs = Server.CreateObject("ADODB.Recordset")
'SQL = "SELECT Lag.*, qrySumResult.* FROM Lag LEFT JOIN qrySumResult ON Lag.ID = qrySumResult.Lag"
SQL = "SELECT Lag.*, qrySumResult.* FROM Lag LEFT JOIN qrySumResult ON Lag.ID = qrySumResult.Lag "
rs.Open SQL, Connect, adOpenStatic, adLockOptimistic
%>
<%
rs.Update
rs.Close
Connect.Close

%>
</code>

på denna kod får jag detta fel

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][Drivrutin för ODBC Microsoft Access] Microsoft Jet kan inte hitta tabellen eller frågan 'Lag'. Kontrollera att den existerar och att namnet är rätt stavat


skall jag köra typ nått som detta sedan?

<code> <% =rs("hemmalag") %>
<% =rs("pointhemmalag") %>
<% =rs("malhemma") %>
<% =rs("bortalag") %>
<% =rs("pointbortalag") %>
<% =rs("malborta") %>
</code>

Öhhh du. Jag vet inte hur din datastruktur ser ut. Antog att du har en lagtabell med lagens information i. Har du det?

Så här ser det ut i tabellen och jag har dessa fält namn
tabellen heter klaramatcher, det där sista som jag fixa "qrySumResult" det funkar skit bra, men det sista får jag inte att funka, har jag missat nått??

id
match_datum
hemmalag
bortalag
malhemma
malborta
pointhemmalag
pointbortalag

frågan qrySumResult ser ut så här nu.
Lag
Points
mal
så här har jag det nu:

<code> <%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("datab/match.mdb")
%>
<p>
<font size="2"><%= FormatDateTime(Date, 1) %>&nbsp;&nbsp;<%= FormatDateTime(Now, 3)%></font><br>
</p>

<p>
<%
SQL = "SELECT Lag.*, qrySumResult.* FROM Lag LEFT JOIN qrySumResult ON Lag.ID = qrySumResult.Lag "
Set RecSet = Con.Execute(SQL)
Do Until RecSet.EOF
%>


<% RecSet.MoveNext
loop
%>
</code>

får detta fel så

Microsoft JET Database Engine (0x80040E37)
Microsoft Jet kan inte hitta tabellen eller frågan 'Lag'. Kontrollera att den existerar och att namnet är rätt stavat
/tab/hockey/matcher.asp, line 12



tar jag bort detta så får jag intet fel

<code> Set RecSet = Con.Execute(SQL)
Do Until RecSet.EOF
%>


<% RecSet.MoveNext
loop </code>

här är databasen, tror inte att det är nått fel i den.

test.profilmakarna.com/Copy_ match.zip

Har du MSN så kan du väll skicka alla filer så jag kan få se va du har för koder så att jag kan hjälpa dig förhoppningsvis. Har en lösning på känn men vet inte om den kommer att funka. Du kan även lägga ut en adress där man kan ladda ner filerna och senda adressen till min mail här på pellesoft.