be eklediğim kod delphi için
otomatik ODBC bağlantısı yapmak için
bunu accessda yapmam lazım
Kod:
procedure TDTM_MAIN.DTM_MAINCreate(Sender: TObject);
var
Reg: TRegistry;
VAR_ETIS_DIZINI:string;
begin
VAR_EXE_VERSIYON:='6.0';
DTB_ETIS.LoginPrompt:=True;
VAR_PROGRAM_DIZINI := ExtractFilePath(Application.ExeName);
VAR_ETIS_DIZINI:=Copy(VAR_PROGRAM_DIZINI,1,Pos('\PROGRAMS\',Uppercase(VAR_PROGRAM_DIZINI)));//Programin ana dizini bulunuyor....
// Etis dsn i kontorl ediliyor yoksa olusturuluyor
Reg := TRegistry.Create;
try
Reg.RootKey:=HKEY_CURRENT_USER;
if not Reg.OpenKey('Software\ODBC\ODBC.INI\Etis',False) and DirectoryExists(VAR_ETIS_DIZINI+'ASA\Win32\') then
begin
Reg.OpenKey('Software\ODBC\ODBC.INI\Etis',True);
Reg.WriteString('AutoStop','YES');
Reg.WriteString('Delphi','Yes');
Reg.WriteString('DatabaseFile',VAR_ETIS_DIZINI+'Databases\Etis.db');
Reg.WriteString('Driver',VAR_ETIS_DIZINI+'ASA\Win32\dbodbc8.dll');
Reg.WriteString('Integrated','NO');
end;
finally
Reg.CloseKey;
if not Reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
ShowMessage('Bilgisayarinizin ODBC sisteminde problem var...')
else
begin
Reg.WriteString('Etis','Adaptive Server Anywhere 8.0');
end;
Reg.CloseKey;
Reg.Free;
end;
end;
