Besværlig database med et hav af tabeller

Du kan jo lave et view, der henter lige præcis de oplysninger ud fra dine ti tabeller.
Du kan så bruge dette view som en tabel fra din ASP side....

Hvis du vil have et eksempel, så skriv lidt om dine tabeller og hvad det er du skal bruge...

Jeg kan sende dig db\'en. Og et eksempel på et dokument. Var det noget?

tjaa, det kan du da godt : refskou@hotmail.com

Har ikke modtaget nok ???

Jeg har lige prøvet igen.

hmmmm. der kommer ikke noget, prøv på denne istedet : krefskou@yahoo.com !

Ja om 5 min. jeg skal lige boote. Min pc har det vist ikke for godt...

Nu skulle der være en på vej

Jeg ved ikke hvad der sker, men jeg får altså ingen ting hverken på hotmail eller yahoo, kan du måske lave en zip fil og lægge den ud på dit domæne, så jeg kan downloade den derfra ???

Jo prøv denne:

http://www.johansen-design.dk/sm.zip

AARRRGGGHHHH, så lykkedes det, men jeg har Access97, så jeg må vente med at se på den til jeg kommer hjem....Men jeg fik vist kun databasen. Kan du prøve at skrive hvad du skal have, fra de forskellige tabeller ?

Jeg har lige sendt dig et dokument eksempel til din hotmail.

OK, ser på det så snart jeg kommer hjem...

Øhm, det som du har sendt til min hotmail kan jeg ikke rigtig bruge. Jeg er nu kommet hjem, og basen er fin nok, men hvilke opslysninger fra hvilke tabeller skal du bruge.....

hmmm. sidder lige og læser lidt i Access hjælpen,
citat :
\'Bemærk! Microsoft Jet-databasemotoren understøtter ikke brugen af CREATE VIEW eller DDL-sætninger med ikke-Microsoft Jet-databasemotordatabaser.\'
citat slut.

Så er din eneste mulighed nok at lave en Udvælgelsesforspørgsel i access, som du så kan bruge, men det er i store træk også det samme. Det returnere et øjebliksbillede af data fra de tabeller som du skal bruge....Jeg kan gost lave den for dig, men det kræver som jeg skrev før at du skriver hvad og fra hvad du skal bruge.

Alternativt kan du lave en stor select sætning...Den kan jeg også godt lave til dig...!

Endnu et alternativ, er at du skifter til en prof. database så du kan bruge et view.

Jeg vil gerne have en stor select sætning. For lige nu kan jeg kun klare med 5-6 stykker...

Har du ikke modtaget et eksempel på hvordan dokument skal bygges op?

OK, men hvad skal med fra hvilke tabeller ?

Hmmm, det jeg modtog var bare en html side med et dokument af en eller anden slags...Der stod ikke noget om hvilke felter og hvilke tabeller der skulle bruges...

Jeg har lige sendt lidt asp og info til din hotmail.

Tjeps, nu skulle jeg vist være klar.
Nu er det altså således at jeg er på job og skal til møde i et par timer.
Men når jeg er ude skal jeg lave det til dig , OK ?

Tak for det ;-)

OK, lige et spørgsmål :
De tabeller du bruger i dine select sætninger i den fremsendte fil, er også dem jeg skal hente de felter som du beskrev i mailen fra ?

Altså så vidt jeg kan se er der nogle problemer, i den fil du har sendt mig.
punkt 1) En del af de sidste select sætninger er afhængige af resultatet af nogle af dine tidligere select sætninger. Dette er generelt ikke noget problem, men i dette tilfælde er det altså, fordi det ikke er hele resultatet af f.eks. rs(\"lovudgaveid\") der bruges, men du \'klipper\' i strengen, som så bagefter bruges som søge resultat. Nogle database programmer understøtter forskellige VBScript komandoer i sin SQL syntaks, men altså desvære ikke Access.
Dermed kan jeg så sige dig at jeg kan ikke lave EN stor forkromet Select sætning, men jeg kan koge dem ned så de fylder ca. 4.
punkt 2) Skal jeg lave den fil om, med de nye select sætninger så du bare kan arbejde med den ?

Kasseper

Ja tak

OVKAJ, så har jeg da endelig fået lavet noget :
Skal jeg poste det her, eller sende det til dig...?
If Svar = \"send\" Then \"Giv mig lige din mail adresse, jeg kom til at slette den jeg fik fra min hotmail....;-)\"
End if

Kasseper

Send det til klj@johansen-design.dk

Fuck,...hæng lige på et øjeblik, mens jeg tører spinaten af mine sko. Ja jeg har selvfølgelig lavet det hele, men det ligger på min arbejde, sorry. Jeg er først der inde i starten af næste uge.
Håber det er OK. ! Kasseper

