|
本帖最后由 todaynew 于 2011-8-26 11:11 编辑
jinzhanxi 发表于 2011-8-26 11:03
额,越来越看不懂……
能不能再分析分析,我知道自己刚开始,啥也不会,希望todaynew老师指导习下啊
Function setNull(tbname As String)
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long
rs.Open tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
For j = 1 To rs.Fields.Count - 1
rs.Fields(j).Value = Null
rs.Update
Next
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Function
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|