pb11+ebservice开发分布式三层应用3.docVIP

pb11+webservice开发分布式三层应用 WEBSERVICE服务端的开发 新建立一个workspace工作区 先择FILE菜单下的NEW，新建一个工作区。 点击后出现下图 在文件名处输入工作区的名称，假设我们的工作区名为webserver，单击保存按钮。这样工作区就建立成功了。 建立一个.net web service 应用 点击FILE菜单下的NEW 选中 .net web service 点击 ok按钮 点击 next按钮 点击 next按钮 这里我们不修改pbl库名，当然你可以按你的意思修改库名，点击 next 按钮。 一直点 next按钮直到出现 这里需要注意一点，如果你当前的IIS端口，不是默认的80 ，那么在localhost后面要加上 “:81” ，假设你的端口号是81的话。 再点击一次next直到finish按钮。 连接数据库 我们先来建立一个数据库的连接以为后期的webservice服务提供一个连接。 打开系统生成的 n_webservice对像 在里面写上 // Profile EAS Demo DB V110 SQLCA.DBMS = ODBC SQLCA.AutoCommit = False SQLCA.DBParm = ConnectString=DSN=EAS Demo DB V110;UID=dba;PWD=sql 我是拷贝了，安装PB11默认的安装的ASA数据库，这里你可以修改成你的数据库连接参数。 数据库建立完成后，我们再建立一个ue_retrieve的方法用来提取数据库数据 在N_webservice对像里创建立一个名为DS1的数据存储 datastore 在DS1 的 dberror里面写上 ls_err_a=sqlerrtext//////// 注意：将ls_err_a 定义为一个实例变量,如果你看不清楚出入参定义可以将本图片另存放大就可以看到了。 //////////////////////////////////////////////////////////////////////////// // 用于取单一的数据窗口blob值 // // // // 将数据窗口检索到blob，并将blob返到客户端 // // // // guoac // // // // 入参 ls_syntax--传入一个字符串的数据窗口对像语法用于重构数窗 // // 入参 ls_sql 传入一个条件字符串，用于附加where 条件 // // // 出参 dwo_blob 传出一个存储数据窗口对像的blob // // // // dwo_blob 回传参数 // //////////////////////////////////////////////////////////////////////////// long ll_row,ll_returnrow string ls_returnmodiy string ls_oldsql,ls_newsql,ls_error string csa int i,LI_WHERE connect; if SQLCA.SQLCode 0 then as_returnerr=连接数据库出错,请检查数据库连接参数。+string(sqlca.sqlerrtext