急求解决方法，各位高手！在线等！

Question

Public CnnDSN As New ADODB.Connection     '定义一个全局的连接
Dim RstSQL As New ADODB.Recordset
dim SQL
SQL="SELECT insur_id FROM LotteryTable WHERE Person_ID=" & Trim(Str(RndNumber)) & ""
set  RstSQL=CnnDSN.execute(SQL)
若此时的CnnDSN已连接到数据库，则以上方法就没问题了
然后  countall = RstSQL.Fields("insur_id") 
好了，就是这样了。提醒一句： 把Exit Sub去掉.

Answer 1

标  题: 关于VB中数据绑定的问题想问问各位高手,急急急!!各位高手,本人用VB+SQL7编了一个有关人事的东西,但有个问题始终不能解决,请各位高手
不吝赐教:
    本人用的数据库连接是:
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=MSDASQL;dsn=jzfw;uid=;pwd=;
 
 打开数据库:
 adoRS.Open Ssql, db, adOpenStatic, adLockOptimistic
尝试用 adLockBatchOptimistic参数也不行
用数据库绑定到textbox,就好似用VB自动生成那样的方法.
问题系:当两个用户同时修改同一记录的同一字段的时候,一更新第二个用户就出现错误,需
要第二个用户刷新之后再修改保存才行
请各位高手帮帮忙,小弟真的很急阿!
email:[email protected]