excel vba 怎么执行update语句

excel vba 怎么执行update语句

1.添加引用：
VBA编辑器>工具>引用>勾选>
microsoft activex data objects

2.代码编写：
Dim cn As New ADODB.Connection
Dim rs As New Recordset
Str1 = "select * from [八月]"
strCn = "rovider=sqloledb;Database=test;Uid=sa ;wd=123456; data source=pc2011061511NRV,1433;"
cn.Open strCn
rs.Open Str1, cn
[a1].CopyFromRecordset rs '将内容粘贴到A1单元格中
End Sub
代码解释：
1.strCn = "rovider=sqloledb;Database=test;Uid=sa ;wd=123456; data source=pc2011061511NRV,1433;"
根据自己计算机实际情况进行修改Database，Uid，wd，datasource内容
2.Str1 为sql语句，上述代码用select语句，可更加实际情况修改

UPDATe语句可以同时更新多个字段多条记录，如:
update 表1 set f1=-1, f2=0 where ID<11
执行的效果是将表1中ID从1到10的记录的f1字段值更新为-1，f2字段值更新为0
update 表1 set f1=-1, f2=0 where ID=11
执行的效果是将表1中ID为11的记录的f1字段值更新为-1，f2字段值更新为0追问语句我知道，我的意思是EXCELVBA能不能执行UPDATE语句追答当然可以.
引用ado,建立connection对象,然后使用connection对象的execute方法执行sql语句即可追问能帮忙写个实例吗？先一个UPDATE语句，再执行查询语句，最后再一个UPDATE语句追答Sub eg()
Dim rng As Range, myCnnString As String, strSQL As String
Dim cnn As New adodb.Connection, rs As New adodb.Recordset
myCnnString = "......"
cnn.ConnectionString = myCnnString
cnn.Open

strSQL = "UPDATE 表1 SET myName = '杨过', myDate = #2000/12/31# WHERe ID = 1"
cnn.Execute strSQL

strSQL = "SELECT * FROM 表1 WHERe ID < 10"
rs.Open strSQL, cnn

Set rng = [A1]
rng.CopyFromRecordset rs

strSQL = "UPDATe 表1 SET myDate = #" & Date & "# WHERe ID = 1"
cnn.Execute strSQL

cnn.Close
Set rs = Nothing
Set cnn = Nothing
Set rng = Nothing
End Sub追问我修改过还是有问题，我写的具体些，你帮忙看一下写一下，数据库为本地数据库，登录名和密码均为sa，数据库为FD，先执行UPDATE T1 SET zd1=1,再执行select * from t1,最后再执行UPDATE T1 set zd1=2
谢谢，VBA菜鸟在此谢谢你，刚入手学习追答不知你的思路怎样?执行选择查询有什么用么?为啥先后两次执行更新查询呢?追问因为在同一个表中想查询到正确结果必须先改某一字段值，查询后再将修改的字段改回原来的值谢谢！我已经弄出来了！