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
相关文档：
虽然Firebird总体上是比Access好，但是没有传说的那么好，至少在Net环境下。
1、测试环境
A、系统环境
操作系统：Windows XP Professional Server Pack 2
CPU：Intel(R) Pentium(R) 4 CPU 3.00GHZ 2.99GHZ
内存：1G
B、代码环境
NET2.0、Access2003、Firebird2.1、
Firebird的NET2.0� ......
access中case替代方法
2009-12-26 14:01
SELECT
UserPassportID as PassportID,
UserID,
GrantorID,
Case ObjectTypeID
When 1 then ObjectID
End
as TerminalID,
Type, Flag, GrantDate, Validate, Invalidate
from UserPassport
在SQL里能执行,但在Access里总提示语法错误(操作符丢失).在查询表达式'Case O ......
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 ......
问题：目前还没有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位模式 ......
