25/04/2012, 21:49
accessman
iyi akşamlar
be eklediğim kod delphi için
otomatik ODBC bağlantısı yapmak için
bunu accessda yapmam lazım
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;