beautypg.com

HP Integrity NonStop H-Series User Manual

Page 60

background image

printf("Insert Successful : %d\n", val);
strcpy(SelectTable,"select * from GGTest" );
st = SQLExecDirect(hstmt1,(SQLCHAR *)
SelectTable,strlen(SelectTable));
if (st != SQL_SUCCESS)
{
printf("Error in select table : GGTest\n");
odbc_Error(henv,hdbc1,hstmt1);
}
st = SQLBindCol(hstmt1, 1, SQL_C_SLONG, &value, 0, &ValInd);
if(st != SQL_SUCCESS)
{
printf("Error in SQLBindCol\n");
odbc_Error(henv,hdbc1,hstmt1);
}
while(TRUE)
{
if ((st = SQLFetch(hstmt1)) == SQL_NO_DATA_FOUND)
break;
if ( (st != SQL_SUCCESS) && (st != SQL_SUCCESS_WITH_INFO) )
{
printf("Error in SQLFetch!!! Returned Status: %d\n", st);
break;
}
if (ValInd == SQL_NULL_DATA)
{
printf("No Data Fetched!\n");
break;
}
else
{
printf("c1 :: %d\n", value);
}
}
st = SQLExecDirect(hstmt1,(SQLCHAR*)"drop table
GGTest",SQL_NTS);
if (st != SQL_SUCCESS)
{
printf("Error in drop table : GGTest\n");
odbc_Error(henv,hdbc1,hstmt1);
}
else
printf("\nTable GGTEST dropped!\n");
st = SQLEndTran(SQL_HANDLE_DBC,(SQLHANDLE)hdbc,SQL_ROLLBACK);
if (hstmt)
SQLFreeStmt(hstmt,SQL_CLOSE);
if (hstmt1)
SQLFreeStmt(hstmt1,SQL_CLOSE);
SQLDisconnect(hdbc);
SQLFreeHandle(SQL_HANDLE_DBC, hdbc);
SQLDisconnect(hdbc1);
SQLFreeHandle(SQL_HANDLE_DBC, hdbc1);
SQLDisconnect(hdbc2);
SQLFreeHandle(SQL_HANDLE_DBC, hdbc2);
SQLFreeHandle(SQL_HANDLE_ENV, henv);
return 0;
}

60

Sample ODBC application

This manual is related to the following products: