Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.04;
Скачать: CL | DM;

Вниз

как отключить 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. что насчет второго совета?


 
-=snoop=- ©   (2005-07-26 12:15) [9]

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


 
-=snoop=- ©   (2005-07-26 12:27) [10]

чего-то я уже запарился совсем....((
вот

//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)") ;

щас попробую забанить....


 
-=snoop=- ©   (2005-07-26 12:30) [11]

хе! реально, из-за

gADOquery1.SQL.Add("ALTER TABLE user.pro ADD COLUMN grupp c(20)") ;


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

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



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

Текущий архив: 2005.09.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.036 c
14-1123321352
Sniper-Max
2005-08-06 13:42
2005.09.04
Не работает ИК под XP (под 2K все нормально) :(


3-1121934665
Fedelio_
2005-07-21 12:31
2005.09.04
Время работы с DBF на разных машинах


2-1081121430
ChiNick
2004-04-05 03:30
2005.09.04
Как работать с цветом


4-1121435065
chili
2005-07-15 17:44
2005.09.04
Как заблокировать файл?


2-1123234342
Smersh03-1
2005-08-05 13:32
2005.09.04
Летающие формы