ta bort gamla inlägg

Jo

connect.execute "delete from guestbook where datediff('m',guestDate,now()) > 6",,128

Ovanstående fungerar för Access. Hur datum och tid hanteras skiljer sig mellan olika sqldialekter.

------------------
essentitia preter non sans multiplicandum

Varför skriver man 128. Vad innebär det?

Det betyder att inget recordset skall returneras. Konstanten kallas adExecuteNoRecords om jag inte minns fel.

Mvh,

såhär hag jag.. e det illa?

<% If Request.QueryString("menu") = "deladmin" Then

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

	SQL = "SELECT * FROM t_Administrators Where f_ID=" & Request.QueryString("id")

	RSConn.Open SQL, Connect, 1, 2

	RSConn.Delete
	
	RSConn.Close

altså.. bara för att ta bort en post.. inte nåt med datum å sånt.. vill bara veta om koden verkar bra?
------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

[Redigerat av Sico den 21 jan 2002]

Nja det är inte det mest effektiva, hantering av recordset innebär en hel del databasanrop som är helt onödiga i ditt fall.

<% If Request.QueryString("menu") = "deladmin" Then

SQL = "delete FROM t_Administrators Where f_ID=" & Request.QueryString("id")

connect.execute sql,,128

------------------
essentitia preter non sans multiplicandum

Mina kunskaper e dåliga :(
Denna kod har jag för att lägga till en admin.

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

	SQL = "SELECT * FROM t_Administrators"

	RSConn.Open SQL, Connect, 1, 2

	RSConn.Addnew
	RSConn("f_User") = Request.Form("txtUser")
	RSConn("f_Password") = Request.Form("txtPassword")
	If Request.Form("txtAdmin") = "on" Then
	RSConn("f_Admin") = "1"
	End if
	RSConn.Update

	RSConn.Close

Hmm.. antar att denna kod e lika illa eller?

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

Ungefär. :)

Den borde se ut så här i stället:

if Request.Form("txtAdmin") = "on" then
strSQL = "INSERT INTO t_Administrators (f_User, f_Password, f_admin) VALUES ('" & Request.Form("txtUser") & "', '" & Request.Form("txtPassword") & "', 1)"
Else
strSQL = "INSERT INTO t_Administrators (f_User, f_Password) VALUES ('" & Request.Form("txtUser") & "', '" & Request.Form("txtPassword") & "')"
End if

Connect.Execute strSQL,,128

Mvh,

Ja det är lika mycket overhead, dock så blir koden lite mer komplicerad om man använder SQL

txtUser = replace(request.form("txtUser"),"'","''") 
txtPwd = replace(request.form("password"),"'","''") 

SQL = "insert into t_Administrators(f_users,f_password,txt_admin) values('"
sql = sql & txtUser & "','" & txtPwd &"'," 
If Request.Form("txtAdmin") = "on" Then
 sql = sql & "1)"
else
sql = sql & "null)"
End if
connect.execute sql,,128

------------------
essentitia preter non sans multiplicandum

Tycker ändå min kod e mycket lättare att läsa och lättare att modifiera.. vad e skillnaden.. Kräver min kod mer arbete eller?

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

Kräver min kod mer arbete eller?

Jo, din kod innebär att gå över ån efter vatten. För att kunna skapa recordsetet måste ADO fråga databasen hur tabellen är definierad vilket man slipper om man gör en insert direkt. Jaan gjorde en jämförelse av hur mycket anrop det blir från ADO till ODBC (tabell med 4 kolumer)

Med recordset 45 anrop till ODBC
Med insert 3 anrop till ODBC

Den första siffran är propertionell mot antalet kolumner i databasen.

Om man vill slippa att hantera speciella tecken i strängar så är ett alternativ att använda ett kommandoobjekt och dynamiska parametrar i sql-strängen. Det är också fördelaktigt om man vill göra flera insert i samma tabell då man undviker omkompilering av sql-satsen. (I alla fall gäller det de flesta dbms.)
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 21 jan 2002]

Då e mina koder fel som bara dänn.

Så här brukarjag skriva när jag infogar från en databas..

<%
	Set RSConn = Server.CreateObject("ADODB.Recordset")

	SQL = "SELECT * FROM t_Administrators, t_News Where t_News.f_By = t_Administrators.f_ID Order By t_News.f_ID DESC"

	RSConn.Open SQL, Connect, 1, 2

	Do Until RSConn.EOF
%>

.. massa html..

<%= RSConn("f_Text") %>

.. massa html..

<%
RSConn.MoveNext	
Loop
RSConn.Close
Connect.Close
%>

då gör jag ju felet igen med ett anrop till ODBC..
Hur ska detta vara.. får det inte å funka :/

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

Om du hämtar data så måste du alltid använda ett recordset.
Det som kan snabba upp saker och ting ordentligt är att använda en metod som heter getrows, vilket innebär att man hämtar allt data i ett anrop.

Om du gör en sökning på getrows i detta forum så finns det en hel del exempel på hur den används.

------------------
essentitia preter non sans multiplicandum

ok.. tack för hjälpen

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

Om man vill slippa att hantera speciella tecken i strängar så är ett alternativ att använda ett kommandoobjekt och dynamiska parametrar i sql-strängen. Det är också fördelaktigt om man vill göra flera insert i samma tabell då man undviker omkompilering av sql-satsen.

Det där lät intressant. Lust att beskriva lite närmare?

------------------
/Morph
Ever since I was eight or nine, I've been standing on the shoreline
All my life I've been waiting for something lasting

[Redigerat av Morph den 21 jan 2002]

http://cgi.webforum.nu/wf/Forum11/HTML/007069.html

Sista inlägget i den tråden innehåller ett exempel.

------------------
essentitia preter non sans multiplicandum