Just nu i M3-nätverket
Jump to content

Problem att rensa databasen.


tobias

Recommended Posts

Gör en ASP-sida där man ska kunna rensa vissa tabeller ur en databas.Problemet är att detta verkar, oavsett hur många varianter jag testat, inte fungera.

'-----------------------------------------------

' Radera databasen

'-----------------------------------------------

 

'--------------------------------------------------- Variabeln tilldelas instansen av recordsetet

Set ObjConn = Server.CreateObject("ADODB.Recordset")

 

'--------------------------------------------------- Variabeln tilldelas instansen av recordsetet

Set ObjRS = Server.CreateObject("ADODB.Recordset")

 

'--------------------------------------------------- Pekar på rätt tabeller i databasen

 

ObjRS.Open "SELECT * FROM resultat", ObjConn, adOpenDynamic, adLockOptimistic

 

 

ObjConn.Execute "DELETE FROM resultat WHERE lagnummer=1"

 

ObjRS.Close

Set ObjRS=Nothing

 

Kör jag detta uppkommer felmeddelandet:

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'ObjConn.Execute'

 

/spelarlosen.asp, line 156

 

Har testat ObjRS.Execute men det funkar inte heller.

Har testat att skriva typ: SQL="DELETE FROM resultat WHERE lagnummer=1"

 

...plus ett otal andra varianter.

Har skrivit in till forumet förut med samma fråga och fick då bara svaret att att man ska skriva en DELETE-sats. Men det fungerar ju uppenbarligen inte så felet kanske ligger någon annanstans.Jag måste väl öppna databasen som jag gjort eller är det något annat jag glömt?

 

...panik med tid o tacksam för svar!

Link to comment
Share on other sites

Problemet är att du inte kan köra funktionen Execute på objektet ADODB.Recordset. Execute kan endast köras på objektet ADODB.Connection.

 

För att köra SQL-kod använder du antingen varianten

 

SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "min databaskoppling"
SET RS = Conn.Execute("min sql-sats")

eller

SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "min databaskoppling"
SET RS = Server.CreateObject("ADODB.Recordset")
RS.Open "min sql-sats", Conn, adOpenDynamic, adLockOptimistic

 

 

____Robbac_____________________________________

The Truth Is Out there

 

[inlägget ändrat 2002-03-28 09:59:28 av Robbac1]

Link to comment
Share on other sites

TACKAR! Nu har du räddat påsken för oss. Testat 10-tal olika varianter men nu verkar det fungera med din kod.

 

mvh Tobias

 

 

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...