Как программно создать ODBC DSN

← →
Lord Warlock © (2002-09-11 14:38) [0]

Вот как это сделал я, замечания приветствуются.

type {$EXTERNALSYM SQLConfigDataSource} function SQLConfigDataSource(hwnd: HWND; fRequest: UINT;lpszDriver:PChar;lpszAttributes:PChar): BOOL;stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var A,B: array [0..MAX_PATH] of Char;
begin
a:="Driver do Microsoft Access (*.mdb)";
b:="DSN=pkpriv"#0"DBQ=Dиск:\Путь\база.mdb";
if SQLConfigDataSource(0, 4,a,b) then
ShowMessage("Ура!");
end;

Я сделал конкретно для добавления системного DSN Access (то самое 4)

Что значит 4 и как сделать для др. драйверов, см. MSDN или пишите, постараюсь ответить :)

← →
Lord Warlock © (2002-09-11 16:00) [1]

И конечно перед процедурой:

function SQLConfigDataSource; external "odbccp32.dll" name "SQLConfigDataSource";

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