hur.cn - 华软网

 热门搜索

如何用PB在程序中创建后端(SQLSever的存储过程?

  作者:未知    来源:网络    更新时间:2018/3/3
如题,
------华软网友回答------
string ls_sql
ls_sql = 'CREATE PROCEDURE au_info_all ' +&
' AS SELECT au_lname, au_fname, title, pub_name ' +&
'   FROM authors a INNER JOIN titleauthor ta +&
  '    ON a.au_id = ta.au_id INNER JOIN titles t +&
 '     ON t.title_id = ta.title_id INNER JOIN publishers p +&
'      ON t.pub_id = p.pub_id '
EXECUTE IMMEDIATE :ls_sql;
if sqlca.sqldbcode = 0 then
//
else
//
end if

------华软网友回复------
前面加上sqlca.autocommit = true

------华软网友回复------
方法1.
放一个mle控件然后在上面输入sql语句
如:
CREATE PROCEDURE atest 
@type2 int =1
AS
.....

然后在程序中
ls_sql = mle_1.text
sqlca.autocommit = true
EXECUTE IMMEDIATE :mle_1.text
...

方法2,
string ls_sql
//用~r~n来表示换行
ls_sql += 'CREATE PROCEDURE au_info_all AS ~r~n'
ls_sql += "Select * from .... ~r~n"
....
sqlca.autocommit = true
EXECUTE IMMEDIATE :ls_sql
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。