急，VB中如何更新表内的字段?

Question

我现在程序的表名为byk,数据库名为data.mdb,联接对象为database.记录集为rsbyk
现在我想给表byk内的zsbh这个字段编号,编号可以为自然顺利,长度要6位,这6位要与我前面的固定字符串相联接.请问这段代码如何写?
请各位高手不吝赐教.

Answer 1

Dim rsupdate As New Recordset
rsupdate.CursorLocation = adUseServer
rsupdate.Open "select * from byk", database, adOpenKeyset, adLockOptimistic, adCmdText
Do While rsupdate.EOF <> True
rsupdate.Fields(zsbh).Value = strzsbh
strzsbh这是个字符变量,如值为200702004
可是就是不能写进表内

Answer 2

database.execute("update byk set zsbh='"& strzsbh &"'")

Answer 3

这个语句不行,如果用你那个语句的话zsbh这个字段的内容全是一样的,现在我需要的是字段内的编号随记录自动增加,长度为6位.

Answer 4

这个语句不行,如果用你那个语句的话zsbh这个字段的内容全是一样的,现在我需要的是字段内的编号随记录自动增加,长度为6位.
-----------------------------------------------
你要说清你表中现有数据的结构，以及怎么样的需求，最好简单列举表点中的数据和要实现的结果

Answer 5

就你的示例代码而言，循环一下就可以了：dim i as integer
Dim rsupdate As New Recordset
rsupdate.CursorLocation = adUseServer
rsupdate.Open "select * from byk", database, adOpenKeyset, adLockOptimistic, adCmdText
While not rsupdate.EOF
    i=format(i,"000000")
    strzsbh="2004" & i
    rsupdate.Fields("zsbh").Value = strzsbh
    rsupdate.update
wend

Answer 6

更正一下：dim i as integer
Dim rsupdate As New Recordset
rsupdate.CursorLocation = adUseServer
rsupdate.Open "select * from byk", database, adOpenKeyset, adLockOptimistic, adCmdText
While not rsupdate.EOF
    i=i+1
    strzsbh="2004" & format(i,"000000")
    rsupdate.Fields("zsbh").Value = strzsbh
    rsupdate.update
    rsupdate.movenext
wend

Answer 7

strzsbh="2004" & format(i,"000000")这个语句里面的"2004"是变量怎么做呢?变量名是strgz.我是这样联接起来的"& strgz &"可是联接不起来