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".

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

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

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

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

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