Problem mit Access beim Starten meiner Applikaion

[Dreamer]

Beim Starten meines Programms folgende Meldung:
http://img174.imageshack.us/img174/5...rserverlg0.jpg

Es hat etwas mit Access zu tun, leider hab ich keine Ahnung, was das soll...

Nach Bestätigen der Fehlermeldung ist die Applikation ganz normal zu gebracuhen. Ohne jegliche Einschränkungen.

Kann mir jemand helfen?

[matthiasl]

Probier mal:

Delphi-Quellcode:

  procedure InstallMagicKeys;
    var
      reg:tRegistry;

    procedure CheckMagic(Key, Value:String);
      begin
        if not reg.KeyExists(Key) then begin
          reg.OpenKey(Key,True);
          reg.WriteString('',Value);
        end;
      end;

    begin
      try
        reg:=tRegistry.Create;
        try
          reg.RootKey:=HKEY_CLASSES_ROOT;
          CheckMagic('\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905','aahakhchghkhfhaamghhbhbhkbpgfhahlfle');
          CheckMagic('\Licenses\66ab70d0-55d3-11cf-804c-00a02424e927','lieuqkjdgoqpHTML');
          CheckMagic('\Licenses\70781760-55dd-11cf-a97f-0020af3f87b5','lieuqkjdgoqpHTTPCT');
          CheckMagic('\Licenses\73f6ab30-5598-11cf-8389-0020af697014','lieuqkjdgoqpftpct');
          CheckMagic('\Licenses\86c3e880-5595-11cf-96e7-0080c7c3c284','lieuqkjdgoqpnntpct');
          CheckMagic('\Licenses\8B7FE740-50AC-101B-A3C9-08002B2F49FB','mjgcqcejfchcijecpdhckcdjqigdejfccjri');
          CheckMagic('\Licenses\8CC49940-3146-11CF-97A1-00AA00424A9F\Retail','yubcdcprktpjtapmmfdacmupasbhscddncgp');
          CheckMagic('\Licenses\b315c530-5298-11cf-aaa2-0020af2cee5e','lieuqkjdgoqpWINSCK');
          CheckMagic('\Licenses\b7444ee0-55be-11cf-96e7-0080c7c3c284','lieuqkjdgoqpsmtpct');
          CheckMagic('\Licenses\F4FC596D-DFFE-11CF-9551-00AA00A3DC45','mbmabptebkjcdlgtjmskjwtsdhjbmkmwtrak');
          CheckMagic('\Licenses\fb7663e0-5505-11cf-a676-0020af6a0bf2','lieuqkjdgoqppopct');
        finally
          reg.free;
        end;
      except
      end;
    end;

Das hab ich mal von einem bekannten Programmierer bekommen, mit dem Hinweis, das es alle meine Accessprobleme lösen würde, wenn als erste Zeile meines Programms diese Keys gesetzt werden. Ich habe nie rausbekommen, was die bewirken, aber ich hatte auch nie Probleme mit der DAO von Access... :roll:

[Heffalump]

Dein Guid {73A4C9C1-D68D-11D0-98BF-00A0C90DC8D9} ist der von MS Access selbst. Er wird zum Erzeugen des Objektes für den Zugriff über Ole/COM benötigt. Ich vermute mal, dass Du direkt oder indirekt MS Access verwendest und sich diese nicht starten lässt. allerdings ist eine Fehlerklärung mit den wenigen Angaben schwierig. Kann man wahrscheinlich nur am lebenden Objekt vornehmen.

[MrKnogge]

Zeig doch mal den Code vom Zugriff auf die Datenbank.

[Dreamer]

Hallo!
@Heffalump: Da könntest du nicht ganz unrecht haben. Das Problem tritt aussschließlich auf Rechner auf, die kein Access installiert haben oder die nur eine Runtime besitzen.

Auf Rechnern mit Access gibt es keinerlei Probleme.

Delphi-Quellcode:

ADOQuery1.Active := false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'SELECT * FROM tabelle WHERE feld LIKE :xy';
ADOQuery1.Parameters.ParamByName('xy').Value:= '%'+edit1.text+'%';
ADOQuery1.Active := true;

und

Delphi-Quellcode:

ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName('feld').AsString:=edit1.text;
ADOTable1.Post;
ADOTable1.Close;
DataModule1.ADOConnection1.Close;

Diese Zugriffe finden aber nicht beim Starten des Programes statt!


Edit: An den Lizenzen, den "MagicKeys" lag es nicht.

[Dreamer]

Problem gelöst:
Ich hatte eine TAccessApplication auf dem Formular liegen :roll: