Programmet virker kun i samme mappe.

Mit umiddelbare gæt er at du i din ConnectionString på din ADOConnection bare har angivet navnet på din database og altså ikke nogen sti. Derfor vil programmet kun virke hvis databasen ligger i samme folder som din .exe fil. Du kan evt. lave det så du loader stien til databasen ind fra en .ini fil !

Snowball

Hvordan får jeg programmet til at hente oplysningerne fra ini filen?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
  private
    procedure LoadSettings;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

Uses Inifiles;

{$R *.DFM}

const
  DEF_CONN1 = 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=';
  DEF_DBPATH = 'db.mdb';
  DEF_CONN2 = ';Mode=ReadWrite;Persist Security Info=True';

procedure TForm1.LoadSettings;
var
  IniFile : TIniFile;
  DBPath: String;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
  DBPath := IniFile.ReadString('Main','DBPath',DEF_DBPATH);
  IniFile.Free;
  If FileExists(DBPath) Then Begin
    ADOConnection1.Connected := False;
    ADOConnection1.ConnectionString := DEF_CONN1 + DBPath + DEF_CONN2;
    ADOConnection1.Connected := True;
  End
  Else
    ShowMessage('Fejl - Databasen blev ikke fundet');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.LoginPrompt := False;
  LoadSettings;
end;

end.

Og din settings.ini ser sådan her ud:

[Main]
DBPath=C:\sti\til\db.mdb



Snowball

Takker det vil jeg lige prøve

Hvor skal jeg sætte dette ind henne.
[Main]
DBPath=C:\sti\til\db.mdb

i din ini fil

Kan jeg få installshield til at bestemme hvad der skal stå i filen?

Jeg får en fejl melding ved ADOConnection1.LoginPrompt := False;

Hvad er fejlen ?

Snowball

Det er en= Class EAcesssViolation with message 'Access violation at address 004C3138 in module 'project.exe'.
Ved ikke om det siger dig noget.

Eneste måde jeg lige kan komme i tanke om som kan give den fejl er hvis du kører din LoadSettings funktion inden du har lavet den form som ADOConnection1 er på. Dermed er ADOConnection1 komponenten jo ikke lavet endnu, og dermed får du Access Violation når du prøver på at tilgå den.

Snowball

hvad skal jeg gøre. jeg har prøve at sætte {} uden om load settings, men det gav den samme fejl.

Har du mulighed for at maile hele programmet og databasen til mig ? Så skal jeg gerne kigge på det. Giver selvfølgelig ikke din kode videre, og skal nok slette det efter vi er færdige her.

Snowball

Okay. Det prøver vi.

Hvad er din email?

mail@geertsen.dk

Snowball

Hhmm..Du har opsat din connection på en lidt mærkelig måde, men prøv dette:

1) Under Project -> Options -> Fanebladet Forms -> Under Auto-Create Forms flytter du ComwellData op så den står øverst på listen (ellers sker der netop det jeg forklarede i min kommentar 12:42:37)

2) Din FormCreate procedure laver du om så den ser ud som nedenstående (inkl. din ShowMessage besked ;)):

comwelldata.ADOConnection1.Provider := 'Microsoft.Jet.OLEDB.4.0';
comwelldata.ADOConnection1.LoginPrompt := False;
LoadSettings;

Så virker det hos mig :)

Snowball

Kanon, det virker næsten også. Jeg kan bare ikke skrive noget i mine felter. Så skal jeg skrive noget for at gøre databasen aktiv

Hvis du sætter nedenstående linier ind efter LoadSettings, så virker det:

comwelldata.DataSource1.Enabled := True;
comwelldata.ADOTable1.Active := True;


Snowball

Mange tak skal du have. Det er jeg glad. Virker programmet så lige meget hvor det ligger.

Ja, så længe du bare angiver den rigtige sti i settings.ini, så kan du køre programmet hvorfra du vil :)

Snowball

okay, får jeg så brug for min Data linker (xxxxx.udl).

Hej snowball din Delphi ekspert.

Jeg ved godt at man ikke må reklamer men har du set det her spm?

http://www.eksperten.dk/spm/404828

Nej, den skal du ikke bruge længere.

Snowball

ok. så siger jeg tak for hjælpen.