Dynamisk ændring af Id hvis det har været aktivt !

Hej Neller

Det kommer an på hvordan du har opbygget din database, men du skal gøre noget i stil med følgende:

Find forhandleren med færest kunder under sig, og tilknyt næste kunde til denne forhandler. Er der mere end én forhandler med f.eks. 0 kunder tilknyttet, vælger du bare den første(TOP 1).

Kim A

Hej Kim A

Jeg har en forhandler tabel, hvor jeg fanger forhandler id´et, når man som kunde bestiller en vare bliver forhandler id´et indskrevet i kunde tabellen !

Kan det gøres på en nem og smart måde ?

Mange frustrerede hilsner Neller

Har stadig ikke fårt klaret problemet.... Er der nogen der kan hjælpe ?

Der er lidt indviklet at forklare her, men lad os prøve. Hvilket sprog bruger du, ASP?

Hej Drengen, ja det gør jeg... skal du se det jeg har kodet indtil videre ?

SELECT TOP 1 e1.ForhandlerID,
  Counter = (SELECT COUNT(*) FROM enroll e2 WHERE e1.ForhandlerID = e2.ForhandlerID)
FROM enroll e1
ORDER BY Counter ASC

Dermed bør forhandlerID'et med færest kunder tilknyttet være resultaet. Prøv om det virker. Måske får du problemer hvis du benytter en Access database, men det virker f.eks. på en MS SQL database.


Kim A

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03FD)
'Case' var ventet

Ja jeg arbejder i access

Må jeg se din kode?

<%
if request.servervariables("CONTENT_LENGTH") <> 0 then 'spørger om der bliver data tilsendt
tabelnavn = "enroll"
id = Request.Form("id")

Set QueryIndslag = (Connect.Execute("Select * from "& tabelnavn &""))

'laver recordsættet til db
set opdatering = server.createobject("ADODB.recordset")
query ="select * from "& tabelnavn &""
opdatering.open query, connect, adopenstatic, adlockoptimistic

'opretter ny linie i db og indskriver tilsendt data

opdatering.addnew
opdatering("dato") = time
opdatering("navn") = trim(request.form("navn"))
opdatering("nick") = trim(request.form("nick"))
opdatering("email") = trim(request.form("email"))
opdatering("land") = trim(request.form("land"))
opdatering("order") = trim(request.form("order"))
opdatering("forhandler") = trim(request.form("forhandler"))
opdatering("antalKd") = trim(request.form("antalKd"))
opdatering.update
opdatering.close
%>

<%

else 'hvis der ikke bliver tilsendt data

id = Request.QueryString("id")

%>
    <table width="300" cellpadding="2" cellspacing="0" border="0" align="center">
<form action="default.asp?id1=4" method="post">
<%
Set QueryNavn = (Connect.Execute("Select "& varsql &" from formular"))
%>
        <tr>
            <td width="100">Standard <input name="order" type="radio" value="standard"></td>
            <td width="100">Advantage <input name="order" type="radio" value="advantage"></td>
            <td width="100">Prestige <input name="order" type="radio" value="prestige"></td>
        </tr>
        <tr>
            <td><%=QueryNavn("navn"& sprog2 &"")%> :</td>
            <td align="right" colspan="2"><input name="navn" type="text" size="40" class="mem"></td>
        </tr>
        <tr>
            <td><%=QueryNavn("nick"& sprog2 &"")%> :</td>
            <td align="right" colspan="2"><input name="nick" type="text" size="40" class="mem"></td>
        </tr>
        <tr>
            <td><%=QueryNavn("email"& sprog2 &"")%> :</td>
            <td align="right" colspan="2"><input name="email" type="text" size="40" class="mem"></td>
        </tr>
        <tr>
            <td><%=QueryNavn("land"& sprog2 &"")%> :</td>
            <td align="right" colspan="2"><input name="land" type="text" size="40" class="mem"></td>
        </tr>

<%
Set QueryEnr = (Connect.Execute("Select * from enroll"))

Set QueryForhandler = (Connect.Execute("Select Top 1 * from forhandler"))
%>
        <tr>
            <td>Id <%=QueryForhandler("forId")%></td>
            <td align="right" colspan="2"><input name="forhandler" type="hidden" value="<%=QueryForhandler("id")%>"></td>
        </tr>
        <tr>
            <td>&nbsp;</td>
            <td align="right" colspan="2"><input type="reset" value="Reset" class="knap">&nbsp;<input type="submit" value="Send" class="knap"></td>
        </tr>
</form>
    </table>
<% end if%>

Jeg vil gerne se koden når du indsætter sql-strengen jeg indsatte før, du behøver ikke vise alt det andet igen.

