Otomatik Odbc Alias oluşturma

[lom]

s.a kolay gelsin herkese.
Accses den ufak bir program yaptım. Bu programı başka bir makinaya kurduğumda Veri Kaynakları OdBC den veritabanının yolunu falan gösteriyorum. Ayarlarını yapıyorum , programım öle çalışıyor. Acaba bu işlemleri otomotik programın içinde direkt yaptırabilirmiyim ? Teşekkürler ?

[mkysoft]

Programınızdan ODBC kaynaklarını kullanarak değilde, direk connection string kullanarak bağlansanız böyle bir sorun olmaz.

[lom]

http://forums.devshed.com/delphi-progra ... 86049.html

Şöyle bir uygulama var ama daha inceleyemedim. İşimi görürmü acaba ?

[hi_selamlar]

evet işine yarar.
zaten aradığın kodda bu zaten...

[lom]

s.a
ben bu kodu denedim ancak bi sorunum var.
Verilen örnekte ODBC pas oluşturmuş ben onun yerine direkt Datamodul'ün create olayına yazdım.

Kod: Tümünü seç

unit DATAMODUL;

interface

uses
  windows,SysUtils, Classes, DB, ADODB;

    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;
   ODBC_REMOVE_DEFAULT_DSN=7;

function SQLConfigDataSource(HwndParent:HWND;FRequest:WORD;Driver:PChar;
                                   Attributes:Pchar):boolean;Stdcall;
function SQLGetInstalledDrivers(Size:String;Buff:WORD;BuffOut:WORD):boolean;Stdcall;
function  SQLConfigDataSource;external 'odbccp32.dll' name 'SQLConfigDataSource';
function SQLGetInstalledDrivers;external 'odbccp32.dll' name 'SQLGetInstalledDrivers';

Daha sonra create oalyına da

Kod: Tümünü seç

procedure TDM.DataModuleCreate(Sender: TObject);
begin
SqlConfigDataSource(0, ODBC_ADD_DSN, 'Microsoft Access Driver (*.mdb)', 'DSN=ANASTEZI\0 Database=E:\Delphi\ANASTEZİ\DB\ANASTEZI.mdb\0 uid=username\0 pwd=somepassword\0');
end;

şeklinde yaptım. adoconnection nesnesinin connectionstring'ini sildim. Program açıldığında verikaynağı bulunamadı mesajı verdi. Nerede yanlış yapıyorum acaba ?
Kolay gelsin.