как отключить exclusive длступ у ADOQuery ?

← →
-=snoop=- © (2005-07-26 07:38) [0]

здрасти всем!
МАСТЕРА подскажите как быть?, есть таб. *.dbf,не могу зделать 2й ADOQuerry, SQL говорит что не может подключиться к базе, попробовал подключиться с помащью FoxPro = результат тот же= ADOQuerry юзает таблицу в эксклюзивном режиме, подскажите как справиться?

← →
-=snoop=- © (2005-07-26 09:06) [1]

← →
sniknik © (2005-07-26 10:33) [2]

> как отключить exclusive длступ
не включать его...
> с помащью FoxPro
тоже самое

← →
-=snoop=- © (2005-07-26 10:46) [3]

))) это понятно, что в фоксе я набрал
Set exclusive off
и у меня счастье, а как это зделать в delphi не знаю
копаюсь с параметрами подключения ADOconnectionstring, там можно это все отрегулировать, а вот как вставить в код параметры не имею представления...
вот код которые наваял=
gADOquery1 := TADOQuery.Create(form1) ; gADOquery1.Name := "gADOdta" ; gADOquery1.ConnectionString := "Provider= VFPOLEDB.1;"+ "Data Source="+gPthVl+"\pro\user.pro;Share Deny None"+ "Password="";Collating Sequence=MACHINE" ; gADOquery1.CursorType := ctDynamic ; gADOquery1.CursorLocation := clUseClient ;
((( не работает Share Deny None

← →
sniknik © (2005-07-26 10:54) [4]

> не работает Share Deny None
убери. это раз. тем более что задееш ео неправильно (неудивительно. приведи строку к нормальному виду, сразу видно будет)
используй компонент коннекта. это два.

← →
-=snoop=- © (2005-07-26 11:08) [5]

если просматривать форму по alt+F12(As Text)
то код выглядит сл.образом
"Provider=VFPOLEDB.1;Data Source=E:\bst\PRO;Mode=ReadWrite;Passwo" + "rd="";Collating Sequence=MACHINE"
(это если использовать компонент...)

у gADOquery1.Connection есть св-во Mode ? которое может принимать значения
cmUnknown The permissions have not yet been set for the connection or cannot be determined.
cmRead Read-only permissions are available to the connection.
cmWrite Write-only permissions are available to the connection.
cmReadWrite Read/write permissions are available to the connection.
cmShareDenyRead Prevents others from opening connections with read permissions.
cmShareDenyWrite Prevents others from opening connection with write permissions.
cmShareExclusive Prevents others from opening connection.

cmShareDenyNone Prevents others from opening connection with any permissions.
попробую...
а с "картинками" не хочу))

← →
sniknik © (2005-07-26 11:29) [6]

> Mode=ReadWrite
убери
"Provider=VFPOLEDB.1;Data Source=E:\bst\PRO;Password="";Collating Sequence=MACHINE"
так и задавай.

← →
-=snoop=- © (2005-07-26 12:03) [7]

я так делал))

← →
sniknik © (2005-07-26 12:10) [8]

и?
у себя открываю 5 программ с этим коннектом, в них один и тот же запрос к одной таблице... блокировок нет.

если у тебя есть, опиши... как?

p.s. что насчет второго совета?

юзать компоент?

чего-то я уже запарился совсем....((
вот
//1 gADOquery1 := TADOQuery.Create(form1) ; gADOquery1.Name := "gADOdta" ; gADOquery1.ConnectionString := "Provider=VFPOLEDB.1;Data Source="+gPthVl+"\PRO;Password="";Collating Sequence=MACHINE"; gADOquery1.CursorType := ctDynamic ; gADOquery1.CursorLocation := clUseClient ; try gADOquery1.SQL.Clear ; gADOquery1.SQL.Add("ALTER TABLE user.pro ADD COLUMN grupp c(20)") ; gADOquery1.ExecSQL; except //2 lADOq4change := TADOQuery.Create(form1) ; lADOq4change.Name := "lADOq4change" ; lADOq4change.ConnectionString := "Provider=VFPOLEDB.1;Data Source="+gPthVl+"\PRO;Password="";Collating Sequence=MACHINE" ; lADOq4change.CursorLocation := clUseClient ; lADOq4change.CursorType := ctDynamic ; lADOq4change.SQL.Clear ; lADOq4change.SQL.Add("select code, name from user.pro order by name") ; lADOq4change.Active := true ; showmessage(inttostr(lADOq4change.RecordCount));

**может это из-за
gADOquery1.SQL.Add("ALTER TABLE user.pro ADD COLUMN grupp c(20)") ;
щас попробую забанить....

хе! реально, из-за
gADOquery1.SQL.Add("ALTER TABLE user.pro ADD COLUMN grupp c(20)") ;

щет! надо думать...)))

sniknik спасибо за помощь!

как отключить exclusive длступ у ADOQuery ? Найти похожие ветки