برداشتن فایل قفل در کنار برنامه اکسس

[as13851365]

d.asle.Connected:=false;

d.asle.ConnectionString:='Provider=Microsoft.Jet.O LEDB.4.0;User ID=Admin;Data Source='+
pchar(open.FileName)
+';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry
Path="";Jet OLEDBatabase Password=¶$‘ÂöøøòÑíÇá¡ËÂŽÅÃÜ«; Jet OLEDB:Engine Typ'+
'e=5;Jet OLEDBatabase 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 OLEDBon''t Copy Locale on '+
'Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

d.asle.Mode:=cmShareExclusive;

d.asle.Connected:=false;

خوب لطفا بگید کجای این کد اشکال داره که نمی تونم بعد از تغییر بانک با دستور زیر مقدار Mode را تغییر بدم
d.asle.Mode:=cmShareExclusive;

هرکاری می کنم نمی تونم این مقدار را تغییر بدم و مقدار Mode برابر با cmShareDenyNone می شود و نمی توان این مقدار را تغییر داد و در نهایت فایل مزبور دوباره دیده می شه ( فایلی با علامت قفل و هم نام با فایل اکسس و با پسوند LDB )

[1795]

با سلام
فكر كنم بايد connected=true باشه تا جدول كانكت بشه و مشكل حل بشه

[as13851365]

با سلام
فكر كنم بايد connected=true باشه تا جدول كانكت بشه و مشكل حل بشه

خوب دوست گرامی من تمام کار ها را انجام می دم اما یک مشکل دارم ؟

اگر میشه شما یک کاری بکنید تا مشکل من را راحتر بفهمید اگر تونستید به ما هم یاد بدید که چه کنیم ؟

شما یک برنامه ساده بنویسید و در این برنامه از بانک اکسس استفاده کنید بعد از بانک خود کپی کرده و نام دیگری به آن بدهید خوب در برنامه وقتی که اجرا کردید کاری کنید که این بانک را به برنامه وصل کنید و بانک اولی را که وصل کردید را قطع کنید

به محض این که در برنامه بانک را تغییر می دم دیگر نمی تونم Mode را تغییر دهم وقتی هم که بانک اصلی را دوباره به برنامه وصل می کنم باز هم Mode را نمی تونم تغییر بدم

اگر تونستید سوال من را بفهمید من منتظر جواب و یا راهنمائی شما هستم اما اگر نتونسیتد بفهمید من یک نمونه برنامه برای شما می نویسم تا مشکل من را راحتتر بفهمید