cobol连接数据库

mysql/DB2:

Cobol代码

$SET SQL(dbman=ODBC, DB=ConnToMysql, INIT)
IDENTIFICATION DIVISION.
PROGRAM-ID. cobol-mysql.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 TBL-STUDENT.
03 STU-ID PIC 9(4) COMP-5.
03 STU-NAME PIC X(20).
EXEC SQL END DECLARE SECTION END-EXEC.
PROCEDURE DIVISION.
MAIN SECTION.
Begin.
* EXEC SQL
* CONNECT WITH PROMPT
* END-EXEC.
* IF SQLCODE <> 0
* DISPLAY SQLCODE
* DISPLAY SQLERRMC
* END-IF.
* EXEC SQL
* CREATE TABLE TBLSTUDENT(
* STU_ID INT(4) PRIMARY KEY,
* STU_NAME CHAR(20),
* CLASS_ID INT(2)
* )
* END-EXEC.
EXEC SQL
INSERT INTO TBLSTUDENT (
STU_ID,STU_NAME,CLASS_ID)
VALUES (
1,'STUDENT1',1)
END-EXEC.
IF SQLCODE <> 0 THEN
DISPLAY SQLCODE
DISPLAY SQLERRMC
ELSE
EXEC SQL COMMIT END-EXEC
END-IF.
MOVE 1 TO STU-ID.
EXEC SQL
SELECT STU_NAME INTO :STU-NAME
FROM TBLSTUDENT WHERE STU_ID = :STU-ID
END-EXEC.
DISPLAY STU-NAME.
STOP 0.

ConnToMysql为DSN名（配置ODBC时指定的数据源名）

Oracle:

CONNECT :USERNAME IDENTIFIED BY :PASSWD USING :DBNAME

SQL Server:

CONNECT TO "ConnToSQLServer" USER :USERNAME WITH NO PROMPT

转自：http://leeyb.iteye.com/blog/420020

cobol连接数据库相关推荐

【VB】学生信息管理系统3——连接数据库的前提
在窗体设计和编写程序代码后,需要进行数据库的连接. 大概要做的:下载安装数据库--配置数据源ODBC--测试连接数据库--进行数据库中内容的添加. 关键是这些我都不会,这才是重点! 在学习数据库的过程 ...
网页如何与mysql服务器建立连接不上,html与mysql建立连接数据库
html与mysql建立连接数据库内容精选换一换云数据库 GaussDB(for MySQL)是华为云提供的一款安全.可信的数据库服务.GaussDB(for MySQL)秉承华为云对租户的安全 ...
db2删除大量数据_Python 连接数据库的多种方法
Python是一种计算机程序设计语言,它是一种动态的.面向对象的脚本语言.它是一种跨平台的,可以运行在 Windows,Mac和 Linux/Unix系统上. 在日常使用中需要对大量数据进行数据分析, ...
Navicat连接数据库成功，新建查询时提示错误“Cannot create file ……”
Navicat连接数据库成功,新建查询时提示错误"Cannot create file --" 原因:编辑连接{高级}<设置位置>被修改,该oci.dll不正确解决方 ...
php使用pdo操作mysql数据库实例_php5使用pdo连接数据库实例
本文为大家介绍下php pdo的用法. 一,pdo简介 pdo(php data object) 是php 5 中加入的东西,是php 5新加入的一个重大功能,因为在php 5以前的php4/php3 ...
JDBC编程：1(使用JDBC连接数据库)
使用JDBC连接数据库下载连接MySQL数据库的驱动这个jar包可以在官网上对照着你的MySQL版本来下载,这里我下载的是最新的8.0.20版本, 这里是8.0.20版本的驱动包:mysql-co ...
如何使用jdbc连接数据库
如何使用jdbc连接数据库数据库是一个有组织的数据集合.数据库管理系统以一种与数据库格式一致的方式,提供了存储和组织数据的机制.数据库管理系统允许在不考虑内部数据表示的情况下访问和存储数据. jav ...
用户管理系统控制台版连接数据库
建User表 CREATE TABLE `user` (`id` INT(11) NOT NULL AUTO_INCREMENT,`name` VARCHAR(20) DEFAULT NULL,`pw ...
使用Properties连接数据库
使用Properties连接数据库要注意的是: 1.通过配置文件来连接数据库时,连接信息要以 mysql.XXX开头,否则会提示异常. java.sql.SQLException: Access d ...

cobol连接数据库

cobol连接数据库相关推荐

最新文章

热门文章