Excel+ADO(DAO)+SQL+Access专辑（编辑中...）

dabao · 发表于 2004-11-21 22:05

======在 2004-11-21 21:53:02 您来信中写道：====== 中文Excel应用论坛全体管理人员欢迎您的到来如有任何疑问请及时联系系统管理员。如有任何使用上的问题请查看论坛帮助。感谢您注册本系统，让我们一起来建设这个网上家园！ ====================================== [em05]

llgo · 发表于 2004-11-22 10:20

谢谢楼主。我正需要这样的好东东，只是不知学生档案的打开密码是多少，我想打开学习学习。谢谢了。

llgo · 发表于 2004-11-22 10:22

找到了，不好意思，是我机上有密码。

兰色幻想 · 发表于 2004-11-22 10:23

以下是引用llgo在2004-11-22 10:20:00的发言：

谢谢楼主。我正需要这样的好东东，只是不知学生档案的打开密码是多少，我想打开学习学习。谢谢了。

llgo · 发表于 2004-11-22 13:29

你好，真的很好，只是总报错。就是下拉框设置和分类汇总。请楼主帮忙查一下。

数据工人 · 发表于 2004-11-22 14:00

兰老师：

六、实例分析中的一句：Stpath = ThisWorkbook.Path & Application.PathSeparator & "学生档案.mdb"

应该存在语法错误吧？

cofe2000 · 发表于 2004-11-22 16:18

请问兰版主：

运行下面这段代码除了引用ado外，还需应用什么

我运行时提示“自动化错误”

Sub ¾ØÐÎ12_µ¥»÷() Dim CNN As New ADODB.Connection Dim RST As New ADODB.Recordset Dim Stpath, strSQL As String Stpath = ThisWorkbook.Path & Application.PathSeparator & "µç×ÓÁìÁÏ±í.mdb" CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"

strSQL = "SELECT ¹¤³ÌÃû³Æ,¿ªÆ±ÈÕÆÚ,sum(×Ü¼Û) FROM ×Ü±í GROUP BY ¹¤³ÌÃû³Æ,¿ªÆ±ÈÕÆÚ"

RST.Open strSQL, CNN Sheet1.Range("A2:G100").ClearContents Sheet1.Cells(2, 1).CopyFromRecordset RST RST.Close Set RST = Nothing Set CNN = Nothing End Sub

cofe2000 · 发表于 2004-11-22 16:26

FoRT3wCg.rar (70.67 KB, 下载次数: 341)

兰色幻想 · 发表于 2004-11-22 23:27

以下是引用数据工人在2004-11-22 14:00:00的发言：

兰老师：

六、实例分析中的一句：Stpath = ThisWorkbook.Path & Application.PathSeparator & "学生档案.mdb"

应该存在语法错误吧？

Application.PathSeparator相当于"\"

兰色幻想 · 发表于 2004-11-22 23:41

以下是引用cofe2000在2004-11-22 16:26:00的发言：

呵呵!你的错误只是个小小的输入错误:明明是"电子领料.MDB",你却输成"电子领料表.MDB",多这一个"表"字就是产生错误的原因.

		自动登录	找回密码
密码			免费注册

Excel+ADO(DAO)+SQL+Access专辑（编辑中...）

见附件，谢谢