dim MyRs as ADODB.Recrodset set MyRs=New ADODB.Recordset With MyRs .ActiveConnection=MyCnn .Cursortype=adOpenStatic .LockType=adLockOptimistic .Source="你的数据源" .Open End with 设有一个NAME字段,读出后,MyRs!NAME="新数据" MyRs.updata 即可
楼上的方法很对 不过如果用 .fields("列名").value 速度回快一点
怪问题!!! 运行以下代码为什么会出错(实施错误3251,对象或提供者不能执行以下的操作) Set rst1 = cn.Execute(str1) With rst1 .Fields("onuse") = "no" .Update End With
我这里有个用ado库的方法, '创建一个数据连接源 Dim cc As New ADODB.Connection '创建一个command 对象 Dim ca As New ADODB.CommandPrivate Sub Command1_Click()'创建connextion 连接源 cc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\aa.mdb;Persist Security Info=False" '设定command 对象的连接属性 ca.ActiveConnection = cc ' 设定command 对象要执行的SQ 你可以用更新,添加,删除,等sql豫剧代替cc 给分
用ADO数据访问对象,与数据源建立连接后 rs.open(update * from 表名 set 字段名=value)
set MyRs=New ADODB.Recordset
With MyRs
.ActiveConnection=MyCnn
.Cursortype=adOpenStatic
.LockType=adLockOptimistic
.Source="你的数据源"
.Open
End with
设有一个NAME字段,读出后,MyRs!NAME="新数据"
MyRs.updata
即可
不过如果用
.fields("列名").value 速度回快一点
运行以下代码为什么会出错(实施错误3251,对象或提供者不能执行以下的操作)
Set rst1 = cn.Execute(str1) With rst1
.Fields("onuse") = "no"
.Update
End With
'创建一个数据连接源
Dim cc As New ADODB.Connection
'创建一个command 对象
Dim ca As New ADODB.CommandPrivate Sub Command1_Click()'创建connextion 连接源
cc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\aa.mdb;Persist Security Info=False"
'设定command 对象的连接属性
ca.ActiveConnection = cc
' 设定command 对象要执行的SQ
你可以用更新,添加,删除,等sql豫剧代替cc
给分
rs.open(update * from 表名 set 字段名=value)