关于拦截ADOConnection，请虾们入内，，，内详，，(50分)

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #1

在Data Module里，通过ADOConnection1联接数据库，该应用程序所有的adoquery,adocommand
等都是通过此ADOConnection1联库并进行相应的写库的读库操作。
不知如何实现下功能：即对于所的adoquery,adocommand的写库操作（insert ,update,delete...）
等进行拦截，而只能对库进行读操作，，

小弟曾在ADOConWillExecute里事件，试过，但没成功。。。

 

Z

zhangxinfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #2

up

 

N

nicklung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #3

TADOConnection.OnWillExecute

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #4

to nicklung,能不能说详细点，

 

N

nicklung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #5

你看看 Tadoconnect.OnWillExecute 的帮助

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #6

AdoConnection1.mode:=cmRead;

 

B

baifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #7

to HunterTeam：此法我已试过，但不知为什么无效

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #8

那就用nicklung的方法，在AdoConnection控件的WillExecute中写如下代码：
if uppercase(copy(CommandText,1,6))<>'SELECT' then CommandText:='select '''' ';