[求助]如何修改数据库中的数据
如下一段程序,是想把所有数值字段的数据清零。Set myDb = OpenDatabase("data.mdb")
'定义当前表、记录集
Set myTb = myDb.TableDefs(CpName)
Set myRs = myDb.OpenRecordset(CpName)
myRs.MoveFirst
Do While myRs.EOF = False
For hh = 0 To myTb.Fields.Count - 1
If myTb.Fields(hh).Type = 3 Then
myRs.Fields(hh) = 0 ' 这里是错误的,应该怎么写。
End If
Next
Loop
请高手指点一下。
注:我不想用 SQL 语句。
[此贴子已经被作者于2005-5-1 17:45:48编辑过]