09. juli 2022 - 13:48Der er
10 kommentarer og 1 løsning
Sortering af dato
Har lavet denne kode fra 2 databaser, og resultatet skal sortere efter query2 efter salgsdato. Sælger nr. 3179 har lavet 29 salg.... hvordan sorterer jeg efter salgsdato?
<% Dim DBconn Set DBconn = Server.CreateObject("ADODB.Connection") DBconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Saelger.mdb")
Dim rs, query Set rs = Server.CreateObject("ADODB.RecordSet")
query = "SELECT SalgID FROM Salg WHERE SalgID.SaelgerID=3179" rs.Open query, DBconn
count=1
Do While Not rs.EOF
Dim DBconn2 Set DBconn2 = Server.CreateObject("ADODB.Connection") DBconn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Salg.mdb")
Dim rs2, query2 Set rs2 = Server.CreateObject("ADODB.RecordSet")
query2 = "SELECT * FROM Salg WHERE Salg.SalgID =" & rs("SalgID") & " ORDER BY Salg.Salgsdato" rs2.Open query2, DBconn2
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Ellers så må det være noget med at hente id-er fra den første tabel til et array, og lave det til en streng som "[7,9,13]" og så " SalgID in [7,9,13] ORDER BY ..."
Og så kan man jo overveje om det skal være i 2 databaser?
query = "SELECT * FROM Saelger, [Server.MapPath("/log/Salg.mdb&");].Salg WHERE Saelger.SalgID=Salg.SalgID AND SalgID.SaelgerID=3763 ORDER BY Salg.Salgsdato"
kommer med fejl
Der opstod en Microsoft VBScript-kørselsfejl error '800a01c2'
Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'log'
query = "SELECT * FROM Saelger, [" & Server.MapPath("/log/Salg.mdb") & "].Salg WHERE Saelger.SalgID=Salg.SalgID AND SalgID.SaelgerID=3763 ORDER BY Salg.Salgsdato"
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.
