EXCEL从ACCESS中取值
ACCESS数据库界面：
EXCEL的窗体界面：
窗体中的代码：
Private Sub ComboBox1_Change()
Dim cn As Object, sql$, arr, i&
Set cn = CreateObject("adodb.connection")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\后台.mdb"
Me.ListBox1.Clear
sql = "select 车间,产品,价格 from 产品 where 车间='" & Me.ComboBox1.Text & "'"
arr = cn.Execute(sql).getrows
Me.ListBox1.BoundColumn = 2
For i = 0 To UBound(arr, 2)
Me.ListBox1.AddItem arr(1, i) & vbTab & arr(2, i)
Next
cn.Close
Set cn = Nothing
End Sub
Private Sub UserForm_Initialize()
Dim arr
Dim cn As Object, sql$
Set cn = CreateObject("adodb.connection")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\后台.mdb"
sql = "select distinct 车间 from 产品"
arr = cn.Execute(sql).getrows
Me.ComboBox1.List = WorksheetFunction.Transpose(arr)
Me.ComboBox1.Value = arr(0, 0)
cn.Close
Set cn = Nothing
End Sub
原文件可以去下面地址下载：
http://u.115.com/file/f7df8e035b
相关文档：
mysql 明明已经装好了，但是无法访问。链接的时候 总是说
Access Denied.
解决方法：
用mysqld --skip-grant-table启动mysql
然后在mysql库中执行这个
INSERT INTO user VALUES ('localhost', 'root', PASSWORD('some_pass'), 'Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y', 'Y', ......
Access保留字&变量名列表，建表时应避免使用这些词汇和符号。
-A
ADD
ALL
Alphanumeric
ALTER
AND
ANY
Application
AS
ASC
Assistant
AUTOINCREMENT
Avg
-B
BETWEEN
BINARY
BIT
BOOLEAN
BY
BYTE
-C
CHAR, CHARACTER
COLUMN
CompactDatabase
CONSTRAINT
Container
Count
COUNTER
CREATE
C ......
Access、Hybrid和Trunk三种模式的理解
预备知识：
Tag，untag以及交换机的各种端口模式是网络工程技术人员调试交换机时接触最多的概念了，然而笔者发现在实际工作中技术人员往往对这些概念似懂非懂，笔者根据自己的理解再结合一个案例，试图向大家阐明这些概念
untag就是普通的ethernet报文，普通PC机的网卡是可以识别这 ......
问题：目前还没有64位的Jet oledb provider
(不知以后有否)，在64位系统上调用Jet oledb provider时会遇到如下错误：
"The
'Microsoft.jet.OLEDB.4.0' provider is not registered on the local machine.
"
解决：32位的Jet oledb provider是存在的，那么可以利用IIS的32 Mode特性，将web程序运行在32位模式 ......
