StrSQL = StrSQL & " FROM SKandidatstatus RIGHT JOIN ((SHoldIdeksternt RIGHT JOIN (sholdideksternt RIGHT JOIN (skandidater LEFT JOIN Sbrugerdata ON [skandidater].kandidatid = [sbrugerdata].kandidatid)" StrSQL = StrSQL & " ON [sholdideksternt].eksternid = [skandidater].eksternid) LEFT JOIN skandidatinterview ON [skandidater].kandidatid = [skandidatinterview].kandidatid) ON [skandidatstatus].statusid = [skandidater].status"
StrSQL = StrSQL & " GROUP BY [Skandidater].KandidatId, [Skandidater].Navn, [skandidater].adresse, [skandidater].adresse2, [skandidater].Pby, [Skandidater].Cpr, [Skandidater].ØkoId, [Skandidater].Målgruppe, [SHoldIdeksternt].Beskrivelse, [sbrugerdata].brugernavn, [sbrugerdata].password, " StrSQL = StrSQL & " [Skandidater].Idriftfra, [Skandidater].Dagpengestart, [Skandidater].Ledigheduger, [Skandidater].Konsulent, [skandidater].afdeling, Format([næstemødedato],'dd/mm/yyyy')," StrSQL = StrSQL & " [skandidatstatus]!beskrivelse, [skandidater].Status, [skandidater].internid, IIf(IsNull([20Tblanket]),'Nej',IIf(([20Tblanket]=False),'Nej','Ja'))" StrSQL = StrSQL & " HAVING ((NOT ([skandidater].Kandidatid) Is Null)) AND ([skandidater].konsulent>='" & request.form("frakonsulent") & "' AND [skandidater].konsulent<='" & Request.form("tilkonsulent") & "')" StrSQL = StrSQL & " AND ([skandidater].afdeling>='" & Request.form("fraafdeling") & "' AND [skandidater].afdeling<='" & request.form("tilafdeling") & "')" StrSQL = StrSQL & " AND ([skandidater].status>=" & fstatus & " AND [skandidater].status<=" & tstatus & ")" StrSQL = StrSQL & " AND ([skandidater].internid>=" & fihold & " AND [skandidater].internid<=" & tihold & ")"
StrSQL = StrSQL & " ORDER BY [skandidatstatus]!beskrivelse"
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.
Tak for indsatsen Netro! Hér er løsningen, uden at jeg kan fortælle præcis, hvad jeg gjorde - jo jeg startede forfra - og lavede denne gang SQL sætningen i access indbyggede querybuilder først!
Set rs2 = Server.CreateObject("ADODB.Recordset") Set FSO = Createobject("scripting.filesystemobject") Set act = Fso.CreateTextfile(server.mappath(Fname),true)
StrSQL = StrSQL & " FROM [SKandidatstatus] RIGHT JOIN ((([SHoldIdeksternt] LEFT JOIN [Skandidater] ON [SHoldIdeksternt].EksternId = [Skandidater].EksternId)" StrSQL = StrSQL & " LEFT JOIN [Sbrugerdata] ON [skandidater].kandidatid = [sbrugerdata].kandidatid)" StrSQL = StrSQL & " LEFT JOIN [SKandidatinterview] ON [Skandidater].KandidatId = [SKandidatinterview].KandidatId) ON [SKandidatstatus].StatusId = [Skandidater].Status"
StrSQL = StrSQL & " GROUP BY [Skandidater].KandidatId, [Skandidater].Navn, [skandidater].adresse, [skandidater].adresse2, [skandidater].Pby, [Skandidater].Cpr, [Skandidater].ØkoId, [Skandidater].Målgruppe, [SHoldIdeksternt].Beskrivelse," StrSQL = StrSQL & " [Skandidater].Idriftfra, [Skandidater].Dagpengestart, [Skandidater].Ledigheduger, [Skandidater].Konsulent, [skandidater].afdeling, Format([næstemødedato],'dd/mm/yyyy'), [sbrugerdata].bruger, [sbrugerdata].password," StrSQL = StrSQL & " [skandidatstatus]!beskrivelse, [skandidater].Status, [skandidater].internid, IIf(IsNull([20Tblanket]),'Nej',IIf(([20Tblanket]=False),'Nej','Ja'))" StrSQL = StrSQL & " HAVING ((NOT ([skandidater].Kandidatid) Is Null)) AND ([skandidater].konsulent>='" & request.form("frakonsulent") & "' AND [skandidater].konsulent<='" & Request.form("tilkonsulent") & "')" StrSQL = StrSQL & " AND ([skandidater].afdeling>='" & Request.form("fraafdeling") & "' AND [skandidater].afdeling<='" & request.form("tilafdeling") & "')" StrSQL = StrSQL & " AND ([skandidater].status>=" & fstatus & " AND [skandidater].status<=" & tstatus & ")" StrSQL = StrSQL & " AND ([skandidater].internid>=" & fihold & " AND [skandidater].internid<=" & tihold & ")"
StrSQL = StrSQL & " ORDER BY [skandidatstatus]!beskrivelse"
Det var godt. En smule svært at overskue det enorme statement.
Synes godt om
Ny brugerNybegynder
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.