- 论坛徽章:
- 0
|
$include sqlca;
main()
{
$char DbNameLc[19];
char ErrMsg[512];
$long int num;
$char name[20+1];
$char address[20+1];
printf( "Enter name of database: " );
gets( DbNameLc );
$database $DbNameLc;
if( SQLCODE == 0 )
printf( "Database %s is now open.\n", DbNameLc );
else
{
rgetmsg((short)sqlca.sqlcode,ErrMsg,sizeof(ErrMsg));
printf( "Error in opening database: %d:%s\n", SQLCODE,ErrMsg);
}
$declare CustPtr scroll cursor for select * from test;
$open CustPtr;
$fetch first CusPtr into $num,$name,$address;
printf("=====================\n");
printf("The num is:%d\n",&num);
printf("=====================\n");
printf("The name is:%c\n",&name);
printf("=====================\n");
printf("The address is:%c\n",&address);
printf("======================\n");
$close database;
if(SQLCODE == 0)
printf("Database %s is now close.\n",DbNameLc);
else
{
rgetmsg((short)sqlca.sqlcode,ErrMsg,sizeof(ErrMsg));
printf( "Error in opening database: %d:%s\n", SQLCODE,ErrMsg);
}
exit( 0 );
}
无法显示数据库所列出的信息! |
|