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
相关文档：
Web Server Access on a VirtualBox Guest
In: Computing 数码编程
7
Oct
2008
I been using VirtualBox to deploy virtual machines on my Windows
machine since a significant memory upgrade. VirtualBox is suprisingly
easy to used if compared to VMWare and it just fit to my basic needs.
Access the ......
在SQL Server 内查询Access 数据, 并将数据保存到SQL Server
-- OPENROWSET ACCESS 不能有密码, 有密码用OPENDATASOURCE
SELECT *
from OPENROWSET ('Microsoft.Jet.OLEDB.4.0',
'C:\temp\Test.mdb'; /*Access 数据库路径*/
'admin'; /*Access工作组密码*/
'',/*Access工作组密码*/
[AccessTableName])
1. 查询Acce ......
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、Hybrid和Trunk三种模式的理解
预备知识：
Tag，untag以及交换机的各种端口模式是网络工程技术人员调试交换机时接触最多的概念了，然而笔者发现在实际工作中技术人员往往对这些概念似懂非懂，笔者根据自己的理解再结合一个案例，试图向大家阐明这些概念
untag就是普通的ethernet报文，普通PC机的网卡是可以识别这 ......
Store an Image(OLE Object) into Access Data Base
C# Winform application Store an Image into Access Data Base
用以下方法
/// 2010-02-26 Forever
private void SaveImageInDataBase()
{
& ......
