1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| bool CreateAliasODBC( AnsiString aAliasName, AnsiString aFilenameMDB )
{
TRegistry *reg = new TRegistry() ;
reg->RootKey = HKEY_CURRENT_USER ;
if( !reg->OpenKey( "\\Software\\ODBC\\ODBC.INI\\ODBC Data Sources",false ) )
{
return( false ) ;
}
reg->WriteString( aAliasName, "Microsoft Access dBASE Driver (*.dbf, *.ndx, *.mdx)" ) ;
if( !reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\" +aAliasName,true) )
{
return( false );
}
reg->WriteString( "DefaultDir", aFilenameMDB ) ;
reg->WriteString( "Driver", "C:\\PROGRA~1\\FICHIE~1\\MICROS~1\\OFFICE12\\ACEODBC.DLL" ) ;
reg->WriteInteger( "DriverId", 25 ) ;
reg->WriteString( "FIL", "dBASE 5.0" ) ;
reg->WriteString( "UID", "" ) ;
reg->WriteInteger( "SafeTransactions", 0 ) ;
delete reg ;
return( true );
}
////////////
CreateAliasODBC( "alias",Chemin) ; |
Partager