各位VB大哥，本人是个初学VB的人，在遇见用ADO操作数据库时候遇见一些问题，求教，一定给分

[xxhhyy]

各位VB大哥，本人是个初学VB的人，在遇见用ADO操作数据库时候遇见一些问题，求教，一定给分

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset



cn.open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=E:\VcCode\Tong40\res\tong.mdb"

rs.open "tongdata", cn

'--------------------------------
rs.MoveFirst
Dim Str
Str = rs.Fields("姓名")

MsgBox Str
'我可以读取里面的数据，但是却不能添加数据
rs.AddNew
rs.Fields("姓名") = "aaaa"
rs.Update


rs.Close
cn.Close
'VB说 实时错误'3251':提供者不支持应用程序所要求的操作


怎么回事

[guest]

1：rs.open "tongdata", cn 改为
rs.open "tongdata", cn, adOpenKeyset, adLockOptimistic
2； 建议，用INSERT INTO

[Timyy]

如果你的MDB库不是只读，版本也对的话,并且EDIT可以的话。
ADO在这种情况下可能不支持ADDNEW。
那么你可以SQL语句来完成你的任务。
sSQL = "INSERT INTO tongdata (姓名) values ('aaaa')"
cn.Execute sSQL
就可以了。

[longyear]

同意jinesc(www.jinesc.com)

[seesi]

rs.open "tongdata", cn, 3, 3

[001chb]

connection和recordset有几个属性,缺省时数据库是只读的,要改成可读写!

今天出差,回去后可给你代码!
可以参考MSDN的ADO的CONNECTION和RECORDSET对象!

[vbFly]

大家看看我的问题好吗？急死了！

[xxhhyy]

谢谢拉

[guest]

vbFly(雪如月)　:
你的问题在哪里呀