Access VBA 创建新MDB数据库

'下列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

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

1、打开Excel，选择数据选项卡，点击从其他来源获取数据，选择从SQL Server获取数据。

2、在连接到数据源对话框中，输入SQL Server的名称和登录信息，点击下一步。

3、在选择如何建立连接对话框中，选择使用特定的用户名和密码，输入数据库的用户名和密码，点击下一步。

4、在选择数据库和表对话框中，选择需要连接的数据库和表，点击下一步。

5、在编辑查询对话框中，输入SQL语句，将多个表联系起来。

6、点击确定按钮，Excel会自动执行SQL语句，并将结果显示在工作表中。

---