记录集更新问题。

Question

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset, cmd As New ADODB.Command
conn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\windows temp\temp\1.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from users", conn, adOpenKeyset, adLockPessimistic
cmd.ActiveConnection = conn
cmd.CommandText = "insert into users values ('a','b')"
cmd.Execute
Do While Not rs.EOF
  List1.AddItem rs.Fields(0).Value
  rs.MoveNext
Loop
rs.Close
conn.Close当我用command命令直接对数据库进行操作，
记录集里面并没有相应地得到更新。
把游标改为服务端不知道能不能解决这个问题，
不过听说游标用服务端效率不高啊。
各位兄弟还有什么其它解决方法？

Answer 1

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset, cmd As New ADODB.Command
conn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\windows temp\temp\1.mdb"
rs.CursorLocation = adUseClientcmd.ActiveConnection = conn
cmd.CommandText = "insert into users values ('a','b')"
Comm.CommandType = adCmdText
cmd.Executrs.Open "select * from users", conn, adOpenKeyset, adLockPessimistic
Do While Not rs.EOF
  List1.AddItem rs.Fields(0).Value
  rs.MoveNext
Loop
rs.Close
conn.Close

Answer 2

有哪里出現錯誤呀﹐不過你要仔細看﹐我看了一下﹐cmd.Execut   要改為cmd.Execute

Answer 3

Comm.CommandType = adCmdText为什么指定了命令类型就可以更新了？？?
 zengrunqiu(我要分) 解释一下好吗？

Answer 4

Comm.CommandType = adCmdText为什么指定了命令类型就可以更新了？？?
 zengrunqiu(我要分) 解释一下好吗？