CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede chakazulu Nybegynder
05. januar 2010 - 16:31 Der er 13 kommentarer og
1 løsning

ACCESS DB - SUM problem? i ASP

Jeg skal "calculate"/add/plus+  10 forskellige felter fra samme DB id_nr.

Eks.:

Tablenavn = tblbestillingsdata

FIELDNAME:
id_nr = 9987
navn = TESTNAVN
efternavn = TEST BLA BLA.
adr = GADENAVN TEST
bla. bla..

akat1stk = 319
bkat1stk = 415
akat1stk = 569
bkat1stk = 456

Osv.
Nu kommer spørgsmålet!

Hvordan ligger(+plus) jeg akat1stk + bkat1stk + ckat1stk + dkat1stk. sammen og <% response.write %> total = ?

Husk det er kun fra Et ID i DB.

Mvh Ian
Avatar billede michael_stim Ekspert
05. januar 2010 - 16:38 #1
SELECT id_nr, navn..., (akat1stk + bkat1stk + ckat1stk + dkat1stk) AS total FROM tblbestillingsdata;

<% response.write rs('total')%>
Avatar billede chakazulu Nybegynder
05. januar 2010 - 16:52 #2
Hej Michael. Tak for dit svar. :)   

Kan du se hvad der driller?



Code:



<html>

        <%    Set    Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("cykeldata.mdb")




    SQL = SELECT ID_no, akat1stk, bkat1stk, ckat1stk, dkat1stk AS total FROM tblbestillingsdata;
    Set RS = Conn.Execute(SQL)
    %>

                                                                                <% response.write RS(total)%>

</html>
Avatar billede michael_stim Ekspert
05. januar 2010 - 16:57 #3
Det der går galt, er at du ikke har gjort som jeg har skrevet ;o)
Avatar billede chakazulu Nybegynder
05. januar 2010 - 17:00 #4
Fejltype:
ADODB.Recordset (0x800A0CC1)
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
tester.asp, line 27


Code:


        <%

Dim adoCon    
Dim rs       
Dim strSQL           


Set adoCon = Server.CreateObject("ADODB.Connection")


adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cykeldata.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")


strSQL = "SELECT ID_no, akat1stk, bkat1stk, ckat1stk, dkat1stk AS total FROM tblbestillingsdata;"


rs.Open strSQL, adoCon

   
   

%>

<html>
<% Response.Write rs(total)%>

</html>


Code slut:
Avatar billede michael_stim Ekspert
05. januar 2010 - 17:06 #5
strSQL = "SELECT ID_no, (akat1stk + bkat1stk + ckat1stk + dkat1stk) AS total FROM tblbestillingsdata;"
Avatar billede chakazulu Nybegynder
05. januar 2010 - 17:07 #6
Ok. nu skulle det være præcis, som du foreslog.

Får denne fejl:(

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i forespørgselsudtrykket "nyfornavn...".
/smedemarkcykler/tester.asp, line 19



                <%

Dim adoCon    
Dim rs       
Dim strSQL           


Set adoCon = Server.CreateObject("ADODB.Connection")


adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cykeldata.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")


strSQL = "SELECT ID_no, nyfornavn..., (akat1stk + bkat1stk + ckat1stk + dkat1stk) AS total FROM tblbestillingsdata;"


rs.Open strSQL, adoCon

   
   

%>

<html>
<% Response.Write rs(total)%>

</html>
Avatar billede michael_stim Ekspert
05. januar 2010 - 17:11 #7
Men du skal ikke have punktummerne med. Det er bare for at vise at du skal skrive de felter du vil have med.
Avatar billede chakazulu Nybegynder
05. januar 2010 - 17:25 #8
Fedt :)    Nu virker det næsten.

Jeg får bare desværre ingen værdi/value tilbage?

Er det mon fordi jeg ikke har kaldt et ID_nr?


        <%

Dim adoCon    
Dim rsg       
Dim strSQL           


Set adoCon = Server.CreateObject("ADODB.Connection")


adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cykeldata.mdb")

Set rsg = Server.CreateObject("ADODB.Recordset")


strSQL = "SELECT ID_no, (akat1stk + bkat1stk + ckat1stk + dkat1stk) AS total FROM tblbestillingsdata;"

 
rsg.Open strSQL, adoCon
%>

<input type="text" name="total" value="<% Response.Write rsg("total")%>" size="10">
Avatar billede chakazulu Nybegynder
05. januar 2010 - 20:12 #9
Virker næsten.... scriptet ligger alle tallene sammen, men uden at +plusse?


<%

'Dimension variables
Dim adoCon            'Holds the Database Connection Object
Dim rsGuestbook            'Holds the recordset for the record to be updated
Dim strSQL            'Holds the SQL query for the database
Dim lngRecordNo            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cykeldata.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"

'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT ID_no,(akat1stk + bkat1stk + ckat1stk + dkat1stk) AS total FROM tblbestillingsdata WHERE ID_no=" & lngRecordNo

'Open the recordset with the SQL query
rsGuestbook.Open strSQL, adoCon
%>

<% Response.Write rsGuestbook("total")%>

Virker næsten.... scriptet ligger alle tallene sammen, men uden at +plusse?
Avatar billede pi-hus Nybegynder
06. januar 2010 - 12:53 #10
Øhm... svar...  :)
Avatar billede michael_stim Ekspert
06. januar 2010 - 15:35 #11
Du accepterer bare dit eget svar, jeg samler ikke på point.
Avatar billede chakazulu Nybegynder
06. januar 2010 - 16:31 #12
TAK Michael... Stor hjælp :)
Du er the man!
Avatar billede michael_stim Ekspert
06. januar 2010 - 17:53 #13
Det var jo meningen at du SELV skulle tage pointene. pi-hus>>Opret venligst et spørgsmål med uddelte point og link til dette. I dette kan du linke til det spørgsmål du opretter. Det er da utroligt dårlig stil at bare smide et svar i et tilfældigt spørgsmål.
Avatar billede michael_stim Ekspert
06. januar 2010 - 18:00 #14
OK, så nu hvorfor pi-hus svarede på dette. Undskyld påhoppet pi-hus. chakazulu>>En anden gang er det bedre at du deler pointene i det andet spørgsmål, for at undgå eventuelle misforståelser.
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access 3 21/11/202418:03 22/11/202411:38
Tilpasset decimalvisning Af visto i Access 7 12/11/202417:21 13/11/202412:22
Udregning af antal måneder og år Af pouls i Access 9 11/11/202414:55 12/11/202411:42
Gantt Chart Wizard Af per2edb i Access 2 05/11/202417:57 06/11/202410:09
Me.Form.Painting = True/False ore Me.Painting = True/false Af per2edb i Access 3 03/11/202416:41 03/11/202418:05
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 dag 18:09 Billedoverførsel Af Laurids i iOS, iPhone & iPad
I dag 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27 renteberegning Af Pil i Excel
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Læs mere »
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Sådan får du overblik og beskytter dine cloudapplikationer
MDR: Transparent sikkerhed og overvågning i realtid
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »