使用COBOL.net访问数据库
日期：2012-08-05 浏览次数：20575 次
<@ Page language="COBOL">
<html>
<head>
<script runat="server" language="COBOL">
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
PROPERTY DataSource
PROPERTY myDataGrid
CLASS SqlConnection AS "System.Data.SqlClient.SqlConnection"
CLASS SqlCommand AS "System.Data.SqlClient.SqlCommand"
CLASS SqlDataReader AS "System.Data.SqlClient.SqlDataReader"
CLASS Sys-EventArgs AS "System.EventArgs"
CLASS Sys-Type AS "System.Type".
OBJECT.
PROCEDURE DIVISION.
METHOD-ID. ONLOAD AS "OnLoad" OVERRIDE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 mySqlConnection OBJECT REFERENCE SqlConnection.
01 mySqlCommand OBJECT REFERENCE SqlCommand.
01 mySqlDataReader OBJECT REFERENCE SqlDataReader.
01 myType OBJECT REFERENCE Sys-Type.
01 dataSource OBJECT REFERENCE ICollection.
LINKAGE SECTION.
01 args OBJECT REFERENCE Sys-EventArgs.
PROCEDURE DIVISION USING BY VALUE args.
INVOKE SUPER "OnLoad" USING BY VALUE args.
INVOKE SqlConnection "New" USING BY VALUE "Data Source=(local); Trusted_Connection=Yes;
Initial Catalog=pubs" RETURNING mySqlConnection.
INVOKE SqlCommand "New" USING BY VALUE "Select * From Publishers" mySqlConnection
RETURNING mySqlCommand.
INVOKE mySqlConnection "Open".
INVOKE mySqlCommand "ExecuteReader" RETURNING mySqlDataReader.
SET DataSource OF myDataGrid TO mySqlDataReader.
INVOKE myDataGrid "DataBind".
INVOKE mySqlConnection "Close".
END METHOD ONLOAD.
END OBJECT.
</script>
</head>
<html>
<head>
<script runat="server" language="COBOL">
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
PROPERTY DataSource
PROPERTY myDataGrid
CLASS SqlConnection AS "System.Data.SqlClient.SqlConnection"
CLASS SqlCommand AS "System.Data.SqlClient.SqlCommand"
CLASS SqlDataReader AS "System.Data.SqlClient.SqlDataReader"
CLASS Sys-EventArgs AS "System.EventArgs"
CLASS Sys-Type AS "System.Type".
OBJECT.
PROCEDURE DIVISION.
METHOD-ID. ONLOAD AS "OnLoad" OVERRIDE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 mySqlConnection OBJECT REFERENCE SqlConnection.
01 mySqlCommand OBJECT REFERENCE SqlCommand.
01 mySqlDataReader OBJECT REFERENCE SqlDataReader.
01 myType OBJECT REFERENCE Sys-Type.
01 dataSource OBJECT REFERENCE ICollection.
LINKAGE SECTION.
01 args OBJECT REFERENCE Sys-EventArgs.
PROCEDURE DIVISION USING BY VALUE args.
INVOKE SUPER "OnLoad" USING BY VALUE args.
INVOKE SqlConnection "New" USING BY VALUE "Data Source=(local); Trusted_Connection=Yes;
Initial Catalog=pubs" RETURNING mySqlConnection.
INVOKE SqlCommand "New" USING BY VALUE "Select * From Publishers" mySqlConnection
RETURNING mySqlCommand.
INVOKE mySqlConnection "Open".
INVOKE mySqlCommand "ExecuteReader" RETURNING mySqlDataReader.
SET DataSource OF myDataGrid TO mySqlDataReader.
INVOKE myDataGrid "DataBind".
INVOKE mySqlConnection "Close".
END METHOD ONLOAD.
END OBJECT.
</script>
</head>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