Jamen problemet er at jeg nok ikke lige umiddelbart ved hvor jeg skal sætte den ind... har ikke set en lignende kode før, men jeg ville sætte den ind efter:

Set QueryForhandler = (Connect.Execute("Select Top 1 * from forhandler"))

Du erstatter

Set QueryForhandler = (Connect.Execute("Select Top 1 * from forhandler"))

med

Set QueryForhandler = (Connect.Execute("SELECT TOP 1 e1.id, " & _
"Counter = (SELECT COUNT(*) FROM enroll e2 WHERE e1.id= e2.id) " & _
FROM enroll e1")
ORDER BY Counter ASC

Der mangler lidt. Det skal erstattes med:

Set QueryForhandler = (Connect.Execute("SELECT TOP 1 e1.id, " & _
"Counter = (SELECT COUNT(*) FROM enroll e2 WHERE e1.id= e2.id) " & _
FROM enroll e1 " & _
"ORDER BY Counter ASC"))

Nu ved jeg ikke hvad henholdsvis "forId" og "id" er, men lige nu hiver den kun "id" af de to ud af databasen. Tilføj "e1.forid," til sql-stregen(uden "'er) lige efter "e1.id".


Kim A

Hej Kim

Nu har jeg prøvet det men den fejler stadigvæk.... forId er egentlig bare et forhandler nr. altså ikke noget det i dette tilfælde skal sorteres på !

jeg får denne fejl :

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet ')' var ventet
/side/includes/inc_sign_on.asp, line 406, column 5

linie 406 =

FROM enroll e1 " & _

skal strengen være ubrudt, jeg mener, skal den skrives ud i eet uden linie skift ?

Neller

Strengen...

SELECT TOP 1 e1.ForhandlerID,
  Counter = (SELECT COUNT(*) FROM enroll e2 WHERE e1.ForhandlerID = e2.ForhandlerID)
FROM enroll e1
ORDER BY Counter ASC

... må gerne stå på én linie, jeg brød den bare op for overblikkets skyld.

Strengen skal puttes ind imellem de to appostroffer her:
Set QueryForhandler = (Connect.Execute(""))

Altså som følgende(ved ikke hvordan der kommer til at se ud her):

Set QueryForhandler = (Connect.Execute("SELECT TOP 1 e1.ForhandlerID, Counter = (SELECT COUNT(*) FROM enroll e2 WHERE e1.ForhandlerID = e2.ForhandlerID) FROM enroll e1 ORDER BY Counter ASC"))

Er der nogle bestemte ting jeg skal have i min tabel i databasen ?

Som jeg har gjort det her, skal du kun have "id" i "enroll" taballen.

Altså, "id" er den eneste attribut som SKAL være der, der må naturligvis gerne være andre attributter, såsom "forId".

Hvad betyder e1 ?

Jeg må sige.... jeg forstår det ikke, den fejler stadig !!!!

Set QueryForhandler = (Connect.Execute("Select Top 1 * from forhandler"))

Denne linie åbner forhandlerne !

Jeg indskriver forhandlerens id i enroll tabellen under forhandler !

Henholdsvis e1 og e2 er variabl-navne for enroll tabellen. Jeg bruger dem, fordi jeg kalder enroll tabellen to steder og derfor sikrer en adskillelse ved at give dem forskellige navne.

Du skal ikke bruge linien;
Set QueryForhandler = (Connect.Execute("Select Top 1 * from forhandler"))

Slet den og skriv istedet følgende:

Set QueryForhandler = (Connect.Execute("SELECT TOP 1 e1.ForhandlerID, Counter = (SELECT COUNT(*) FROM enroll e2 WHERE e1.ForhandlerID = e2.ForhandlerID) FROM enroll e1 ORDER BY Counter ASC"))

Den fejler stadig !!!

Fejltype:
Microsoft JET Database Engine (0x80040E10)
Der er ikke angivet nogen værdi for en eller flere krævede parametre.
/side/includes/inc_sign_on.asp, line 404

Hvad nu hvis der ikke er oprette nogle kunder under nogen af forhandlerne ?

Kan du ikke sende filen til mig, så kigger jeg på det?
kimandersen@grouptown.dk

Den er hos dig nu !

Lukker sp. der er ikke kommet nogen løsninger på problemet !

"SELECT * FROM Tabel ORDER BY Felt DESC"
KundeAntal=rs.fields("Felt")+1
ForhandlerID=rs.fields("Felt")

"UPDATE Tabel SET Felt=KundeAntal WHERE Felt=ForhandlerID"

Tja... det ville virke. Om det er den smarteste måde, ved jeg ikke.

Hej Celcius....

Jeg ved godt at det er længe siden du postede dit svar, men jag har først haft tid nu...

Jeg kan simpelthen ikke få det til at virke !

Hvad gør jeg mon forkert ????

Mvh. Neller