Helt ok

Sendt..;-)

Hej Kasseper

Jeg testede filen med success 3 gange men så virkede den ikke mere. Skal rs ikke defineres? Jeg får fejl i linie 21

Hvad hedder fejlen ?

Det skal den selvfølgelig : Sæt denne linie ind før linie 21....
Set rs = Conn.execute(NewSQL)

Så får jeg denne her.

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

Med henvisning til Set rs = Conn.execute(NewSQL)

Kan du ikke lige poste de første 30 linier kode, så jeg er sikker på at vi har den samme at kigge på..!

Her er fra linie 8 til 40:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"smdata.mdb\") & \";UID=;PWD=;\"
Conn.Open tempConn
Dim ThisID
ThisID = Request.querystring(\"id\")
NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgørelsesdato, a.journalnummer, a.myndighed, \"
NewSQL = NewSQL & \" b.smresume, b.smbekendtgoerelse,\"

NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgørelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") a,\"
NewSQL = NewSQL & \" (Select smresume, smbekendtgoerelse from b2 where (smID = \" & ThisID & \") b,\"
NewSQL = NewSQL & \" (Select stamstikordid from tblstikord where smID = \" & ThisID & \") c,\"
NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from B3 where smID = \" & ThisID & \") d\"
Set rs = Conn.execute(NewSQL)
If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF
\'Værdier
smid = rs(\"a.smid\")
smnummer = rs(\"a.smnummer\")
smudsendelsesdato = rs(\"a.smudsendelsesdato\")
smafgoerelsesdato = rs(\"a.afgoerelsedatostart\")
journalnummer = rs(\"a.journalnummer\")
myndighed = rs(\"a.myndighed\")
mresume = rs(\"b.smresume\")
smbekendtgoerelse = rs(\"b.smbekendtgoerelse\")
stamstikordid = stamstikordid & \" or stamstikordid = \" & rs(\"c.stamstikordid\")
sagsfremstilling = rs(\"d.sagsfremstilling\")
afgoerelse = rs(\"d.afgoerelse\")
            rs.MoveNext
        Loop
    Else
    End If
rs.Close
Set rs = Nothing

Under alle omstændigheder så skal den se sådan her ud, jeg må have glemt noget i første omgang.
------------------------------------------------------------------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"smdata.mdb\") & \";UID=admin;PWD=;\"
Conn.Open tempConn
Dim ThisID
ThisID = Request.querystring(\"id\")
NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgørelsesdato, a.journalnummer, a.myndighed, \"
NewSQL = NewSQL & \" b.smresume, b.smbekendtgoerelse,\"
NewSQL = NewSQL & \" c.stamstikordid, \"
NewSQL = NewSQL & \" d.sagsfremstilling, d.afgoerelse \"
NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgørelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") a,\"
NewSQL = NewSQL & \" (Select smresume, smbekendtgoerelse from b2 where (smID = \" & ThisID & \") b,\"
NewSQL = NewSQL & \" (Select stamstikordid from tblstikord where smID = \" & ThisID & \") c,\"
NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from B3 where smID = \" & ThisID & \") d\"
Set rs = Conn.execute(NewSQL)
If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF
\'Værdier
smid = rs(\"a.smid\")
smnummer = rs(\"a.smnummer\")
smudsendelsesdato = rs(\"a.smudsendelsesdato\")
smafgoerelsesdato = rs(\"a.afgoerelsedatostart\")
journalnummer = rs(\"a.journalnummer\")
myndighed = rs(\"a.myndighed\")
mresume = rs(\"b.smresume\")
smbekendtgoerelse = rs(\"b.smbekendtgoerelse\")
stamstikordid = stamstikordid & \" or stamstikordid = \" & rs(\"c.stamstikordid\")
sagsfremstilling = rs(\"d.sagsfremstilling\")
afgoerelse = rs(\"d.afgoerelse\")
            rs.MoveNext
        Loop
    Else
    End If
rs.Close
Set rs = Nothing
------------------------------------------------------------------------------------------

MEN, det burde ikke rette den fejl du får. Jeg tænker lige lidt videre....

ahhh, det kan godt være at det løser dit problem aligevel....der var en komma fejl i den du postede.....

Den giver en syntax error:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.

fundet !!!!

-----------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"smdata.mdb\") & \";UID=admin;PWD=;\"
Conn.Open tempConn
Dim ThisID
ThisID = Request.querystring(\"id\")
NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgørelsesdato, a.journalnummer, a.myndighed, \"
NewSQL = NewSQL & \" b.smresume, b.smbekendtgoerelse,\"
NewSQL = NewSQL & \" c.stamstikordid, \"
NewSQL = NewSQL & \" d.sagsfremstilling, d.afgoerelse \"
NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgørelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") a,\"
NewSQL = NewSQL & \" (Select smresume, smbekendtgoerelse from b2 where smID = \" & ThisID & \") b,\"
NewSQL = NewSQL & \" (Select stamstikordid from tblstikord where smID = \" & ThisID & \") c,\"
NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from B3 where smID = \" & ThisID & \") d\"
Set rs = Conn.execute(NewSQL)
If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF
\'Værdier
smid = rs(\"a.smid\")
smnummer = rs(\"a.smnummer\")
smudsendelsesdato = rs(\"a.smudsendelsesdato\")
smafgoerelsesdato = rs(\"a.afgoerelsedatostart\")
journalnummer = rs(\"a.journalnummer\")
myndighed = rs(\"a.myndighed\")
mresume = rs(\"b.smresume\")
smbekendtgoerelse = rs(\"b.smbekendtgoerelse\")
stamstikordid = stamstikordid & \" or stamstikordid = \" & rs(\"c.stamstikordid\")
sagsfremstilling = rs(\"d.sagsfremstilling\")
afgoerelse = rs(\"d.afgoerelse\")
            rs.MoveNext
        Loop
    Else
    End If
rs.Close
Set rs = Nothing

Nu ser det ud som om du henviser til et manglende felt:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

linie hvad ?

Linie 20:

NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from B3 where smID = \" & ThisID & \") d\"

Er der felter der hedder sagsfremstilling og afgoerelse i tabellen B3 og hedder den B3 og ikke b3....Jeg kan ikke lige finde den base du sendte mig, med det er tit sådan noget der er galt ved sådan en fejlmedl...;-)

Ja felterne er i b3. Og linien er med fejl var selvf. Set rs = Conn.execute(NewSQL)

Hedder den B3 eller b3 ? det er nok ligemeget men for en sikkerheds skyld .

Anyway så prøv denne engang

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"smdata.mdb\") & \";UID=admin;PWD=;\"
Conn.Open tempConn
Dim ThisID
ThisID = Cint(Request.querystring(\"id\"))
NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgørelsesdato, a.journalnummer, a.myndighed, \"
NewSQL = NewSQL & \" b.smresume, b.smbekendtgoerelse,\"
NewSQL = NewSQL & \" c.stamstikordid, \"
NewSQL = NewSQL & \" d.sagsfremstilling, d.afgoerelse \"
NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgørelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") as a,\"
NewSQL = NewSQL & \" (Select smresume, smbekendtgoerelse from b2 where smID = \" & ThisID & \") as b,\"
NewSQL = NewSQL & \" (Select stamstikordid from tblstikord where smID = \" & ThisID & \") as c,\"
NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from B3 where smID = \" & ThisID & \") as d\"
Set rs = Conn.execute(NewSQL)
If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF
\'Værdier
smid = rs(\"a.smid\")
smnummer = rs(\"a.smnummer\")
smudsendelsesdato = rs(\"a.smudsendelsesdato\")
smafgoerelsesdato = rs(\"a.afgoerelsedatostart\")
journalnummer = rs(\"a.journalnummer\")
myndighed = rs(\"a.myndighed\")
mresume = rs(\"b.smresume\")
smbekendtgoerelse = rs(\"b.smbekendtgoerelse\")
stamstikordid = stamstikordid & \" or stamstikordid = \" & rs(\"c.stamstikordid\")
sagsfremstilling = rs(\"d.sagsfremstilling\")
afgoerelse = rs(\"d.afgoerelse\")
            rs.MoveNext
        Loop
    Else
    End If
rs.Close
Set rs = Nothing

Sker der noget ???

Jeg kan ikke teste det før mandag. Beklager. Jeg skal nok vende tilbage hurtigst muligt.

OK.

Den virker heller ikke.

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.


Fejllinie: Set rs = Conn.execute(NewSQL)

Du må altså lige sige om den hedder b3 eller B3 ?, så jeg kan få ro i mit sind.;-)
Kalder du bare siden direkte ??? For så har dui jo ikke noget i dit smID....
Altså din querystring er tom, det er jeg ikke sikker på virker.....

Den hedder b3 Alle queryes har lille begyndelsesbogstav.

Jeg kalder den med et id som querystring. Ellers finder den jo ikke meget ;-)

Så du har ændret det i koden ???
Ellers har jeg gjort det her :
-----------------------------------------------------------------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"smdata.mdb\") & \";UID=admin;PWD=;\"
Conn.Open tempConn
Dim ThisID
ThisID = Cint(Request.querystring(\"id\"))
NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgørelsesdato, a.journalnummer, a.myndighed, \"
NewSQL = NewSQL & \" b.smresume, b.smbekendtgoerelse,\"
NewSQL = NewSQL & \" c.stamstikordid, \"
NewSQL = NewSQL & \" d.sagsfremstilling, d.afgoerelse \"
NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgørelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") as a,\"
NewSQL = NewSQL & \" (Select smresume, smbekendtgoerelse from b2 where smID = \" & ThisID & \") as b,\"
NewSQL = NewSQL & \" (Select stamstikordid from tblstikord where smID = \" & ThisID & \") as c,\"
NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from b3 where smID = \" & ThisID & \") as d\"
Set rs = Conn.execute(NewSQL)
If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF
\'Værdier
smid = rs(\"a.smid\")
smnummer = rs(\"a.smnummer\")
smudsendelsesdato = rs(\"a.smudsendelsesdato\")
smafgoerelsesdato = rs(\"a.afgoerelsedatostart\")
journalnummer = rs(\"a.journalnummer\")
myndighed = rs(\"a.myndighed\")
mresume = rs(\"b.smresume\")
smbekendtgoerelse = rs(\"b.smbekendtgoerelse\")
stamstikordid = stamstikordid & \" or stamstikordid = \" & rs(\"c.stamstikordid\")
sagsfremstilling = rs(\"d.sagsfremstilling\")
afgoerelse = rs(\"d.afgoerelse\")
            rs.MoveNext
        Loop
    Else
    End If
rs.Close
Set rs = Nothing
-------------------------------------------------------------------------------------

Samme resultat desværre

I den database som du har sendt mig, kan jeg ikke få øje på b1,b2 eller b3. ????

Det er forespørgsler

Jamen i min er der kun 2 forespg. : smq og stikord....?
Det er så jeg kan afprøve det lidt bedre......!!!!

Ok jeg sender dig lige en ny så.

Du kan downloade den her:
http://www.dsa.dk/smdata.zip

Kunne du evt. uploade den til som du gjorde sidst...?
Min hotmail og min yahoo er vist ret ustabil.....

Kasseper

tak for det, jeg prøver.. !

Nu er fejlen da fundet.......
Problemet er bogstavet ø i linierne :
-------------------------------------------------------------------------------------------------
\'NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgørelsesdato, a.journalnummer, a.myndighed, \"\'


og

NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgørelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") as a,\"
-------------------------------------------------------------------------------------------------

Så du skal omnavngive feltet smafgørelsesdato i b1 til smafgoerelsesdato og bruge flg. kode :

*************************************************************************************************
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"smdata.mdb\") & \";UID=admin;PWD=;\"
Conn.Open tempConn
Dim ThisID
ThisID = Cint(Request.querystring(\"id\"))
NewSQL = \"SELECT a.smid, a.smnummer, a.smudsendelsesdato, a.smafgoerelsesdato, a.journalnummer, a.myndighed, \"
NewSQL = NewSQL & \" b.smresume, b.smbekendtgoerelse,\"
NewSQL = NewSQL & \" c.stamstikordid, \"
NewSQL = NewSQL & \" d.sagsfremstilling, d.afgoerelse \"
NewSQL = NewSQL & \" FROM (Select smid,smnummer,smudsendelsesdato,smafgoerelsesdato,journalnummer,myndighed from b1 where smID = \" & ThisID & \") as a,\"
NewSQL = NewSQL & \" (Select smresume, smbekendtgoerelse from b2 where smID = \" & ThisID & \") as b,\"
NewSQL = NewSQL & \" (Select stamstikordid from tblstikord where smID = \" & ThisID & \") as c,\"
NewSQL = NewSQL & \" (Select sagsfremstilling, afgoerelse from b3 where smID = \" & ThisID & \") as d\"
Set rs = Conn.execute(NewSQL)
If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF
\'Værdier
smid = rs(\"a.smid\")
smnummer = rs(\"a.smnummer\")
smudsendelsesdato = rs(\"a.smudsendelsesdato\")
smafgoerelsesdato = rs(\"a.afgoerelsedatostart\")
journalnummer = rs(\"a.journalnummer\")
myndighed = rs(\"a.myndighed\")
mresume = rs(\"b.smresume\")
smbekendtgoerelse = rs(\"b.smbekendtgoerelse\")
stamstikordid = stamstikordid & \" or stamstikordid = \" & rs(\"c.stamstikordid\")
sagsfremstilling = rs(\"d.sagsfremstilling\")
afgoerelse = rs(\"d.afgoerelse\")
            rs.MoveNext
        Loop
    Else
    End If
rs.Close
Set rs = Nothing

************************************************************************************************

Det retter i hvertfald fejlen :

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.


Kasseper

Tak for det jeg køber den uden at teste det ;-)

Jamen så tak for denne gang, den var længe undervejs ;-)