procedure

问题 Find the below code: Sub Button1_Click() argh = Shell("C:\Users\YYYY\Desktop\test1.bat", vbNormalNoFocus) End Sub When I run call a Bat file from Subroutine, I always get below error. Attached screen shot as well. "Run time Error" "Invalid Procedure call or argument" 回答1: We cannot run a .bat file from Excel macro , It will always ask for the Administrator permissions. Better Create a .vbs file and call the .bat file from .vbs file. .vbs file : Save the file as runbatch.vbs Set objShell =

问题 If you will look at the code of FreeAndNil procedure you will see: procedure FreeAndNil(var Obj); var Temp: TObject; begin Temp := TObject(Obj); Pointer(Obj) := nil; Temp.Free; end; What is the reason they assigning Nil to an object reference and only after this destroying it? Why not vice-versa? 回答1: I can think of two reasons for doing it this way round, neither of which seems at all compelling. Reason 1: to guarantee that the reference is set to nil in case an exception is raised The

问题 When I try to compile the procedure with collection type as in parameter, I'm getting the error like wrong number or types of arguments in call to 'P_AA' -------Procedure created with in parameter as nested table------------ create or replace procedure p_aa(serv in t45) is aa serv_item%rowtype; begin for i in 1..serv.count loop select a.* into aa from serv_item a where a.serv_item_id = serv(i); dbms_output.put_line('Serv item '||aa.serv_item_id||' '||'status '||aa.status); end loop; end; / --

问题 I need to change C code from below to a MIPS code but I am new to MIPS and stuck with it. Here is the C code: int main() { int a, b, result; if(a == b) result = a*b; else result = assess(a, b); return result; } int assess(int a, int b) { if(b<a) return upgrade(a, b); else return demote(a, b); } int upgrade(int a, int b) { return 4*(a+b); } int demote(int a, int b) { return 4*(b-a); } Here is MIPS code that I wrote, which isn't working (I am aware there are major errors and wrongs). Because I

问题 I keep getting a syntax error at line 9 CREATE PROCEDURE `ItemsAddOrEdit`( _itm_id INT, _itm_name VARCHAR(255), _itm_price FLOAT(8,2) ) BEGIN IF _itm_id = 0 THEN INSERT INTO items (itm_name, itm_price) VALUES (_itm_name, _itm_price); ELSE UPDATE items SET itm_name = _itm_name, itm_price = _itm_price WHERE itm_id = _itm_id; END IF; END Are the variables the problem? I've checked the table to see if I messed the names up, but it all seems fine to me. Here's the table code CREATE TABLE `items` (

问题 I keep getting a syntax error at line 9 CREATE PROCEDURE `ItemsAddOrEdit`( _itm_id INT, _itm_name VARCHAR(255), _itm_price FLOAT(8,2) ) BEGIN IF _itm_id = 0 THEN INSERT INTO items (itm_name, itm_price) VALUES (_itm_name, _itm_price); ELSE UPDATE items SET itm_name = _itm_name, itm_price = _itm_price WHERE itm_id = _itm_id; END IF; END Are the variables the problem? I've checked the table to see if I messed the names up, but it all seems fine to me. Here's the table code CREATE TABLE `items` (

问题 This question already has an answer here : Segmentation fault when passing internal function as argument (1 answer) Closed last year . I am trying to have a generic subroutine event() and a procedure pointer to this generic subroutine, event_i. Then I would like to create any subroutine (like hello_wolrd in the following code) and point to this created subroutine. Can you help me to understand why the first code does not work while the second one does work? The error I get with the first

问题 I have a stored procedure running in Firebird Database. Now I try to use this stored procedure to build a report in the SSRS 2012 (SSDT) Report Designer. After I connect to the dataset, and when I choose the Query Type as 'Stored Procedure', and type the name of my stored procedure, and then go to the Query Designer, and click ! (F5), I get the following error: TITLE: Microsoft SQL Server Report Designer ------------------------------ An error occurred while executing the query. ERROR [HY000]

问题 im trying to convert from a let-form to an unamed procedure form and i just can't get the hang of it. the let procedure is this. (define max-recursive (lambda (lst) (if (null? (cdr lst)) (car lst) (let ((m0 (car lst)) (m1 (max-recursive (cdr lst)))) (if (> m0 m1) m0 m1 ) ) ))) and what i've done so far is this (define max-recursive (lambda (lst) (if (null? (cdr lst)) (car lst) ((lambda (m0 m1) (if (> m0 m1) m0 m1 ) ) car lst (max-recursive (cdr lst))) ))) any help would be appreciated thank

问题 I'm trying to extract Stored procedure DDL by querying system tables. If I run the following query select * from dbc.tvm where TableKind = 'P' both fields RequestText and CreateText contain NULL. Is there any way to query Stored Procedure body apart from using SHOW PROCEDURE? Thank you. 回答1: The DDL (SPL) for the Stored Procedures is not stored in the data dictionary tables. If you do not retain your DDL in a repository for version control you will need to script the SHOW PROCEDURE commands