Скачать: CL | DM;

Open Dialog и базы MS Access.....   Найти похожие ветки 

← →
Галинка ©   (2004-04-20 17:11) [0]

Доброго всем времени суток!

Появился вопрос, связанный с открытием базы Акцес из моего приложения

Пока код такой

procedure TForm1.FileOpen1Click(Sender: TObject);
begin
if Form1.OpenDialog1.Execute then
  begin
    dmADO.DataModule2.ADOConnection1.ConnectionString:=
       "Provider=Microsoft.Jet.OLEDB.4.0; "+
       "User ID=Admin; "+"Password=Password; "+
       "DataSource="+Form1.OpenDialog1.FileName+
       " Mode=ReadWrite; "+
       "Extended Properties=""; "+
       "Persist Security Info=false; "+
       "Jet OLEDB:System database=" "; "+
       "Jet OLEDB:Registry Path=" "; "+
       "Jet OLEDB:Database Password=" "; "+
       "Jet OLEDB:Engine Type=5; "+
       "Jet OLEDB:Database Locking Mode=1; "+
       "Jet OLEDB:Global Partial Bulk Ops=2; "+
       "Jet OLEDB:Global Bulk Transactions=1; "+
       "Jet OLEDB:New Database Password=" " ; "+
       "Jet OLEDB:Create System Database=False; "+
       "Jet OLEDB:Encrypt Database=False; "+
       "Jet OLEDB:Don"+"t Copy Locale on Compact=False; "+
       "Jet OLEDB:Compact Without Replica Repair=True; "+
       "Jet OLEDB:SFP=False";
    dmADO.DataModule2.ADOTable1.TableName:="ZemlParam";
    dmADO.DataModule2.ADOTable2.TableName:="PunctyParam";
    dmADO.DataModule2.ADOTable1.Active:=true;
    dmADO.DataModule2.ADOTable2.Active:=true;
  end;

end;


Выдает ошибку EOleException "Дисковая или сетевая ошибка".
Кому не лень и кто может помогите пожайлуста...

---

← →
Digitman ©   (2004-04-20 17:22) [1]

чему равно РЕАРЬНОЕ зн-е св-ва

Form1.OpenDialog1.FileName

в момент  выполнения указанногго кода ?

---

← →
sniknik ©   (2004-04-20 17:24) [2]

задаеш лишнее и неправильно, можно все гораздо проще
...
dmADO.DataModule2.ADOConnection1.ConnectionString:=
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+OpenDialog1.FileName+";Persist Security Info=False";
...
и все;

Digitman ©   (20.04.04 17:22) [1]
скорее не это, скорее системную не находит, она у нее = #32

---

← →
Johnmen ©   (2004-04-20 17:25) [3]

и где ; после значения DataSource ?

---

← →
Anatoly Podgoretsky ©   (2004-04-20 17:29) [4]

А метод Open не требуется вызывать для TAdoConnection ?

---

← →
Галинка ©   (2004-04-20 17:33) [5]

После совета sniknik"а ошибка поменялась на "Невозможно найти устанавливаемый ISAM".

---

← →
Anatoly Podgoretsky ©   (2004-04-20 17:41) [6]

Это выгдядит так, что у тебя JET или библиотеки не установлены
Явное указание в дизайн тайм свойства ConnectionString в компоненте работает?

---

← →
sniknik ©   (2004-04-20 17:43) [7]

> А метод Open не требуется вызывать для TAdoConnection ?
необязательно.

Галинка ©   (20.04.04 17:33) [5]
приведи результирующую строку из отладчика, что в ADOConnection1.ConnectionString после занесения получается?

---

← →
sniknik ©   (2004-04-20 17:49) [8]

Anatoly Podgoretsky ©   (20.04.04 17:41) [6]
нет это ошибка самого jet-а (Не удается найти устанавливаемый драйвер ISAM. (Ошибка 3170)), и в принципе выдается в основном при неправильном задании Extended Properties (указание какой исам использовать), но после моего совета этой строки там не должно быть. ;о)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c