Hallo,
habe da ein Problem, komme aber nicht weiter. Auf fremden Systemen läuft die Testapp nicht korrekt, beim Start erscheint immer die Meldung Arbeitsgruppendatei nicht vorhanden. Bei meinem Entwicklungsrechner ist alles auf Laufwerk D: installiert. Habe schon sämtliche *.MD? Dateien auf D: umbenannt um das Problem zu simulieren. Irgendwas zieht die JET 4.0 Engine an, ich weis nur nicht was. Wenn ich z.B. einen Rechner nehme und D: auf ein CDROM Laufwerk (ohne einliegender CD) umbiege, erscheint die Meldung Laufwerk oder Netzwerkfehler. Also wird irgend eine Datei angezogen.
Kann mir jemand sagen welche Datei dort gesucht wird ? Oder besser noch die Frage, was muss beachtet werden wenn man die Testapp weitergibt, müssen etwa Registryinformationen angepasst werden.
Ich ging immer davon aus das eine MDB und eine MDW ausreicht.
Die jetzige Steuersequenz sieht folgendermaßen aus:
<pre>
//************************************************** ****************************
procedure TxfmSetup.CreateUDLFile;
var
WideList : TWideStringList;
x : WideString;
begin
WideList := TWideStringlist.Create;
try
x :=
'[oledb]'#13#10+
'; Everything after this line is an OLE DB initstring'+#13#10+
'Provider=Microsoft.Jet.OLEDB.4.0;'+#13#10+
'Persist Security Info=False;'+#13#10+
'User ID=Admin;'+#13#10+
'Data Source='+DataBaseDir+dbName+';'+#13#10+
'Jet OLEDB:System database='+DataBaseDir+dbSysName+';'+#13#10+
'Mode=Share Deny None;'+#13#10+
'Extended Properties="";'+#13#10+
'Jet OLEDB:Registry Path="";'+#13#10+
'Jet OLEDBatabase Password="";'+#13#10+
'Jet OLEDB:Engine Type=5;'+#13#10+
'Jet OLEDBatabase Locking Mode=1;'+#13#10+
'Jet OLEDB:Global Partial Bulk Ops=2;'+#13#10+
'Jet OLEDB:Global Bulk Transactions=1;'+#13#10+
'Jet OLEDB:New Database Password="";'+#13#10+
'Jet OLEDB:Create System Database=False;'+#13#10+
'Jet OLEDB:Encrypt Database=False;'+#13#10+
'Jet OLEDB:Compact Without Replica Repair=False;'+#13#10+
'Jet OLEDB:SFP=False;';
with WideList do
begin
SaveUnicode := True;
Add(x);
try
WideList.SaveToFile(ProgrammDir+UdlFileName);
except
cnErrorMsg('Datenbank UDL - Systemdatei konnte nicht erstellt werden.');
end;
end;
finally
WideList.Free;
end;
end;
</pre>
Gruß
Mathias
habe da ein Problem, komme aber nicht weiter. Auf fremden Systemen läuft die Testapp nicht korrekt, beim Start erscheint immer die Meldung Arbeitsgruppendatei nicht vorhanden. Bei meinem Entwicklungsrechner ist alles auf Laufwerk D: installiert. Habe schon sämtliche *.MD? Dateien auf D: umbenannt um das Problem zu simulieren. Irgendwas zieht die JET 4.0 Engine an, ich weis nur nicht was. Wenn ich z.B. einen Rechner nehme und D: auf ein CDROM Laufwerk (ohne einliegender CD) umbiege, erscheint die Meldung Laufwerk oder Netzwerkfehler. Also wird irgend eine Datei angezogen.
Kann mir jemand sagen welche Datei dort gesucht wird ? Oder besser noch die Frage, was muss beachtet werden wenn man die Testapp weitergibt, müssen etwa Registryinformationen angepasst werden.
Ich ging immer davon aus das eine MDB und eine MDW ausreicht.
Die jetzige Steuersequenz sieht folgendermaßen aus:
<pre>
//************************************************** ****************************
procedure TxfmSetup.CreateUDLFile;
var
WideList : TWideStringList;
x : WideString;
begin
WideList := TWideStringlist.Create;
try
x :=
'[oledb]'#13#10+
'; Everything after this line is an OLE DB initstring'+#13#10+
'Provider=Microsoft.Jet.OLEDB.4.0;'+#13#10+
'Persist Security Info=False;'+#13#10+
'User ID=Admin;'+#13#10+
'Data Source='+DataBaseDir+dbName+';'+#13#10+
'Jet OLEDB:System database='+DataBaseDir+dbSysName+';'+#13#10+
'Mode=Share Deny None;'+#13#10+
'Extended Properties="";'+#13#10+
'Jet OLEDB:Registry Path="";'+#13#10+
'Jet OLEDBatabase Password="";'+#13#10+
'Jet OLEDB:Engine Type=5;'+#13#10+
'Jet OLEDBatabase Locking Mode=1;'+#13#10+
'Jet OLEDB:Global Partial Bulk Ops=2;'+#13#10+
'Jet OLEDB:Global Bulk Transactions=1;'+#13#10+
'Jet OLEDB:New Database Password="";'+#13#10+
'Jet OLEDB:Create System Database=False;'+#13#10+
'Jet OLEDB:Encrypt Database=False;'+#13#10+
'Jet OLEDB:Compact Without Replica Repair=False;'+#13#10+
'Jet OLEDB:SFP=False;';
with WideList do
begin
SaveUnicode := True;
Add(x);
try
WideList.SaveToFile(ProgrammDir+UdlFileName);
except
cnErrorMsg('Datenbank UDL - Systemdatei konnte nicht erstellt werden.');
end;
end;
finally
WideList.Free;
end;
end;
</pre>
Gruß
Mathias
Comment