提一个关于application.lock的问题

[xiang70]

application.lock
set SqlRecordSet = Server.CreateObject("ADODB.RecordSet")
strSelect = "select max(ItemId) from ips_Others"
call SqlRecordSet.Open(strSelect, Sqlconn)
if SqlRecordSet.BOF <> TRUE then SqlRecordSet.MoveFirst()
if isnull(sqlrecordset.fields(0).value) then
maxItemid=0
else
maxItemid=sqlrecordset.fields(0).value
end if
sqlrecordset.close
maxItemId=maxItemId+1
strInsertItem="insert into IPS_others values("&cint(maxItemId)&","&cint(disid)&",'"&sstype&"','"&machine1&"','"& machine2 &"','"&width&"','"&comment&"','使用')"
sqlconn.execute(strinsertItem)
application.unlock

在上面这段程序中，application.lock是否有效的锁定了程序代码，是不是一定要在里面加入application对象才可以锁定对象

[仙人掌]

锁定是为了避免在加入数据时和别人冲突吧

[xiang70]

对阿，但我看的资料都是要求有application对象的，我现在如果没有对象，可以锁定，达到互斥吗？

[BrentIvan]

你这段代码有问题。
Application.Lock就是防止对Application的并发操作， Application.Lock后，其他用户不能对Application进行操作，只到Application.Unlock。但你这中间并没有对Applicaton的使用，所以没有必要Lock

[playmud]

agree up

[zwangli]

没用的。application.lock只能锁定application。

提供一个解决方案：先插入条纪录，取得id号，然后再进行修改，存入真正的数据。