asp_web_howto thread: How do I "Add" , Delete", and "Update" recordsets with "select case"
Message #1 by "Roger Lewis" <webhancements@a...> on Tue, 12 Mar 2002 15:34:04
|
|
I am new to ASP and SQL, but I have been trying to use this SELECT CASE I
wrote and it's haveing a lot of trouble . . The "Update" works, but I
can't find how to Delete or ADD NEW recordsets to the existing one . .
here is my SELECT case code
resultsub = request.form("bsubmit")
Select Case resultsub
Case "Update"
strSQL = "update book set title = '" & request.form("title") & "',
author = '" & _
request.form("author") & "', class = '" & request.form("class") & "',
abstract='" & _
request.form("abstract") & "' Where id= " & request.form("id")
conn.execute(strSQL)
Case "Commit"
iid = request.Form("id")
stitle = request.Form("title")
sauthor = request.Form ("author")
sclass = request.Form ("class")
sabstract = request.Form ("abstract")
sqlString = "SELECT * FROM book WHERE id = 0"
set rsBook = server.CreateObject("ADODB.Recordset")
rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
rsBook.addNew
rsBook.fields("title").value = stitle
rsBook.fields("author").value = sauthor
rsBook.fields("class").value = sclass
rsBook.fields("abstract").value = sabstract
rsBook.Update
conn.close
Case "Delete"
Dim rsBook, intIDforNewrecord
set rsBook = server.CreateObject("ADODB.Recordset")
rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
rsBook.Delete
rsBook.MoveNext
rsBook.close
End Select
Message #2 by Oleg Kapeljushnik <c-oleg.kapeljushnik@w...> on Tue, 12 Mar 2002 10:54:19 -0500
|
|
to delete you can use the follow syntax :
DELETE FROM <Table name> WHERE <condition>
add :
INSERT INTO <table name> (<field name 1>,<field name 2>,<field name 3>,...
VALUES (<field value 1>,<field value 2>,<field value 3>,...)
Oleg.
-----Original Message-----
From: Roger Lewis [mailto:webhancements@a...]
Sent: March 12, 2002 10:34 AM
To: ASP Web HowTo
Subject: [asp_web_howto] How do I "Add" , Delete", and "Update"
recordsets with "select case"
I am new to ASP and SQL, but I have been trying to use this SELECT CASE I
wrote and it's haveing a lot of trouble . . The "Update" works, but I
can't find how to Delete or ADD NEW recordsets to the existing one . .
here is my SELECT case code
resultsub = request.form("bsubmit")
Select Case resultsub
Case "Update"
strSQL = "update book set title = '" & request.form("title") & "',
author = '" & _
request.form("author") & "', class = '" & request.form("class") & "',
abstract='" & _
request.form("abstract") & "' Where id= " & request.form("id")
conn.execute(strSQL)
Case "Commit"
iid = request.Form("id")
stitle = request.Form("title")
sauthor = request.Form ("author")
sclass = request.Form ("class")
sabstract = request.Form ("abstract")
sqlString = "SELECT * FROM book WHERE id = 0"
set rsBook = server.CreateObject("ADODB.Recordset")
rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
rsBook.addNew
rsBook.fields("title").value = stitle
rsBook.fields("author").value = sauthor
rsBook.fields("class").value = sclass
rsBook.fields("abstract").value = sabstract
rsBook.Update
conn.close
Case "Delete"
Dim rsBook, intIDforNewrecord
set rsBook = server.CreateObject("ADODB.Recordset")
rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
rsBook.Delete
rsBook.MoveNext
rsBook.close
End Select
$subst('Email.Unsub').
Message #3 by "O'Hara, Elliott M" <EMOHARA@k...> on Tue, 12 Mar 2002 10:53:30 -0500
|
|
update:
UPDATE <table Name>
SET <column name>=<column value>,
<column 2 name>=<column 2 value>
WHERE <condition>
-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Tuesday, March 12, 2002 10:54 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: How do I "Add" , Delete", and "Update"
recordsets with "select case"
to delete you can use the follow syntax :
DELETE FROM <Table name> WHERE <condition>
add :
INSERT INTO <table name> (<field name 1>,<field name 2>,<field name 3>,...
VALUES (<field value 1>,<field value 2>,<field value 3>,...)
Oleg.
-----Original Message-----
From: Roger Lewis [mailto:webhancements@a...]
Sent: March 12, 2002 10:34 AM
To: ASP Web HowTo
Subject: [asp_web_howto] How do I "Add" , Delete", and "Update"
recordsets with "select case"
I am new to ASP and SQL, but I have been trying to use this SELECT CASE I
wrote and it's haveing a lot of trouble . . The "Update" works, but I
can't find how to Delete or ADD NEW recordsets to the existing one . .
here is my SELECT case code
resultsub = request.form("bsubmit")
Select Case resultsub
Case "Update"
strSQL = "update book set title = '" & request.form("title") & "',
author = '" & _
request.form("author") & "', class = '" & request.form("class") & "',
abstract='" & _
request.form("abstract") & "' Where id= " & request.form("id")
conn.execute(strSQL)
Case "Commit"
iid = request.Form("id")
stitle = request.Form("title")
sauthor = request.Form ("author")
sclass = request.Form ("class")
sabstract = request.Form ("abstract")
sqlString = "SELECT * FROM book WHERE id = 0"
set rsBook = server.CreateObject("ADODB.Recordset")
rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
rsBook.addNew
rsBook.fields("title").value = stitle
rsBook.fields("author").value = sauthor
rsBook.fields("class").value = sclass
rsBook.fields("abstract").value = sabstract
rsBook.Update
conn.close
Case "Delete"
Dim rsBook, intIDforNewrecord
set rsBook = server.CreateObject("ADODB.Recordset")
rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
rsBook.Delete
rsBook.MoveNext
rsBook.close
End Select
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #4 by "Roger Lewis" <webhancements@a...> on Mon, 12 Mar 2001 22:52:18 -0500
|
|
Would I have a seperate "<condition>" for each field?? Like "title",
"author" . . . ect?
----- Original Message -----
From: "Oleg Kapeljushnik" <c-oleg.kapeljushnik@w...>
To: "ASP Web HowTo" <asp_web_howto@p...>
Sent: Tuesday, March 12, 2002 10:54 AM
Subject: [asp_web_howto] RE: How do I "Add" , Delete", and "Update"
recordsets with "select case"
> to delete you can use the follow syntax :
>
> DELETE FROM <Table name> WHERE <condition>
>
> add :
>
> INSERT INTO <table name> (<field name 1>,<field name 2>,<field name 3>,...
> VALUES (<field value 1>,<field value 2>,<field value 3>,...)
>
> Oleg.
>
> -----Original Message-----
> From: Roger Lewis [mailto:webhancements@a...]
> Sent: March 12, 2002 10:34 AM
> To: ASP Web HowTo
> Subject: [asp_web_howto] How do I "Add" , Delete", and "Update"
> recordsets with "select case"
>
>
> I am new to ASP and SQL, but I have been trying to use this SELECT CASE I
> wrote and it's haveing a lot of trouble . . The "Update" works, but I
> can't find how to Delete or ADD NEW recordsets to the existing one . .
> here is my SELECT case code
> resultsub = request.form("bsubmit")
>
> Select Case resultsub
> Case "Update"
> strSQL = "update book set title = '" & request.form("title") & "',
> author = '" & _
> request.form("author") & "', class = '" & request.form("class") & "',
> abstract='" & _
> request.form("abstract") & "' Where id= " & request.form("id")
> conn.execute(strSQL)
>
> Case "Commit"
> iid = request.Form("id")
> stitle = request.Form("title")
> sauthor = request.Form ("author")
> sclass = request.Form ("class")
> sabstract = request.Form ("abstract")
>
>
> sqlString = "SELECT * FROM book WHERE id = 0"
> set rsBook = server.CreateObject("ADODB.Recordset")
> rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
> rsBook.addNew
> rsBook.fields("title").value = stitle
> rsBook.fields("author").value = sauthor
> rsBook.fields("class").value = sclass
> rsBook.fields("abstract").value = sabstract
> rsBook.Update
> conn.close
>
> Case "Delete"
> Dim rsBook, intIDforNewrecord
> set rsBook = server.CreateObject("ADODB.Recordset")
> rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
> rsBook.Delete
> rsBook.MoveNext
> rsBook.close
>
> End Select
>
> $subst('Email.Unsub').
>
>
$subst('Email.Unsub').
Message #5 by Oleg Kapeljushnik <c-oleg.kapeljushnik@w...> on Tue, 12 Mar 2002 11:05:56 -0500
|
|
yes,
<condition> may look like :
WHERE Field1 = Value1 AND Field2 LIKE Value2 OR Field3 IN (Value3,Value4)
etc'
Its better if you refer to your Database documentation.
Then you'll get more correct syntax that works for your DB.
Oleg.
-----Original Message-----
From: Roger Lewis [mailto:webhancements@a...]
Sent: March 12, 2001 10:52 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: How do I "Add" , Delete", and "Update"
recordsets with "select case"
Would I have a seperate "<condition>" for each field?? Like "title",
"author" . . . ect?
----- Original Message -----
From: "Oleg Kapeljushnik" <c-oleg.kapeljushnik@w...>
To: "ASP Web HowTo" <asp_web_howto@p...>
Sent: Tuesday, March 12, 2002 10:54 AM
Subject: [asp_web_howto] RE: How do I "Add" , Delete", and "Update"
recordsets with "select case"
> to delete you can use the follow syntax :
>
> DELETE FROM <Table name> WHERE <condition>
>
> add :
>
> INSERT INTO <table name> (<field name 1>,<field name 2>,<field name 3>,...
> VALUES (<field value 1>,<field value 2>,<field value 3>,...)
>
> Oleg.
>
> -----Original Message-----
> From: Roger Lewis [mailto:webhancements@a...]
> Sent: March 12, 2002 10:34 AM
> To: ASP Web HowTo
> Subject: [asp_web_howto] How do I "Add" , Delete", and "Update"
> recordsets with "select case"
>
>
> I am new to ASP and SQL, but I have been trying to use this SELECT CASE I
> wrote and it's haveing a lot of trouble . . The "Update" works, but I
> can't find how to Delete or ADD NEW recordsets to the existing one . .
> here is my SELECT case code
> resultsub = request.form("bsubmit")
>
> Select Case resultsub
> Case "Update"
> strSQL = "update book set title = '" & request.form("title") & "',
> author = '" & _
> request.form("author") & "', class = '" & request.form("class") & "',
> abstract='" & _
> request.form("abstract") & "' Where id= " & request.form("id")
> conn.execute(strSQL)
>
> Case "Commit"
> iid = request.Form("id")
> stitle = request.Form("title")
> sauthor = request.Form ("author")
> sclass = request.Form ("class")
> sabstract = request.Form ("abstract")
>
>
> sqlString = "SELECT * FROM book WHERE id = 0"
> set rsBook = server.CreateObject("ADODB.Recordset")
> rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
> rsBook.addNew
> rsBook.fields("title").value = stitle
> rsBook.fields("author").value = sauthor
> rsBook.fields("class").value = sclass
> rsBook.fields("abstract").value = sabstract
> rsBook.Update
> conn.close
>
> Case "Delete"
> Dim rsBook, intIDforNewrecord
> set rsBook = server.CreateObject("ADODB.Recordset")
> rsBook.Open "book", strConnect,adOpenDynamic,adLockOptimistic,adCmdText
> rsBook.Delete
> rsBook.MoveNext
> rsBook.close
>
> End Select
>
> $subst('Email.Unsub').
>
>
$subst('Email.Unsub').
$subst('Email.Unsub').
|
View Cart
