更新数据库

[macd43561]

各位高手帮我看一下,下面这段代码哪边有问题?出现错误:
实时错误'3251'
当前记录集不支持更新.这可能是提供程序的限制,也可能是选定锁定类型的限制
Dim sql As String
sql = "select * from reader where 编号='" & dz_login.bh.Text & "'"
Dim rs_xx As New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Set rs_xx = New ADODB.Recordset
cn.ConnectionString = "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"
cn.Open
rs_xx.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
rs_xx.Fields("通讯地址") = Text8.Text
rs_xx.Fields("联系电话") = Text9.Text
rs_xx.Fields("邮箱地址") = Text10.Text
rs_xx.Update
rs_xx.Close

[lingshao0909]

rs_xx.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
adLockReadOnly是只读属性，改成adLockOptimistic试试看行不行

[饮水需思源]

'新增记录用：
cn.execute "insert into 表名(字段1,字段2,...) values('"& 字符变量 &"',"& 数值变量 &")"
'更新记录用：
cn.execute "update 表名 set ... where ..."

[macd43561]

还是不行,急啊!!

[_l_]

Dim sql As String


Dim cn As New ADODB.Connection

cn.Open "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"


sql = "update reader set "
sql=sql & " 通讯地址='" & Text8.Text & "',"
sql=sql & " 联系电话='" & Text7.Text & "',"
sql=sql & " 邮箱地址='" & Text10.Text & "' "
sql=sql & " where 编号='" & dz_login.bh.Text & "'"
cn.execute SQL