改变表格某个字段属性提示磁盘空间不足无法执行操作

saraou

我有几个表,每个表都有超过六万多条数据. 现在想把一个字段的数据类型从文本格式改成日期格式.
提示磁盘空间不足无法执行操作,如下截图. 有没有什么解决方法.

todaynew

逐条循环更新即可

saraou

todaynew 发表于 2012-4-18 19:14
逐条循环更新即可

请问怎样逐条循环更新啊？要写代码么？在哪里写呢？

todaynew

saraou 发表于 2012-4-19 09:21
请问怎样逐条循环更新啊？要写代码么？在哪里写呢？

1、在某个窗体上搞一个按钮；
2、在按钮的单击事件中写如下代码：

dim ssql as string
dim i as long
ssql="select * from 阁下的数据表名称"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to rs.recordcount
   rs!日期型日期字段的名称.value=cdate(rs!文本型日期字段的名称.value)
   rs.update
   rs.movenext
next
rs.close
set rs=nothing

saraou

todaynew 发表于 2012-4-19 10:12
1、在某个窗体上搞一个按钮；
2、在按钮的单击事件中写如下代码：

按照你的方法写代码如下,这个窗体是在跟access 表属于同一个文件里的吧?
可是提示错误信息如下,请问我的代码哪里错了呢?我是在access表里这个字段是文本,excel里面是日期，excel导入到access
表里后成了文本，现在想把access 表的PR Date这个字段数据类型从文本改为日期类型。




Private Sub Command0_Click()
Dim ssql As String
Dim i As Long
ssql = "select * from [2012 XTS Data]"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
   rs![PR Date].Value = CDate(rs!文本型日期字段的名称.Value)
   rs.Update
   rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Sub

zrj898

感谢分享！最好提供源码！