Question

我目前正在cobol2中创建我的项目..我正在使用微焦点的可视化cobol并且我的数据库使用了Ado.net ..在openesql助手的界面上我可以在我的数据库表中插入值.. 但是在我点击按钮1上的项目形式上我发现了一条错误，上面写着“没有设置SQL指令”

（这是我的代码

method-id button1_Click final private.
   procedure division using by value sender as object e as type System.EventArgs.

   EXEC SQL
    INSERT INTO NayreInventory  
    (ItemCode
    ,ItemDescription
    ,Quantity
    ,Price
     ) VALUES (
     :NayreInventory-ItemCode:NayreInventory-ItemCode-0001
    ,:NayreInventory-ItemDescription:Col-2-MEDICOL
    ,:NayreInventory-Quantity:NayreInventory-Quantity-5
    ,:NayreInventory-Price:NayreInventory-Price-150
     )
   END-EXEC. 

   invoke type MessageBox::Show("1 RECORD HAS BEEN SUCCESSFULLY ADDED", "RESULT")
   end method.

）如何摆脱错误.. 请帮帮我..我真的没帮你..

Answer 1

你也有这样的消息号吗？

＆＃34; 0149没有设置SQL指令＆＃34;

该消息的描述是：

＆＃34;遇到了EXEC SQL语句但未指定SQL指令。语句的处理取决于是否设置了指令SQL;必须明确指定SQL或NOSQL。

参见： “服务器快速用户指南”中“编译器指令”一章中的SQL编译器指令。＆＃34;

所以看起来你错过了一个＆＃34;编译器选项＆＃34;来自你的编译脚本。

来自：http://supportline.microfocus.com/documentation/books/sx20books/emsynt.htm

要获取信息，我只是用Google搜索了您的错误消息。

Answer 2

有几个ways to specify Micro Focus COBOL compiler directives。指定SQL/NOSQL directive的一种方法是将指令嵌入到COBOL源代码中，并在第7列中使用$，如下所示：

      $SET SQL

或者，根据您的需要：

      $SET NOSQL

您还可以使用command line：

cob -C SQL ...source file name and other arguments

点击链接了解更多详情。

可视cobol中的Sql Directives错误

2 个答案: