bool b = SQLConfigDataSource(NULL,  4 , "Driver do Microsoft dBase (*.dbf)", "COMPACT_DB=c:\\work\\dbfWork\\freq.dbf c:\\work\\dbfWork\\freq.dbf");
	if (!b)
	{
		CString strErrorMsg;
		for (int i =  1 ; i <=  8 ; i++)
		{
			WORD cbErrorMsg;
			DWORD dwErrorCode;
			RETCODE r = SQLInstallerError(i, &dwErrorCode, strErrorMsg.GetBuffer( 100 ),  100 , &cbErrorMsg);
			if (r == SQL_NO_DATA)
				break;
			strErrorMsg.ReleaseBuffer(cbErrorMsg);
			AfxMessageBox((const char *) strErrorMsg);
		}
	}
	else AfxMessageBox("Repair succeeded!");

    LPSTR szOldTableName;
    LPSTR szNewTableName
    FILE   *FileBinDbOld;
    FILE   *FileBinDbNew;
    char sdel;
    char list[ 512 ];
    int iRecordCount;
    short shHeaderSize, shRecordSize;
    FileBinDbOld = fopen(szOldTableName,"rb");
    if(FileBinDbOld != NULL){
 		fseek(FileBinDbOld, 4 ,SEEK_SET);
		fread(&iRecordCount,sizeof(int), 1 ,FileBinDbOld);
		fread(&shHeaderSize,sizeof(short), 1 ,FileBinDbOld);
		fread(&shRecordSize,sizeof(short), 1 ,FileBinDbOld);

		FileBinDbNew = fopen(szNewTableName,"wb");
	
		fseek(FileBinDbOld,- 12 ,SEEK_CUR);
		fread(&list,shHeaderSize,  1 , FileBinDbOld);
		fwrite(list,  1 , shHeaderSize, FileBinDbNew );

		int i =  0 ;
		while(i < iRecordCount){
			fread(&sdel,sizeof(char),  1 , FileBinDbOld);
			if(sdel == '*') fseek(FileBinDbOld,shRecordSize- 1 ,SEEK_CUR);
			else{
				fseek(FileBinDbOld,- 1 ,SEEK_CUR);
				fread(&list,shRecordSize,  1 , FileBinDbOld);
				fwrite(list, 1 , shRecordSize, FileBinDbNew );
			}
			i++;
		}

		fclose( FileBinDbNew );
    }
    fclose( FileBinDbOld );

   
    LPSTR szOldTableName;
    LPSTR szNewTableName
    FILE   *FileBinDbOld;
    FILE   *FileBinDbNew;
    char sdel;
    char list[ 512 ];
    int iRecordCount;
    short shHeaderSize, shRecordSize;
    FileBinDbOld = fopen(szOldTableName,"rb");
    if(FileBinDbOld != NULL){
 		fseek(FileBinDbOld, 4 ,SEEK_SET);
		fread(&iRecordCount,sizeof(int), 1 ,FileBinDbOld);
		fread(&shHeaderSize,sizeof(short), 1 ,FileBinDbOld);
		fread(&shRecordSize,sizeof(short), 1 ,FileBinDbOld);

		FileBinDbNew = fopen(szNewTableName,"wb");
	
		fseek(FileBinDbOld,- 12 ,SEEK_CUR);
		fread(&list,shHeaderSize,  1 , FileBinDbOld);
		fwrite(list,  1 , shHeaderSize, FileBinDbNew );

		int i =  0 ;
		while(i < iRecordCount){
			fread(&sdel,sizeof(char),  1 , FileBinDbOld);
			if(sdel == '*') fseek(FileBinDbOld,shRecordSize- 1 ,SEEK_CUR);
			else{
				fseek(FileBinDbOld,- 1 ,SEEK_CUR);
				fread(&list,shRecordSize,  1 , FileBinDbOld);
				fwrite(list, 1 , shRecordSize, FileBinDbNew );
			}
			i++;
		}
                      
                  fread(&list, 1 ,  1 , FileBinDbOld);
		fwrite(list,  1 ,  1 , FileBinDbNew );
		fclose( FileBinDbNew );
    }
    fclose( FileBinDbOld );

fread(&iRecordCount,sizeof(int), 1 ,FileBinDbOld);

fread(&shHeaderSize,sizeof(short), 1 ,FileBinDbOld);
fread(&shRecordSize,sizeof(short), 1 ,FileBinDbOld);

    
    LPSTR szOldTableName;
    LPSTR szNewTableName
    FILE   *FileBinDbOld;
    FILE   *FileBinDbNew;
    char sdel;
    сhar list[ 2048 ];
    int iRecordCount;
    short shHeaderSize, shRecordSize;
    FileBinDbOld = fopen(szTableName,"rb");
    if(FileBinDbOld != NULL){
 		fseek(FileBinDbOld, 4 ,SEEK_SET);
		fread(&iRecordCount,sizeof(int), 1 ,FileBinDbOld);
		fread(&shHeaderSize,sizeof(short), 1 ,FileBinDbOld);
		fread(&shRecordSize,sizeof(short), 1 ,FileBinDbOld);

	
		fseek(FileBinDbOld,shHeaderSize- 12 ,SEEK_CUR);
		int i =  0 ;
		int iCountDel =  0 ;
		while(i < iRecordCount){
			fread(&sdel,sizeof(char),  1 , FileBinDbOld);
			if(sdel == '*'){
				iCountDel++;
			}
			fseek(FileBinDbOld,shRecordSize- 1 ,SEEK_CUR);
			i++;
		}


		FileBinDbNew = fopen(szNewTableName,"wb");
 		fseek(FileBinDbOld,-(shHeaderSize+iRecordCount*shRecordSize+ 1 ),SEEK_END);
		fread(&list, 4 ,  1 , FileBinDbOld);
		fwrite(list,  1 ,  4 , FileBinDbNew );
		int iNewRecCount = iRecordCount-iCountDel;
		fwrite(&iNewRecCount, sizeof(int),  1 , FileBinDbNew );
		fseek(FileBinDbOld, 4 ,SEEK_CUR);
		fread(&list,(shHeaderSize- 8 ),  1 , FileBinDbOld);
		fwrite(list,  1 , (shHeaderSize- 8 ), FileBinDbNew );
		
		i =  0 ;
		while(i < iRecordCount){
			fread(&sdel,sizeof(char),  1 , FileBinDbOld);
			if(sdel == '*') fseek(FileBinDbOld,shRecordSize- 1 ,SEEK_CUR);
			else{
				fseek(FileBinDbOld,- 1 ,SEEK_CUR);
				fread(&list,shRecordSize,  1 , FileBinDbOld);
				fwrite(list, 1 , shRecordSize, FileBinDbNew );
			}
			i++;
		}
		fread(&list, 1 ,  1 , FileBinDbOld);
		fwrite(list,  1 ,  1 , FileBinDbNew );

		fclose( FileBinDbNew );
    }
    fclose( FileBinDbOld );