' Skaber DSN forbindelse til DBen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DSN=riishojwebsoftdkdsn"
' Hent fra databasen afhængig af værdien id fra URL strSQL = "Select * From tråd Where forhandlerId = " & Request.Querystring("forhandlerId") Set rs = myConn.Execute(strSQL) ' Rydder op efter os myConn.Close Set myConn = Nothing %>
</body>
</html>
Det giver følgende fejl
ADODB.Recordset.1 error '80004005'
SQLState: S0002 Native Error Code: -1305 [INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'tr'. Make sure it exists and that its name is spelled correctly.
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.
Jeps.. Undgå æ,ø,å i tabel og kolonne navne.. Hvis du vil beholde det oså kan du sætte [] omkring i SQL-sætningen: strSQL = "Select * From [tråd] Where forhandlerId = " & Request.Querystring("forhandlerId")
Alle SQL-sætniger skal hvor tråd indgår skal der så [] med. Det leteste er at holder navngivningn til ord uden æ,ø,å, ,-,;,: Hvis man vil havde mellemrum i kolonnenanve så benyt _ eller træk orne sammen. Ligesom du har gjodt med forhandlerID.
Synes godt om
Slettet bruger
01. maj 2002 - 23:56#4
Din tabel tråd skal du kalde noget andet + den skal selvfølgelig fysisk omdøbes til det samme i din Access database.
F.eks.: strSQL = "Select * From traad Where forhandlerId = " & Request.Querystring("forhandlerId")
Skulle dette her virke? Jeg har omdøbt min tabel til "login" og "forhandlerId" til "Id"
<%
' Skaber DSN forbindelse til DBen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DSN=riishojwebsoftdkdsn"
' Hent fra databasen afhængig af værdien id fra URL strSQL = "Select * From login Where Id = " & Request("Id") Set rs = myConn.Execute(strSQL) ' Rydder op efter os myConn.Close Set myConn = Nothing %>
det han skal have gjort er sandsynligvis at oprette en sesion ved login, hvor den taer brugerens id fra den der logger ind, og overfører dette til denne url, for at lave et system, der giver mulighed for at logge ind på sin personlige side ved login
Ja, jeg kan godt huske denne session. Hvordan får jeg den til at overføre brugerens id?
Synes godt om
Slettet bruger
02. maj 2002 - 01:05#18
2 sekunder &:-D
Synes godt om
Slettet bruger
02. maj 2002 - 01:07#19
session("brugernavn") = LCase(strUsername) sådanne så den ud... men så skal vi have eagleeye på banen for at omskrive denne, da der nok skal roders lidt med den SQL igen for at få den til at hente id
Synes godt om
Slettet bruger
02. maj 2002 - 01:09#20
må desvære logge af nu, da jeg skal op og til gallafest (afslutnings fest på min uddanelses ansalt, i morgen og gerne vil være lidt frisk
Mon tråden er død? questis> Har du haft en god fest?
Synes godt om
Slettet bruger
03. maj 2002 - 23:30#24
dawz igen &:-D
som sagt ville jeg være glad hvis du fangede eageleye igen....
han er online lige nu, og lad ham gennem læse det sidste, så tror jeg helt sikkert han kan hjælpe, det med session's og SQL er ikke min stærke side, er stadig ny, men prøv ham
Hvor i min login.asp skal jeg indsætte denne session?
<% ' bruges til at tjekke om brugeren finde i db ved login ' Sender resultaterne fra tilføj links til databasen ' Database connection ' Skaber DSN forbindelse til DBen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DSN=riishojwebsoftdkdsn"
strUsername = Trim(Replace(Request.Form("username"),"'","")) strPassword = Trim(Replace(Request.Form("password"),"'","")) strSQL ="SELECT * FROM login WHERE UCase(username) = '" & UCase(strUsername) & "' AND UCase(Password) = '" & UCase(strPassword) & "'" set rs = myConn.execute(strSQL) 'først tjekke om brugeren findes ved at tjekke om recordsetet er tomt. if not rs.EOF then if LCase(rs("username")) = LCase(strUsername) then 'LOGIN OK session("brugernavn") = LCase(strUsername) Response.Redirect("index.asp") else 'INGEN BRUGER FUNDET 'Eller en blev fundet men databasen bruger navn passer ikke med det 'indtastede brugernavn end if else 'brugeren ikke fundet lave det som skal ske hvis brugeren ikke er fundet her end if myConn.Close Set myConn = Nothing
hmm ja prøv at slette de mellem rum der er og lav dem igen. Gå også hen til enden af linien og slet indtil den næste linie kommer op til curseren og så tryk på returen.. Når man copy-paster kan der nogle gangke komme en karater man ikke kan se men tilsyneladne kan ASP-fortolkren se den.
Tak questis. Ja, det virker nu, meeeeeeeeeeeeen havd nu, når den som har logget sig på korrekt går op i url'en og ændrer id-nummeret, så er man lige pludselig på en anden side, og det var jo ikke meningen. Undskyld jeg ikke svarede i går, men jeg blev så glad for at det virkede, at jeg skyndte mig i seng.
Når du nu har gemt id i en session kan du benytte den session i stedet for id i en querystring som du selv siger man bare kan rette i:
Din "nye" index.asp fil:
<%
' Skaber DSN forbindelse til DBen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DSN=riishojwebsoftdkdsn"
' Hent fra databasen afhængig af værdien id fra URL strSQL = "Select * From login Where Id = " & session("brugerID") '<--her stod request("ID") Set rs = myConn.Execute(strSQL) ' Rydder op efter os myConn.Close Set myConn = Nothing %>
Du kan enda også benytte session("brugerID") til før at tjekke om man er logget ind på i index.asp filen...:
<% 'hvis session("brugerID") er tom så er man ikke logget ind. if session("brugerID") = "" then response.write "du skal være logget ind" else ' Skaber DSN forbindelse til DBen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DSN=riishojwebsoftdkdsn"
' Hent fra databasen afhængig af værdien id fra URL strSQL = "Select * From login Where Id = " & session("brugerID") '<--her stod request("ID") Set rs = myConn.Execute(strSQL) ' Rydder op efter os myConn.Close Set myConn = Nothing %>
hov den sidste mangler et end if efter Set myConn = Nothing
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.