Текущий архив: 2002.10.07;
Скачать: CL | DM;

Вниз

Как программно создать 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";

---

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

Текущий архив: 2002.10.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.016 c