Full Scren Edit - Anyone ?

[Frank Kwong]

It borders me a lot when users told me that they are using ASP-db and they are also buying another component just to do the full-screen editing ! While the advanced Full screen edit is in the 2002 version yet today's user seemed to be left out for the meanwhile. User A. Agapov pointed out to me that ASP-db can do full screen editing today and he is using it with no problem. After trying his suggestion and he is right !! The following is a very short example. The whole trick is to put the INPUT in the MagicCell. Now things are getting interesting. Looks like you can impose the conditions of the fields before it is being set to Edit.

Try it out and see what you think !


<%
if Request.Form.Count > 0 then
dim cnn, rs, F1, F2, i, Top, Bottom
set cnn = Server.CreateObject( &#34;ADODB.Connection&#34
cnn.Open &#34;DSN=NWIND&#34;
set rs = Server.CreateObject( &#34;ADODB.Recordset&#34
rs.Open &#34;orders&#34;, cnn,, 3
Top=Clng(session(&#34;SV_RecordPointer_999&#34)
Bottom=Recptr + clng(session(&#34;SV_GridInc_999&#34)
for i = Top to bottom
F1=Request.Form(&#34;CustomerID_&#34; & rs(&#34;OrderID&#34)
F2=CCur(Request.Form(&#34;Freight_&#34; & rs(&#34;OrderID&#34))
If F1 <> rs(&#34;CustomerID&#34 then
rs(&#34;CustomerID&#34= F1
end if
If F2 <> rs(&#34;Freight&#34 then
rs(&#34;Freight&#34= F2
end if
rs.MoveNext
next
rs.Close
cnn.Close
end if
%>

<form method=&#34;POST&#34; action=&#34;FullEdit.asp&#34;>
<!-- #include Virtual=/ASPDB/ASPdb.Inc -->
<%
Set X= Server.CreateObject(&#34;ASP.DB&#34
X.dbUnit = &#34;999&#34;
X.dbMode = &#34;Grid&#34;
X.dbDSN = &#34;DSN=NWIND&#34;
X.dbMagicCell = &#34;(;,[]#|~/+{})CustomerID,,<INPUT NAME=&#39;CustomerID_#0#&#39; TYPE=TEXT MAXLENGTH=5 SIZE=25 VALUE=&#39;#1#&#39;>;Freight,,<INPUT NAME=&#39;Freight_#0#&#39; TYPE=TEXT SIZE=10 VALUE=&#39;#6#&#39;>&#34;
X.dbNavigationItem = &#34;None&#34;
X.dbSQL = &#34;SELECT OrderID,CustomerID,EmployeeID,OrderDate,RequiredDa te,ShippedDate,Freight FROM Orders&#34;
X.dbCountSQL = &#34;SELECT COUNT(1) FROM Orders&#34;
X.dbUserLocalText = zHead & &#34;,<Center><h3>Full Screen Edit Demo</h3></Center>;&#34;
X.ASPdb
%>
<center><input type=&#34;submit&#34; value=&#34;Go Full Screen Update&#34;></center>
</form>



FK

[Amber Reyngoudt]

I just posted a question about this 10/11. I tried to modify this code below to work for my db, but had some issues.

I get an error on
rs(&#34;CustomerID&#34= F1

The error is the following.
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.



------------
Frank Kwong at 7/23/01 2:58:08 AM

It borders me a lot when users told me that they are using ASP-db and they are also buying another component just to do the full-screen editing ! While the advanced Full screen edit is in the 2002 version yet today&#39;s user seemed to be left out for the meanwhile. User A. Agapov pointed out to me that ASP-db can do full screen editing today and he is using it with no problem. After trying his suggestion and he is right !! The following is a very short example. The whole trick is to put the INPUT in the MagicCell. Now things are getting interesting. Looks like you can impose the conditions of the fields before it is being set to Edit.

Try it out and see what you think !


<%
if Request.Form.Count > 0 then
dim cnn, rs, F1, F2, i, Top, Bottom
set cnn = Server.CreateObject( &#34;ADODB.Connection&#34
cnn.Open &#34;DSN=NWIND&#34;
set rs = Server.CreateObject( &#34;ADODB.Recordset&#34
rs.Open &#34;orders&#34;, cnn,, 3
Top=Clng(session(&#34;SV_RecordPointer_999&#34)
Bottom=Recptr + clng(session(&#34;SV_GridInc_999&#34)
for i = Top to bottom
F1=Request.Form(&#34;CustomerID_&#34; & rs(&#34;OrderID&#34)
F2=CCur(Request.Form(&#34;Freight_&#34; & rs(&#34;OrderID&#34))
If F1 <> rs(&#34;CustomerID&#34 then
rs(&#34;CustomerID&#34= F1
end if
If F2 <> rs(&#34;Freight&#34 then
rs(&#34;Freight&#34= F2
end if
rs.MoveNext
next
rs.Close
cnn.Close
end if
%>

<form method=&#34;POST&#34; action=&#34;FullEdit.asp&#34;>
<!-- #include Virtual=/ASPDB/ASPdb.Inc -->
<%
Set X= Server.CreateObject(&#34;ASP.DB&#34
X.dbUnit = &#34;999&#34;
X.dbMode = &#34;Grid&#34;
X.dbDSN = &#34;DSN=NWIND&#34;
X.dbMagicCell = &#34;(;,[]#|~/+{})CustomerID,,<INPUT NAME=&#39;CustomerID_#0#&#39; TYPE=TEXT MAXLENGTH=5 SIZE=25 VALUE=&#39;#1#&#39;>;Freight,,<INPUT NAME=&#39;Freight_#0#&#39; TYPE=TEXT SIZE=10 VALUE=&#39;#6#&#39;>&#34;
X.dbNavigationItem = &#34;None&#34;
X.dbSQL = &#34;SELECT OrderID,CustomerID,EmployeeID,OrderDate,RequiredDa te,ShippedDate,Freight FROM Orders&#34;
X.dbCountSQL = &#34;SELECT COUNT(1) FROM Orders&#34;
X.dbUserLocalText = zHead & &#34;,<Center><h3>Full Screen Edit Demo</h3></Center>;&#34;
X.ASPdb
%>
<center><input type=&#34;submit&#34; value=&#34;Go Full Screen Update&#34;></center>
</form>



FK

[Frank Kwong]

are you running it on Northwind ?
>>... Multiple-step OLE DB operation generated errors
have not seen this error before ? What is it ?

------------
Amber Reyngoudt at 10/12/01 6:08:41 PM

I just posted a question about this 10/11. I tried to modify this code below to work for my db, but had some issues.

I get an error on
rs(&#34;CustomerID&#34= F1

The error is the following.
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.



------------
Frank Kwong at 7/23/01 2:58:08 AM

It borders me a lot when users told me that they are using ASP-db and they are also buying another component just to do the full-screen editing ! While the advanced Full screen edit is in the 2002 version yet today&#39;s user seemed to be left out for the meanwhile. User A. Agapov pointed out to me that ASP-db can do full screen editing today and he is using it with no problem. After trying his suggestion and he is right !! The following is a very short example. The whole trick is to put the INPUT in the MagicCell. Now things are getting interesting. Looks like you can impose the conditions of the fields before it is being set to Edit.

Try it out and see what you think !


<%
if Request.Form.Count > 0 then
dim cnn, rs, F1, F2, i, Top, Bottom
set cnn = Server.CreateObject( &#34;ADODB.Connection&#34
cnn.Open &#34;DSN=NWIND&#34;
set rs = Server.CreateObject( &#34;ADODB.Recordset&#34
rs.Open &#34;orders&#34;, cnn,, 3
Top=Clng(session(&#34;SV_RecordPointer_999&#34)
Bottom=Recptr + clng(session(&#34;SV_GridInc_999&#34)
for i = Top to bottom
F1=Request.Form(&#34;CustomerID_&#34; & rs(&#34;OrderID&#34)
F2=CCur(Request.Form(&#34;Freight_&#34; & rs(&#34;OrderID&#34))
If F1 <> rs(&#34;CustomerID&#34 then
rs(&#34;CustomerID&#34= F1
end if
If F2 <> rs(&#34;Freight&#34 then
rs(&#34;Freight&#34= F2
end if
rs.MoveNext
next
rs.Close
cnn.Close
end if
%>

<form method=&#34;POST&#34; action=&#34;FullEdit.asp&#34;>
<!-- #include Virtual=/ASPDB/ASPdb.Inc -->
<%
Set X= Server.CreateObject(&#34;ASP.DB&#34
X.dbUnit = &#34;999&#34;
X.dbMode = &#34;Grid&#34;
X.dbDSN = &#34;DSN=NWIND&#34;
X.dbMagicCell = &#34;(;,[]#|~/+{})CustomerID,,<INPUT NAME=&#39;CustomerID_#0#&#39; TYPE=TEXT MAXLENGTH=5 SIZE=25 VALUE=&#39;#1#&#39;>;Freight,,<INPUT NAME=&#39;Freight_#0#&#39; TYPE=TEXT SIZE=10 VALUE=&#39;#6#&#39;>&#34;
X.dbNavigationItem = &#34;None&#34;
X.dbSQL = &#34;SELECT OrderID,CustomerID,EmployeeID,OrderDate,RequiredDa te,ShippedDate,Freight FROM Orders&#34;
X.dbCountSQL = &#34;SELECT COUNT(1) FROM Orders&#34;
X.dbUserLocalText = zHead & &#34;,<Center><h3>Full Screen Edit Demo</h3></Center>;&#34;
X.ASPdb
%>
<center><input type=&#34;submit&#34; value=&#34;Go Full Screen Update&#34;></center>
</form>



FK

[Lana Mosby]

I tried the example and it works, however, I have a problem with it working when I add a where clause to the sql statement. I only need users to be able to edit a select group of records.
Example:
X.dbSQL = &#34;SELECT cpccID,cpccnameofchemical,cpccChemicalDistributor, cpccDateReceived,cpccDateofPurchase,cpccQuantity FROM tblcpcc where cpccuserid =&#39;usera&#39;&#34;



------------
Frank Kwong at 10/14/01 12:50:47 AM

are you running it on Northwind ?
>>... Multiple-step OLE DB operation generated errors
have not seen this error before ? What is it ?

------------
Amber Reyngoudt at 10/12/01 6:08:41 PM

I just posted a question about this 10/11. I tried to modify this code below to work for my db, but had some issues.

I get an error on
rs(&#34;CustomerID&#34= F1

The error is the following.
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.



------------
Frank Kwong at 7/23/01 2:58:08 AM

It borders me a lot when users told me that they are using ASP-db and they are also buying another component just to do the full-screen editing ! While the advanced Full screen edit is in the 2002 version yet today&#39;s user seemed to be left out for the meanwhile. User A. Agapov pointed out to me that ASP-db can do full screen editing today and he is using it with no problem. After trying his suggestion and he is right !! The following is a very short example. The whole trick is to put the INPUT in the MagicCell. Now things are getting interesting. Looks like you can impose the conditions of the fields before it is being set to Edit.

Try it out and see what you think !


<%
if Request.Form.Count > 0 then
dim cnn, rs, F1, F2, i, Top, Bottom
set cnn = Server.CreateObject( &#34;ADODB.Connection&#34
cnn.Open &#34;DSN=NWIND&#34;
set rs = Server.CreateObject( &#34;ADODB.Recordset&#34
rs.Open &#34;orders&#34;, cnn,, 3
Top=Clng(session(&#34;SV_RecordPointer_999&#34)
Bottom=Recptr + clng(session(&#34;SV_GridInc_999&#34)
for i = Top to bottom
F1=Request.Form(&#34;CustomerID_&#34; & rs(&#34;OrderID&#34)
F2=CCur(Request.Form(&#34;Freight_&#34; & rs(&#34;OrderID&#34))
If F1 <> rs(&#34;CustomerID&#34 then
rs(&#34;CustomerID&#34= F1
end if
If F2 <> rs(&#34;Freight&#34 then
rs(&#34;Freight&#34= F2
end if
rs.MoveNext
next
rs.Close
cnn.Close
end if
%>

<form method=&#34;POST&#34; action=&#34;FullEdit.asp&#34;>
<!-- #include Virtual=/ASPDB/ASPdb.Inc -->
<%
Set X= Server.CreateObject(&#34;ASP.DB&#34
X.dbUnit = &#34;999&#34;
X.dbMode = &#34;Grid&#34;
X.dbDSN = &#34;DSN=NWIND&#34;
X.dbMagicCell = &#34;(;,[]#|~/+{})CustomerID,,<INPUT NAME=&#39;CustomerID_#0#&#39; TYPE=TEXT MAXLENGTH=5 SIZE=25 VALUE=&#39;#1#&#39;>;Freight,,<INPUT NAME=&#39;Freight_#0#&#39; TYPE=TEXT SIZE=10 VALUE=&#39;#6#&#39;>&#34;
X.dbNavigationItem = &#34;None&#34;
X.dbSQL = &#34;SELECT OrderID,CustomerID,EmployeeID,OrderDate,RequiredDa te,ShippedDate,Freight FROM Orders&#34;
X.dbCountSQL = &#34;SELECT COUNT(1) FROM Orders&#34;
X.dbUserLocalText = zHead & &#34;,<Center><h3>Full Screen Edit Demo</h3></Center>;&#34;
X.ASPdb
%>
<center><input type=&#34;submit&#34; value=&#34;Go Full Screen Update&#34;></center>
</form>



FK