高级功能研发区-给看看，这是什么问题啊。金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  给看看，这是什么问题啊。  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=61953)

--  作者：szwangwei88
--  发布时间：2014/2/24 9:59:09
--  给看看，这是什么问题啊。
做了在数据中建一个字段的宏，数据库是access。昨天还可以运行，今天就不行了，报第一句的编译器错误500，说cn变量没有定义。是什么问题啊？
Sub DB()
Set cn = CreateObject("Adodb.Connection")
strCn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\wang.mdb"
cn.Open strCn
cn.Execute("alter table tick add tdate date")
cn.close
End Sub

--  作者：szwangwei88
--  发布时间：2014/2/24 13:03:16
--
没人知道吗？急啊，卡在这里做不下去了，谁给看看。

--  作者：guotx2010
--  发布时间：2014/2/24 15:20:02
--
是不是表已经建立好了，重复建表导致出错。

--  作者：szwangwei88
--  发布时间：2014/2/24 16:23:42
--
谢谢版主的回复。不是重复建表导致出错。已解决，是一个很普通的错误，对vba熟悉的人一看就知道，但就是没人说，搞了一天，郁闷。