如何用vba代码将access数据库连接求代码?

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

'下列ACCESS窗体按钮单击事件过程（VBA代码）实现在当前目录下创建一个新MDB数据库，

'并在该数据库内新建一张学生表同时插入一条学生信息。

'有关代码需要引用ADO数据访问对象及其扩展ADOX类库

'引用方法：

'打开VBE窗口

'引用ADO—— 菜单"工具"->"引用 "-->勾选 Microsoft ActiveX Data Objects 2.1 Library 或更高版本，点击确定按钮

'引用ADOX—— 菜单"工具"->"引用 "-->勾选 Microsoft ADO Ext.2.7 for DDL ado Security 或更高版本，点击确定按钮

Private Sub Command0_Click()

Dim MyMDB As New ADOX.Catalog '声明并示例化一个ADOX.Catalog对象

Dim cn As New ADODB.Connection '声明并示例化一个ADO连接对象

Dim cnStr As String '声明一个连接字符串变量

'在当前目录下创建一个名为“NewAccessDB”的ACCESS数据库

MyMDB.Create ("Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &CurrentProject.Path &"\NewAccessDB.mdb" &"")

'设置连接上述代码新创建的数据库之连接字符串

cnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &CurrentProject.Path &"\NewAccessDB.mdb" &""

'打开与该数据库的连接

cn.Open cnStr

'新建一张学生表

cn.Execute "create table students(sname text(30),sex text(1),birth date)"

'向学生表插入一条数据

cn.Execute "insert into students values('张三','男',#1998-02-03#)"

'关闭连接

cn.Close

'提示 *** 作成功

MsgBox "新数据库已成功创建，并在其中建立了一张学生表同时并插入一条学生信息"

End Sub

---