奇怪的密码问题

eq800

C4WzjrHv.rar (38.61 KB, 下载次数: 19)

2007-1-6 08:55 上传

点击文件名下载附件
奇怪的密码问题

如果把工程密码取消就不会有,可是工程密码不能取消呀!

请问是什么原因,该如何解决,谢谢!!

VBA密码是:123

数据库密码是:123

Aeolian-Vox

没有提示要密码的问题。

出现程序错误倒是存在。

eq800

在我这里是提示要密码的呀.没有出现程序错误呀,请问该如何解决呀?

爱歌学习

我这里没有这种问题～

丸究阵引

原来说过此问题，这种自己连接自己的问题很不规范，可竟很流行，无奈！

eq800

是不是office2003的版本问题,该如何解决呀!

爱歌学习

QUOTE:

以下是引用丸究阵引在2007-1-6 10:25:40的发言：
原来说过此问题，这种自己连接自己的问题很不规范，可竟很流行，无奈！

能否请教一下规范的连接法？因为我也是门外汉，全凭自己的兴趣摸索的。

“自己连接自己”不规范，是指用ADO来处理Excel文件不规范呢，还是说这种组合语句不规范？

"INSERT into [DATA] SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=yes].[Excel表$]"

应该先

"SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=yes].[Excel表$]"

再

INSERT into [DATA]   ？要这样？

另外也想请教一下为什么会流行？

对我来讲，是比较偏好用SQL语句，这样很多时候可以省去循环，速度也不会慢太多。

不过，集合、字典的程序都看得懂，但就是不喜欢多练，所以遇到问题先想ADO，其次数组，而集合、字典的程序我好像还没独立编过一个的。

有些怀疑对ADO连Excel感兴趣的是不是都是我这样的非专业人士啊，为了偷懒?

呵呵，欢迎指教～

爱歌学习

QUOTE:

以下是引用eq800在2007-1-6 11:04:23的发言：
是不是office2003的版本问题,该如何解决呀!

有些怀疑跟office版本，操作系统版本都有关吧～

eq800

我换了一台电脑试过操作系统是英文的,我的操作系统是中文的,office版本是同一个,都出现了同样的问题,

eq800

Sub Access() 

 Dim CoNN As New ADODB.Connection
CoNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\Personal\Desktop\11\data.MDB;" & _
";Jet OLEDB:Database Password=" & "123"
CoNN.Execute ("delete * from data")
sqlString = "INSERT INTO [data] SELECT * FROM [Excel 8.0;DATABASE=" & _
ThisWorkbook.FullName & ";HDR=YES].[2$];"
CoNN.Execute sqlString
CoNN.Close
Set CoNN = Nothing
End Sub
我换了这个,也是有同样的问题.