求助： 一个更新查询

yhf

一个表（附件表1）中有2个字段A、B。A字段内容为1111；2222；3333；请问如何通过查询（最好是SQL代码）将B字段所有内容更新为111122223333（如表2）。谢谢！

yehf

Sub a()
    Dim rst    As ADODB.Recordset
    Dim str    As String
    Set rst = New ADODB.Recordset
    rst.Open "select A from 表1", CurrentProject.Connection, adLockReadOnly, adCmdText
    str = rst.GetString(adClipString)
    rst.Close
    Set rst = Nothing
    CurrentDb.Execute "UPDATE 表1 SET 表1.B ='" & str & "'"
End Sub
将记录集定义为只有字段A

yehf

yhf 发表于 2011-11-17 10:22
谢谢yehf ！ 附件只是个例子，其实表1里还有除A、B外的其他字多个段，麻烦修改一下代码。谢谢！

其他字段要修改些什么呢

yhf

yehf 发表于 2011-11-17 09:18
Sub a()
    Dim rst    As ADODB.Recordset
    Dim str    As String

谢谢yehf ！ 附件只是个例子，其实表1里还有除A、B外的其他字多个段，麻烦修改一下代码。谢谢！

yehf

Sub a()
    Dim rst    As ADODB.Recordset
    Dim str    As String
    Set rst = New ADODB.Recordset
    rst.Open "表1", CurrentProject.Connection, adLockReadOnly, adCmdText
    str = rst.GetString(adClipString)
    rst.Close
    Set rst = Nothing
    CurrentDb.Execute "UPDATE 表1 SET 表1.B ='" & str & "'"
End Sub

wu8313

UPDATE 表1 SET 表1.B = "111122223333";