Avatar billede clansite.dk Nybegynder
15. marts 2002 - 14:21 Der er 15 kommentarer

Hjælp mig !

Fejlmeddelse:

Microsoft JET Database Engine error '80040e14'

Extra ) in query expression '(pk_mail = )'.

/imail/mail.asp, line 140



Linje 138 - 142:

Case "delete"

strSQL = "DELETE FROM klan_mails WHERE (fk_klan = " & session("uid") & ") AND (fk_mail = " & intPKMessage & ");"

strSQL = "DELETE FROM mails WHERE (pk_mail = " & intPKMessage & ");"
Set objRs = objConn.Execute(strSQL)



Håber der er en der ved hvad der er galt !

/ClanSite.dk
Avatar billede dawebber Nybegynder
15. marts 2002 - 14:24 #1
Case "delete"

strSQL = "DELETE FROM klan_mails WHERE (fk_klan = " & session("uid") & " AND (fk_mail = " & intPKMessage & ");"

strSQL = "DELETE FROM mails WHERE (pk_mail = " & intPKMessage & ");"
Set objRs = objConn.Execute(strSQL)
Avatar billede dawebber Nybegynder
15. marts 2002 - 14:25 #2
Case "delete"
UPS

strSQL = "DELETE FROM klan_mails WHERE fk_klan = " & session("uid") & " AND fk_mail = " & intPKMessage

strSQL = "DELETE FROM mails WHERE (pk_mail = " & intPKMessage & ");"
Set objRs = objConn.Execute(strSQL)
Avatar billede cthun Nybegynder
15. marts 2002 - 14:25 #3
strSQL1 = "DELETE FROM klan_mails WHERE fk_klan = '" & session("uid") & "' AND fk_mail = '" & intPKMessage & "'"
objConn.execute(strSQL1)

strSQL2 = "DELETE FROM mails WHERE pk_mail = '" & intPKMessage & "'"
objConn.Execute(strSQL2)
Avatar billede mr.meincke Nybegynder
15. marts 2002 - 14:26 #4
prøv:

Case "delete"

strSQL = "DELETE FROM klan_mails WHERE (fk_klan = '" & session("uid") & "') AND (fk_mail = '" & intPKMessage & "');"

strSQL = "DELETE FROM mails WHERE (pk_mail = '" & intPKMessage & "');"
Set objRs = objConn.Execute(strSQL)

er ikke helt sikker.....

Mvh
Mr.Meincke
Avatar billede cthun Nybegynder
15. marts 2002 - 14:28 #5
Du skal selvfølgelig huske Case "delete"
Like this:

Case "delete"

strSQL1 = "DELETE FROM klan_mails WHERE fk_klan = '" & session("uid") & "' AND fk_mail = '" & intPKMessage & "'"
objConn.execute(strSQL1)

strSQL2 = "DELETE FROM mails WHERE pk_mail = '" & intPKMessage & "'"
objConn.Execute(strSQL2)
Avatar billede clansite.dk Nybegynder
15. marts 2002 - 14:47 #6
Der er ikke nogle af de svar der virker !

dawebber =  Microsoft JET Database Engine error '80040e14'

Extra ) in query expression '(pk_mail = )'.

/imail/mail.asp, line 140



cthun = Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strSQL1'

/imail/mail.asp, line 136



Jeg ved sq ikke hvad der går galt.... ! 

/ClanSite.dk  ICQ #151645922
Avatar billede cthun Nybegynder
15. marts 2002 - 14:49 #7
Prøv den her:

Case "delete"

strSQL1 = "DELETE FROM klan_mails WHERE fk_klan = " & session("uid") & " AND fk_mail = '" & intPKMessage & "'"
objConn.execute(strSQL1)

strSQL2 = "DELETE FROM mails WHERE pk_mail = '" & intPKMessage & "'"
objConn.Execute(strSQL2)
Avatar billede clansite.dk Nybegynder
15. marts 2002 - 14:51 #8
Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strSQL1'

/imail/mail.asp, line 138
Avatar billede cthun Nybegynder
15. marts 2002 - 14:52 #9
Prøv og kom med din Database connection!!!
Avatar billede clansite.dk Nybegynder
15. marts 2002 - 14:55 #10
Her er scriptet i en forkortet version:



<%
Option Explicit

Dim objConn
Dim strSQL
Dim objRs
Dim intUid
Dim strMailCount
Dim strMode
Dim intPKMail
Dim strHeadline
Dim strName
Dim strInbox
Dim strText
Dim strMessage
Dim intPKMessage
Dim intPKClan
   
If Not Session("Adgang") = "Godkendt" Then
    Response.Redirect("login1.asp?mode=forbudt")
End If

intUid = Session("uid")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Web\ClanSite.dk\dansk\Db\multi.mdb; User Id=admin; Password=;"

intPKMail = Trim(Request.QueryString("mid"))
strMode = Trim(Request.QueryString("mode"))
If Len(strMode) = 0 OR isNumeric(strMode) Then
        Response.Redirect("mail.asp?mode=inbox")
End If

%>
<html>
<head>
        <title>Mailbox</title>
        <link rel="stylesheet" href="styles.css" type="text/css" />
</head>
<body>
<%


Select Case strMode
   
Case "delete"

strSQL1 = "DELETE FROM klan_mails WHERE fk_klan = " & session("uid") & " AND fk_mail = '" & intPKMail & "'"
objConn.execute(strSQL1)

strSQL2 = "DELETE FROM mails WHERE pk_mail = '" & intPKMail & "'"
objConn.Execute(strSQL2)

End Select


%>
</body>
</html>





Håber det hjalp !
Avatar billede cthun Nybegynder
15. marts 2002 - 15:00 #11
Jeg kan sgu ikke lige sige hvad der er galt.. kan du trække noget udfra databasen, med select??
Avatar billede clansite.dk Nybegynder
15. marts 2002 - 16:20 #12
Ja... Jeg kan godt trække ud fra en db ! Men den vil ikke delete !

Jeg har rettet lidt i det, og nu får jeg denne meddelse:
Microsoft JET Database Engine error '80004005'

The record cannot be deleted or changed because table 'klan_mails' includes related records.

/imail/mail.asp, line 56


Håber der er en der kan hjælpe igen !
Avatar billede coltau Juniormester
15. marts 2002 - 16:34 #13
Fjern alle relationer mellem tabellerne i databasen.
Avatar billede clansite.dk Nybegynder
15. marts 2002 - 16:39 #14
Hvad ?? Hvad mener du ?

Bruger du ICQ ?
Avatar billede clansite.dk Nybegynder
15. marts 2002 - 18:06 #15
Har selv fundet et svar !

  LUKKET
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester