operations on web

[Conrad Lindes]

I have a number of database operations, such as appends, field updates, and deleting selected records, which work fine on the desk top. How do I get these operations to run on the data on the server from a web application?

[Steve Workings]

Re: operations on web

There are a couple ways to do this.

One would be to encapsulate your operations in functions and/or scripts, then create an .AEX file to add to your web server. Plenty of info on that in the help files and further on this board.

There are also various ways to create the instructions right in a component or on an .a5w page. For instance, if you were working with an export of the Alphasports customer.dbf, you could put this code in an Advanced Button on a dialog:

<%A5
a_tbl = table.open("[pathalias.adb_path\customer")
export.type = 4
export.names = .T.
export.file = "[pathalias.adb_path]\customer.xls"
export.options = "QLTS"
export.field_sep = ","
export.record_sep = "<CR><LF>"
export.fields = 19
export.field1 = "customer_id"
export.field2 = "firstname"
export.field3 = "lastname"
etc. etc. etc.
a_tbl.export()
a_tbl.close()
%>

You don't have to write the code by hand; you can use the operations you already have, and just borrow the Xbasic for your web page or component.

[NicholasWieland]

Re: operations on web

First I would go through the Samples that come with Alpha and read/purchase
xbasic for everyone by Dr Peter Wayne good read and very helpful.

Like Steve just mentioned take your current xbasic and add to an advanced button.

Besides the AEX route which I would love but cant seem to get to work you can make a5w page called e.g. update_customertable.a5w
and put your customer table update code in there and call the page from a link or to do a redirect after you have finished with the current page so the code runs and another to go back etc.

Hope this is helpful

Nicholas Wieland

[Conrad Lindes]

Re: operations on web

I set up a trial database and created an operation to update a field. I made a grid of the database, put it on a web page, and published it. I made up an advanced button dialog and copied into it the xbasic from the operation. I put the dialog into a webpage and published it. I opened the dialogue page and clicked on the button. Something seemed to happen, but the data in the database page did not change (after refreshing). I clicked on the button and then clicked submit. Still, no field update occurred.

[Al Buchholz]

Re: operations on web

Do you have the table name fully qualified? You need the path and table name.. Just in case the database isn't open on the server.....

Or like Steve's example...
"[pathalias.adb_path]\customer"

[MikeC]

Re: operations on web

Conrad,
And you did place the xbasic between the Alpha code tags?? Just one of the very FEW things I realize must be done.

<%A5

xbasic code

%>

[Conrad Lindes]

Re: operations on web

Thanks for the suggestion. I had not done that. When I tried to do it, in the server events part of the dialogue builder, I got an error message - line 1, column 1 - "Error:Expected value" . What am I doing wrong?

[Al Buchholz]

Re: operations on web

Thanks for the suggestion. I had not done that. When I tried to do it, in the server events part of the dialogue builder, I got an error message - line 1, column 1 - "Error:Expected value" . What am I doing wrong?

Conrad

Please post what you have... My guessing is not too good today..

[Conrad Lindes]

Re: operations on web

dim mru as p
mru = mru_query("z_experiment")
current_filter = mru.filter
current_order = mru.order
current_flags = mru.flags

'Check to see if current filter/order is valid in the context of "z_experiment"
if current_filter <> "" then
if eval_valid(current_filter,"z_experiment") =.f. then
a5_Operation_Warning() 'Display warning if current selection is meaningless
current_filter = ".t."
end if
end if

if current_order <> "" then
if eval_valid(current_order,"z_experiment") = .f. then
current_order = ""
end if
end if

a_tbl = table.open("z_experiment")
ON ERROR GOTO ERROR06062009195656890


DIM a5_operation_filter as C
a5_operation_filter = current_filter
query.filter = a5_operation_filter
DIM a5_operation_order as C
a5_operation_order = current_order
query.order = a5_operation_order
query.options = "I"+current_flags
query.description = "Temporary Query"
a_tbl.query_create("N")

update.fields = 1
update.field1 = "TRUE_OF_FALSE"
update.expr1 = "if(Numbre_Two>5,.t.,.f.)"

'Prompt for confirmation before running the Operation.......
dim rec_count as n

rec_count = a5_get_records_in_query("z_experiment",a5_operation_filter,-1,.f.)
message_text = rec_count + " record(s) from 'z_experiment' will be updated."+crlf(2)+ "OK to proceed?"
operation_result=ui_msg_box("Update Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
If operation_result <> ui_ok_selected then
end
end if



a_tbl.update()


GOTO CONTINUE06062009195656890
ERROR06062009195656890:
ON ERROR GOTO 0
ui_msg_box("Error","Error running Update Operation"+crlf()+error_text_get())
END
CONTINUE06062009195656890:
a_tbl.close()
'Display a dialog box showing the results of the Operation
'(If last parameter is blank, button to show result is not displayed).
dim args as sql::arguments
if eval_valid("arguments") then
if typeof(arguments) = "P" then
args = arguments
end if
end if
a5_update_op_result(a_records_processed, a_records_violated,"z_experiment",a5_operation_filter,args)

'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then
if topparent.Class() = "form" .or. topparent.class() = "browse" then
topparent.Refresh_layout()
end if
end if

[Al Buchholz]

Re: operations on web

Conrad

Let me clarify. If you've tried this on the web, you have a web page or dialog that contains your code.....

All of that code would be good to look at.

[Conrad Lindes]

Re: operations on web

You have to come down a level. Yes, I have set up a dialogue that contains the code I sent you. What else do you want me to sent. Tell me in English, not alpha-ese.