怎么用excel和access实现局域网数据库？

您好，方法有很多的

例如

局域网中有Sharepoint服务端，可以直接通过Excel访问服务端上的数据库，

如下图，但Sharepoint似乎并不是非常普及，所以还提供了其他方法

以下是最适合新手的最简方法，只要求Excel/Access及局域网的通畅不需要其他工具或知识，假设要与Access连接的Excel表格如下：

3.打开Access，点击外部数据（如下图所示），再点击Excel（如下图所示）

4.点击【浏览】或直接输入Excel路经，局域网中要先将Excel文档共享，

选中【通过创建链接表....】项，单击【确定】

5.如果Excel中数据包含分类标题，例如“姓名”、"性别"等，请勾选【第一行包含标题】，点击【下一步】或【完成】即可完成对接

注意:

1.此方法的缺点在于仅限单向连接，即Excel端发生更改，Access端可同步接收Excel的数据变动，但在Access端无法对数据进行 *** 作

2.务必常常对Access进行存档，否则Excel端关闭后Access端可能发生数据丢失

拓展：

另外还可以通过VB创建控件的方法，在IE中进行数据的浏览与更改，此方法将同时同步Excel与Access中的数据，但需要一定的VB编程基础，这里提供源码，有兴趣可以研究研究，并不是很难

Imports System

Imports System.Windows.Forms

Imports Microsoft.Office.Excel.WebUI

Imports Microsoft.SharePoint

Imports Microsoft.SharePoint.WebPartPages

Namespace AddEWATool

   ''' <summary>

   ''' Form1 class derived from System.Windows.Forms.

   ''' </summary>

   Partial Public Class Form1

       Inherits Form

       Private appName As String = "AddEWATool"

       Private specifyInputError As String = "Please add a site URL, for example, http://myserver/site/"

       Private openSiteError As String = "There was a problem with the site name. Please check that the site exists."

       Private addWebPartError As String = "There was a problem adding the Web Part."

       Private successMessage As String = "Web Part successfully added."

       ''' <summary>

       ''' Add the Excel Web Access Web Part to the Default.aspx page of the specified site.

       ''' </summary>

       ''' <param name="siteName">URL of the SharePoint site</param>

       ''' <param name="book">URI to the workbook</param>

       ''' <returns>Returns true if the WebPart was successfully addedotherwise, false.</returns>

       Public Function AddWebPart(ByVal siteName As String, ByVal book As String) As Boolean

           Dim site As SPSite = Nothing

           Dim targetWeb As SPWeb = Nothing

           Dim webPartManager As SPLimitedWebPartManager = Nothing

           Dim b As Boolean = False

           progressBar1.Visible = True

           progressBar1.Minimum = 1

           progressBar1.Maximum = 4

           progressBar1.Value = 1

           progressBar1.Step = 1

           If String.IsNullOrEmpty(siteName) Then

               MessageBox.Show(specifyInputError, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

               Return b

           End If

           Try

               Try

                   site = New SPSite(siteName)

                   targetWeb = site.OpenWeb()

               Catch exc As Exception

                   MessageBox.Show(openSiteError &vbLf &exc.Message, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

                   progressBar1.Value = 1

                   Return b

               End Try

               progressBar1.PerformStep()

               Try

                   ' Get the shared Web Part manager on the Default.aspx page.

                   webPartManager = targetWeb.GetLimitedWebPartManager( _

                           "Default.aspx", _

                           System.Web.UI.WebControls.WebParts.PersonalizationScope.Shared)

               Catch exc As Exception

                   MessageBox.Show(openSiteError &vbLf &exc.Message, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

                   progressBar1.Value = 1

                   Return b

               End Try

               progressBar1.PerformStep()

               'Instantiate Excel Web Access Web Part.

               'Add an Excel Web Access Web Part in a shared view.

               Dim ewaWebPart As New ExcelWebRenderer()

               ewaWebPart.WorkbookUri = book

               progressBar1.PerformStep()

               Try

                   webPartManager.AddWebPart(ewaWebPart, "Left", 0)

               Catch exc As Exception

                   MessageBox.Show(addWebPartError &vbLf &exc.Message, appName, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

                   progressBar1.Value = 1

                   Return b

               End Try

           Finally

               If Not IsNothing(site) Then

                   site.Dispose()

               End If

               If Not IsNothing(targetWeb) Then

                   targetWeb.Dispose()

               End If

               If Not IsNothing(webPartManager) Then

                   webPartManager.Dispose()

               End If

           End Try

           progressBar1.PerformStep()

           b = True

           Return b

       End Function

       ''' <summary>

       ''' AddEWAButton click handler.

       ''' </summary>

       ''' <param name="sender">caller</param>

       ''' <param name="e">event</param>

       Private Sub AddEWAButton_Click(ByVal sender As Object, ByVal e As EventArgs)

           Dim siteUrl As String = textBox1.Text

           Dim bookUri As String = textBox2.Text

           Dim succeeded As Boolean = AddWebPart(siteUrl, bookUri)

           If succeeded Then

               MessageBox.Show(successMessage, appName, MessageBoxButtons.OK, MessageBoxIcon.Information)

               progressBar1.Value = 1

           End If

       End Sub

   End Class

