#include <odbcinst.h>
#pragma comment(lib,  "odbccp32" )
#pragma comment(lib,  "user32" )
#include <afxdb.h> // CDatabase

const char* dsn_c =  "DSN=My test Database" ;
const char* driver =  "Microsoft Access Driver (*.mdb)" ;
//####################################################################

bool createDSN(const char* dir, const char* file) // v dannom sly4ae dir zakan4ivaetsya na  "\" 
{
	char params[ 1024 ] = { 0 };
	char* p =  0 ;
	char* des =  "Description=Database for test" ;
	char dd[ 256 ] = { 0 }; strcpy(dd,  "DefaultDir=" ); strcat(dd, dir);
	char df[ 256 ] = { 0 }; strcpy(df,  "DBQ=" ); strcat(df, file);
	char cmd[ 512 ] = { 0 }; sprintf(cmd,  "CREATE_DB=%s%s" , dir, file);

	// ydalyaem bazy, ina4e bydet oshibka pri sozdanii faila bazi
	sprintf(params,  "%s%s" , dir, file);
	remove(params);

	strcpy(params, dsn_c);
	p = &params[ 0 ];
	do{ p++; } while(*p);
	p++;
	strcat(p, des);
	do{ p++; } while(*p);
	p++;
	strcat(p, dd);
	do{ p++; } while(*p);
	p++;
	strcat(p, df);
	do{ p++; } while(*p);

	// sozdaem sam fail bazi dannih
	if(!SQLConfigDataSource(NULL, ODBC_ADD_DSN, driver, cmd))
		return false;
	// sozdaem isto4nik dannih
	if(!SQLConfigDataSource(NULL, ODBC_ADD_DSN, driver, params))
		return false;
	// ny i sama stryktyra bazi 4erez CDatabase
	CDatabase db;
	db.OpenEx(dsn_c, CDatabase::noOdbcDialog);
	db.ExecuteSQL(
		 "CREATE TABLE alarms ( \
		id LONG NOT NULL PRIMARY KEY, \
		chislo LONG NOT NULL, \
		stroka VARCHAR(20 ))"
		);
	db.Close();
             // ili fynkciyami ODBC
             // SQLAllocHandle, SQLSetEnvAttr, SQLDriverConnect, SQLExecDirect i pr.
	return true;
}