Access Sybase from Visual Basic.

//Defineourdatabasevariables
__object*con=NULL;
__object*rs=NULL;
charconnstr[1024];
charVersionNo[1024];

memset(&Error,0,sizeof(Error));
memset(ProjectName,0,128);

//RetrieveCSProjectName
DMGetRuntimeProjectA(ProjectName,128,&Error);
DMGetProjectInformationA(ProjectName,&Info,&Error);

//RetrieveCSDSNName
sprintf(connstr,"DSN=%s",Info.szDSNName);
con=__object_create("ADODB.Connection");
rs=__object_create("ADODB.RecordSet");

//OpenDatabase
con->Open(connstr);

//CheckifConnectiontoDBissuccessfull.
if(con->State==0)
printf("DBConnectionFailed\r\n");
else
{
//printf("ConnectionSuccessful\r\n");
rs->Open("SELECT*FROMMCPTPROJECT",con,1);
//Copyvalueofthirdcolumn
strcpy(VersionNo,rs->Fields(2));
con->Close();
}

//Freeourdatabaseobjects
__object_delete(rs);
__object_delete(con);

//SetTagValuefromDatabase.
SetTagChar("VersionNumber",VersionNo);

return0;