End Namespace

可以，共享读应该没有问题，不过建议你把Access数据库拆分，只把共享的数据库表放到局域网服务器，在你的本地电脑上做一个数据后台维护客户端以链接表方式链接数据库，这样需要维护更新的数据在客户端编辑好后就可以用 *** 作查询更新到链接数据库了。

共享方法

✍

拆分数据库

如果您没有

SharePoint

网站或数据库服务器产品，则这将是一个好的选择。将表放置一个

Access

文件中，而将其他任何对象放置在另一个称为“前端数据库”的

Access

文件中。前端数据库包含指向其他文件中的表的链接。每个用户都将获得自己的前端数据库副本，以便仅共享表。

✍

网络文件夹

这是一种最为简单的方法，而且要求也最低，但提供的功能也最少。数据库文件存储在共享网络驱动器上并可供用户同时使用。当有多个用户同时更改数据时，可靠性和可用性就会成为问题。用户可以共享所有数据库对象。

✍

SharePoint

网站

如果您具有运行

SharePoint

的服务器，特别是运行

Access

Services（SharePoint

Server

的一个新组件）的服务器，则有多个不错的选择。一些与

SharePoint

集成的方法有助于更e68a84e8a2ade799bee5baa6e997aee7ad9431333365653832方便地访问数据库。

SharePoint

共享方法有三种：

✍

使用

Access

Services

发布数据库

发布数据库时，是将其移至网站。您可以创建在浏览器窗口中运行的

Web

表单和报表，还可以创建标准的

Access

对象（有时称之为“客户端”对象，以便将其与

Web

对象区分开来）。虽然必须安装有

Access

才能使用标准的

Access

对象，但由于数据库文件存储在

SharePoint

网站上，因此所有数据库对象都可以进行共享。

注释

当您在网站上共享某个数据库，并且其包含客户端对象时，该数据库被称为混合数据库。未安装

Access

的用户只能使用

Web

数据库对象，而安装有

Access

的用户则可以使用所有数据库对象。

✍

将数据库保存到文档库

此方法与将数据库保存到网络文件夹类似。您应该考虑仍使用

SharePoint

列表来存储数据，而不使用

Access

表，以便进一步提高数据可用性。

✍

链接到列表

当链接到

SharePoint

列表时，将共享数据，但不会共享数据库对象。每个用户都使用自己的数据库副本。

✍

数据库服务器

此方法类似于在网络上拆分存储表的数据库，并且每个用户都具有

Access

数据库文件的本地副本，其中包含指向这些表的链接以及查询、窗体、报表和其他数据库对象。如果您具有可用的数据库服务器，并且所有用户都安装有

Access，则应使用此方法。将优化数据库服务器，以便在多个用户之间共享数据。此方法的好处将会根据您所使用的数据库服务器软件而有所不同，不过好处通常会包括用户帐户和对数据的选择性访问、良好的数据可用性以及优秀的集成数据管理工具。另外，由于大部分数据库服务器软件都与

Access

的早期版本兼容，因此并不需要所有用户都必须使用同一版本。仅表处于共享状态。

---