Søg
Avatar billede fastpoint Nybegynder
31. marts 2005 - 00:57 Der er 13 kommentarer og
1 løsning

divers optælling. Ikke avanceret

Jeg har 2 former for optælling jeg gerne vil foretage mig, men hvordan gøres det? min sql sætning er denne

det her er hvad jeg har lavet indtil videre. men det duer selvfølgelig ikke. Hvordan skal det laves?

                <%
'Skaber forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database.mdb")


strSQL = "SELECT * FROM kunde WHERE status = 'Mangler'"
Set Rs = Conn.Execute(Sql)


%>
                          <%= Rs("Total")%>
                          <%  rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing%>
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:08 #1
<%
'Skaber forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database.mdb")

strSQL = "SELECT COUNT(Mangler) AS AntalMangler FROM kunde
Set RS = Conn.Execute(strSQL)
%>

<%=RS("AntalMangler")%>
Avatar billede fastpoint Nybegynder
31. marts 2005 - 01:15 #2
får denne fejl

Variable is undefined: 'Conn'

hvad er fejlen? for den kommer også med mine egne forsøg
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:26 #3
Jeg kan forstå det i dit tilfælde:

strSQL = "SELECT * FROM kunde WHERE status = 'Mangler'"
Set Rs = Conn.Execute(Sql)

burde være

strSQL = "SELECT * FROM kunde WHERE status = 'Mangler'"
Set Rs = Conn.Execute(strSQL)


Prøv dette istedet:

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

strSQL = "SELECT COUNT(Mangler) AS AntalMangler FROM kunde
Set RS = Conn.Execute(strSQL)
%>

<%=RS("AntalMangler")%>
Avatar billede fastpoint Nybegynder
31. marts 2005 - 01:31 #4
Den kode virker ikke fordi det er i tabellen "status" jeg vil tælle alle "Mangler" op.
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:32 #5
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

strSQL = "SELECT COUNT(Mangler) AS AntalMangler FROM kunde
Set RS = Conn.Execute(strSQL)
%>

<%=RS("AntalMangler")%>

<%
Conn.Close
Set Conn = Nothing
%>
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:33 #6
Er status ikke et recordset?
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:34 #7
Må smutte, kigger ind i morgen
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:37 #8
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

strSQL = "SELECT COUNT(Mangler) AS AntalMangler FROM kunde WHERE status = 'Mangler'"
Set RS = Conn.Execute(strSQL)
%>

<%=RS("AntalMangler")%>

<%
Conn.Close
Set Conn = Nothing
%>
Avatar billede fastpoint Nybegynder
31. marts 2005 - 01:38 #9
nej status er bare en kolonne i min database. Jeg prøver bare at tælle de forskellige status op der er.

Denne kode udskriver kun 1 men der er mange flere

                <%
'Skaber forbindelse til databasen
dim tal, strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database.mdb")


strSQL = "SELECT * FROM kunde WHERE status = 'Mangler'"
Set Rs = Conn.Execute(Sql)
Do While Not rs.EOF
tal = tal + 1
rs.MoveNext
Loop


%>
                          <%= Tal %>
                          <%  rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing%>
Avatar billede steen_hansen Forsker
31. marts 2005 - 01:39 #10
Prøv lige 31/03-2005 01:37:03

Må smutte, snakkes
Avatar billede tdh1309 Juniormester
31. marts 2005 - 08:37 #11
Jeg er ikke sikker på det virker med Acces, men prøv noget alá:
strSQL = "SELECT COUNT(*) FROM kunde WHERE status = 'Mangler'"

Den skulle gerne returne antal af rækker hvor status er 'Mangler'
Jeg har desværre ikke haft mulighed for at teste den, men prøv ad
Avatar billede submann Nybegynder
08. april 2005 - 01:48 #12
Er det ikke her den er gal ?
<%
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>

Skal det ikke være dette:

<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
Avatar billede fastpoint Nybegynder
22. april 2005 - 11:03 #13
steen_hansen lig svar. dit virkede fint.
Avatar billede steen_hansen Forsker
23. april 2005 - 09:29 #14
Takker :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »