如何建立一个简单的 access 数据库？

就是用access建立一个数据库，步凑不外乎以下几个：\x0d\x0a1、用access建一空数据库。\x0d\x0a2、如果党员个人资料已经有excel形式的，在access文件栏用“获取外部数据(导入表)”即可，没有的话建立一个表。字段名自己根据需要定。如：编号、姓名、性别、家庭住址、入党时间、出生年月等等。\x0d\x0a3、用sql语句（或在查询的设计视图中）建立需要的查询。\x0d\x0a4、建立一个界面窗体，来管理或调用查询（可以用“宏”、也可用VBA)，再建立需要格式的报表。\x0d\x0a 其它的，根据实际需要而定。

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。用vba代码将access数据库连接求代码，代码如下：

Sub FYMXDL()

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODB.Recordset

mYpath = ThisWorkbook.Path &"\jzfydata.accdb"

Set cONn = CreateObject("ADODB.Connection")

cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0Data Source=" &mYpath

cONn.ConnectionString = cONn.ConnectionString &"Jet OLEDB:Database "

cONn.Open

XQID = Cells(3, 2).Value

JZID = Cells(3, 5).Value

'清空改小区-建筑的费用明细

Sql = "delete  from fymxb where 小区ID=" &XQID &" AND 建筑ID = " &JZID

cONn.Execute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3).Value >0

FYID = Cells(hh, 3).Value

FBXZ = Cells(hh, 11).Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)

Next i

Sql = Sql &"," &SARR(i)

Next i

Sql = Sql &" )"

cONn.Execute Sql

hh = hh + 1

Loop

End Sub

创建 Access 数据库连接

在“选择数据源”对话框中，选择“Microsoft Access 数据库文件”，然后单击“确定”。

如果打开了“添加连接”对话框，并且“数据源”不是“Microsoft Access 数据库文件”，则单击“更改”来打开“选择/更改数据源”对话框。有关更多信息，请参见 “选择/更改数据源”对话框。

输入要访问的数据库文件的路径，或单击“浏览”按钮定位数据库文件。

如果您的数据库需要，请输入登录信息。有关更多信息，请参见添加/修改连接 (Microsoft Access)。

单击“确定”。

---