如何用access建立公司员工数据库

用access建立公司员工数据库的方法如下：

1、打开access，并创建新数据库，

2、在新数据库里创建员工信息表，可以在表里设置姓名，性别，出生日期，职务，级别，等基本信息。

3、根据需要创建其它信息表，比如档案表，工资表，等用来记录员工的一些相关信息，

4、保存数据库中的各表等元素，就可以了。

Sub Macro3()

'

' Macro3 Macro

' 宏由 mis01_kk 编写，时间: 2010-8-10

'

'

With ActiveSheet.QueryTables.Add(Connection:=Array( _

"OLEDBProvider=Microsoft.Jet.OLEDB.4.0Password=""""User ID=AdminData Source=F:\Work\ndy\DELL台式机笔记本报价.xlsMode=Share Deny WriteExtend" _

, _

"ed Properties=""HDR=YES""Jet OLEDB:System database=""""Jet OLEDB:Registry Path=""""Jet OLEDB:Database Password=""""Jet OLEDB:Engine" _

, _

" Type=35Jet OLEDB:Database Locking Mode=0Jet OLEDB:Global Partial Bulk Ops=2Jet OLEDB:Global Bulk Transactions=1Jet OLEDB:Ne" _

, _

"w Database Password=""""Jet OLEDB:Create System Database=FalseJet OLEDB:Encrypt Database=FalseJet OLEDB:Don't Copy Locale on Co" _

, _

"mpact=FalseJet OLEDB:Compact Without Replica Repair=FalseJet OLEDB:SFP=False" _

), Destination:=Range("A1"))

.CommandType = xlCmdTable

.CommandText = Array("'台式机 笔记本 报价$'")

.Name = "DELL台式机笔记本报价"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.SourceDataFile = "F:\Work\ndy\DELL台式机笔记本报价.xls"

.Refresh BackgroundQuery:=False

End With

ActiveWindow.SmallScroll Down:=12

End Sub

不明白的HI我.

你好

1、用access建一空数据库。

2、如果已经有excel形式的，在access文件栏用“获取外部数据(导入表)”即可，没有的话建立一个表。字段名自己根据需要定。

3、用sql语句（或在查询的设计视图中）建立需要的查询。

4、建立一个界面窗体，来管理或调用查询（可以用“宏”、也可用VBA)，再建立需要格式的报表。

其它的，根据实际需要而定。

---