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
相关文档：
access日期和时间函数
access日期和时间函数
------------------------------------------------
设置当前日期或时间。 Date ,Now, Time
计算日期: DateAdd, DateDiff, DatePart
返回日期: DateSerial, DateValue
返回时间: TimeSerial, TimeValue
设置日期或时间: Date, Time
计时: Timer
在帮助 ......
虽然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数据库操作类AccessHelper
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Data.OleDb ......
Access、Hybrid和Trunk三种模式的理解
预备知识：
Tag，untag以及交换机的各种端口模式是网络工程技术人员调试交换机时接触最多的概念了，然而笔者发现在实际工作中技术人员往往对这些概念似懂非懂，笔者根据自己的理解再结合一个案例，试图向大家阐明这些概念
untag就是普通的ethernet报文，普通PC机的网卡是可以识别这 ......
