嵌入式的SQL程序设计 RED_CURSOR red_CURSOR CONNECT TO servername.databasename AS connection_name USER LOGIN.PASSWORD CONNECTION connection_name DISCONNECT connection_name SQL CONNECT TO red.book AS con1 USER sa; 38 EXEC SQL CONNECT TO red.t
嵌入式的SQL程序设计
RED_CURSOR red_CURSOR CONNECT TO servername.databasename AS connection_name USER LOGIN.PASSWORD CONNECTION connection_nameDISCONNECT connection_name SQL CONNECT TO red.book AS con1 USER sa; 38 EXEC SQL CONNECT TO red.test AS con2 USER sa; 39 EXEC SQL DISCONNECT CON1 40 EXEC SQL DISCONNECT CON2SQL BEGIN DECLARE SECTION 47 INT CompanyIDSQL END DECLARE SECTION“WHERE CompanyID=:CompanID”SQL SELECT FROM Company 58 WHERE Address=：ADDRESSstmt_name FROM :hvarSQL BEGIN DECLARE SECTION“insert into company values(?,?)”companynameSQL END DECLARE SECTIONPRINTF(“输入单位代码：”) 81 SCANF(“%S”,COMPANYID) 82 PRINTF(“输入单位名称：”) 83 scanf(“%s”,companyname) 84 EXEC SQL PREPARE stmt FROM :stmtcon 85 EXEC SQL EXECUTE stmt USING:COMPANYID,:COMPANYNAMESQL BEGIN DECLARE SECTION SQL END DECLARE SECTION 91 EXEC SQL SELECT COMPANYNAME INTO :COMPANYNAMEcursor_name INSENSITIVE SCROLL CURSOR FOR select_stmt column_list定义游标，并打开SQL COMPANYID,COMPANYNAME SQL OPEN C1SQL BEGIN DECLARE SECTIONCOMPANYNAMESQL END DECLARE SECTION(SQLCODE==0)122 {123 EXEC SQL FETCH C1 INTO :COMPANYID,:COMPANYNAME124 PRINTF(“%S,%S”,COMPANYID,COMPANYNAME)125 }SQL BEGIN DECLARE SECTION“SELECT COMPANYID FROM COMPANY WHERE COMPANYNAME=?”;“北京怡神公司”；； SECTION SQL SELECT_STATEMENT; SQL139 PREPARE SELECT本文来源[email protected]搞@^&代*@码网(_STATEMENT FROM :SZCOMMANDSQL OPEN CON_CURSOR USING:SZCOMPANYNAME;142 EXEC SQL FETCH CON_CURSOR INTO:SZCOMPANYID;，
转载请注明原文链接：嵌入式的SQL程序设计
