一段简单的ProC连接Oracle的代码.
![](https://www.cnblogs.com/Images/OutliningIndicators/ContractedBlock.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
1 int connectDb()
2 {
3 EXEC SQL BEGIN DECLARE SECTION;
4 char username[20];
5 char password[20];
6 char connect_string[20];
7 EXEC SQL END DECLARE SECTION;
8
9 strcpy(username,"lbc1");
10 strcpy(password,"lbtux");
11 strcpy(connect_string, "lbc1");
12
13 EXEC SQL CONNECT :username IDENTIFIED BY :password USING :connect_string;
14 if ( sqlca.sqlcode < 0 )
15 {
16 return -1;
17
18 }
19 }