webForumDet fria alternativet

"Typblandningsfel i villkorsuttryck"

ASP

12 svar · 305 visningar · startad av Del Pero

Medlem sedan feb. 20003 785 inlägg
Frågan#1

Denna kod:

ElseIf strDo = "delete_member" Then

strID = Request.QueryString("ID")
'--------------------- öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open db1
Set RecSet = Connect.Execute("SELECT * FROM Users WHERE uID='" & strID & "' ")

RecSet.Delete

RecSet.Update
	
RecSet.Close
Set RecSet = nothing

Connect.Close
Set Connect = nothing

Response.Redirect "admin.asp?action=delete_user"

Genererar detta fel:

Microsoft JET Database Engine (0x80040E07)
Typblandningsfel i villkorsuttryck.
/jk/jkadmin/action.asp, line 155

Line 155 är denna:
Set RecSet = Connect.Execute("SELECT * FROM Users WHERE uID='" & strID & "' ")

Vad är felet? :)

Medlem sedan aug. 20003 575 inlägg
#2

Är uId fältet ett textfält ?

Om det är en räknare med Int
så får du skriva

Set RecSet = Connect.Execute("SELECT * FROM Users WHERE uID=" & strID & " ")

Medlem sedan feb. 20003 785 inlägg
#3

Tackar!
Det är en räknare :)

Nu blev det ett annat fält istället...

ADODB.Recordset (0x800A0CB3)
Aktuellt Recordset kan inte uppdateras. Det kan bero på en begränsning av providern eller den valda låstypen.
/jk/jkadmin/action.asp, line 157

Line 157:
RecSet.Delete

Medlem sedan mars 20015 287 inlägg
#4

typ:

Connect.Open db1, 3, 3

eller vad det nu ska vara för låstyp.

Tips, sök på "låstyp" eller den felkod du fick. => 0x800A0CB3

Medlem sedan feb. 20003 785 inlägg
#5

Woho :bire
Vi jobbar vidare ;)

Nu fick jag detta fel istället

Microsoft JET Database Engine (0x80040E4D)
Det går inte att starta programmet. Informationsfilen för arbetsgrupper saknas eller är exklusivt öppnad av någon annan användare.
/jk/jkadmin/action.asp, line 154

kanske ska jag lägga ner arbetet för ikväll? ;)

Medlem sedan nov. 20017 144 inlägg
#6

Håll databasen stängd när du jobbar online.

Medlem sedan feb. 20003 785 inlägg
#7

Konstigt, den är det :o

Nu hoppar jag i säng, se till att ha löst detta när jag vaknar imorrn bitti mina små kodslavar! :e

Medlem sedan juni 200032 967 inlägg
#8

Byt koden i det första inlägget mot:

ElseIf strDo = "delete_member" Then
strID = Request.QueryString("ID")
'--------------------- öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open db1
Connect.Execute "DELETE FROM Users WHERE uID=" & strID, , 128

Connect.Close
Set Connect = nothing

Response.Redirect "admin.asp?action=delete_user"

Mvh,

Medlem sedan feb. 20003 785 inlägg
#9

Jag tror jag älskar er!

Medlem sedan feb. 20005 891 inlägg
#10

Del Pero skrev:

Jag tror jag älskar er!

Jag älskar dig med, men jag tycker du ska lära dig söka istället. Denna fråga måste ha tio trådar nu.

Medlem sedan juni 200032 967 inlägg
#11

10? Det finns nog många fler. ;)

Jag lyckades dock inte hitta någon. Av någon anledning får man inga träffar när man söker på vare sig "Typblandningsfel" eller "villkorsuttryck".

Märkligt.

Medlem sedan feb. 20003 785 inlägg
#12

casca skrev:

Del Pero skrev:

Jag tror jag älskar er!

Jag älskar dig med, men jag tycker du ska lära dig söka istället. Denna fråga måste ha tio trådar nu.

Det var ju det jag gjorde... prova att söka så får du se vad som händer.

ni som bidragit med hjälp i denna tråden: tack!

Medlem sedan feb. 20005 891 inlägg
315 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
176 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
176 ms — ändringar (db)