Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Программное создание DSN   Найти похожие ветки 

 
Леди   (2005-09-02 11:48) [0]

Подскажите, как программно в источниках данных ODBC создать системный DNS, а также проверить его существование?


 
DiamondShark ©   (2005-09-02 12:04) [1]

SQLConfigDataSource
SQLDataSources


 
Леди   (2005-09-02 12:40) [2]

А в каких модулях или библиотеках находятся эти функции и где поподробней о них можно узнать?


 
Игорь Шевченко ©   (2005-09-02 16:44) [3]


> А в каких модулях или библиотеках находятся эти функции
> и где поподробней о них можно узнать?


odbccp32.dll

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odbc/htm/odbcsqlconfigdatasource.asp


 
Dick Gonsales   (2005-09-07 09:17) [4]

Одно время я этим пользовался. нашел в интернете, кто автор не знаю.

unit SystemDSN;

interface
uses
   Windows, Sysutils, Classes;
const
ODBC_ADD_DSN        = 1;    
ODBC_CONFIG_DSN     = 2;    
ODBC_REMOVE_DSN     = 3;    
ODBC_ADD_SYS_DSN    = 4;    
ODBC_CONFIG_SYS_DSN = 5;    
ODBC_REMOVE_SYS_DSN = 6;    

type
TSQLConfigDataSource = function( hwndParent: HWND;
                                 fRequest: WORD;
                                 lpszDriver: LPCSTR;
                                 lpszAttributes: LPCSTR ) : BOOL; stdcall;

function CreateDSN( DriverName, Path, DSNName, Description : string; Mode : integer ) : boolean;

implementation

function CreateDSN( DriverName, Path, DSNName, Description : string; Mode : integer ) : boolean;
var
pFn: TSQLConfigDataSource;
hLib: LongWord;
strAttr: string;
begin
   Result := false;
   if ( DriverName = "" ) or ( Path = "" ) then
        exit;
   hLib := LoadLibrary( "ODBCCP32" );    
   if hLib = 0 then
   begin
        MessageBox(HWND(nil), "Not found ODBCCP32.DLL", "Error!", 4112);
        exit;
   end;
   @pFn := GetProcAddress( hLib, "SQLConfigDataSource" );
   if( @pFn <> nil ) then
   begin
         strAttr := Format( "DSN=" + DSNName + #0 +
                            "DBQ=%s" + #0 +
                            "Exclusive=0" + #0 +
                            "Description=" + Description + #0 + #0,
                            [ Path ] );
         Result := pFn( 0, Mode, @DriverName[1], @strAttr[1] );
    end;
  FreeLibrary( hLib );
end;

end.

// Пример вызова
  if not SystemDSN.CreateDSN("Microsoft Access driver (*.mdb)",NameDB,"Report","",1)
  then MessageDlg(("Ошибка создания DSN - Report."),mtError, [mbOK], 0);




Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.042 c
2-1127019464
intel
2005-09-18 08:57
2005.10.16
база данных


1-1127307206
DelphiLexx
2005-09-21 16:53
2005.10.16
Избежать мерцания при перемещении


14-1127718048
Vudu
2005-09-26 11:00
2005.10.16
Почему забегают часы?


2-1125984829
voyage_rost
2005-09-06 09:33
2005.10.16
базы данных


4-1124106668
Knop
2005-08-15 15:51
2005.10.16
Написать на Canvas





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский