我用VB做了个管理系统，数据库存在我电脑上，怎么让别人的电脑共享我的数据库，数据库是access

你的程序中在调用数据库时，不要用绝对路径（如d:\data\abcmdb），要用AppPath来指定路径，数据库要和程序放在同一文件夹（或者把数据库放到这个文件夹里的子文件夹中），然后把这个文件夹设为共享，而且要可读写（允许网络用户修改）。局域网中的其他电脑不用装你的程序，直接在网上邻居打开这个共享文件夹，双击exe文件即可运行，当然其他电脑可以映射驱动器、在桌面建立快捷方式来方便使用。

数据库就是用来存储数据的工具，可以在里面对数据进行查询插入删除等 *** 作，vb是编程工具，用来写电脑软件的，他们之间的关系是相互依存的，编写程序离不开数据支持，没有数据的程序是死的，而程序的数据就来自于数据库

本文讨论了Visual Basic应用程序访问SQL Server数据库的几种常用的方法，分别说明了每种方法的内部机理并给出了每种方法的一个简单的实例，最后比较了每种方法性能和优缺点。

一、引言

SQL Server是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着SQL Server网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用SQL Server提供的SQL EntERPrise Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。

Visual Basic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集，因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端，与后端的Microsoft SQL Server相结合，VB能够提供一个高性能的客户机—服务器方案。

二、VB访问SQL Server数据的常用方法

使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：

①数据访问对象/Jet

②为ODBC API编程

③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程

④RDO 远程数据对象(RemoteData Objects)

⑤ADO 数据对象(Active Data Objects)

1、数据访问对象/Jet

VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBCDLL)通过调用驱动器(SQLSRVRDLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。

注释：Form Declarations

Dim mydb As Database

Dim mydynaset As Dynaset オ

Private Sub Form_Load()

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")

Set mydynaset = mydb CreateDynaset("Selectfrom Customers") オ

End Sub ァ　

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

2、利用ODBC API编程

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBCDLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVRDLL)把它们送到服务器中。

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。

Global giHEnv As Long

Global giHDB As Long

Global giHStmt As Long

Dim myResult As integer

Dim myConnection As Srting

Dim myBuff As String256

Dim myBufflen As Integer

If SQLAllocEnv(giHEnv)>SQL_SUCCESS Then

MsgBox"Allocation couldn注释：t happen!"

End If

If SQLAllocConnect(giHEnv,giHDB)>SQL_SUCCESS Then

MsgBox "SQL Server couldn注释：t connect!"

End If

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"

myResult=SQLDriverConnect(giHDB,Test,form1hWnd,myConnectionlen(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQU IE D)

myResult=SQLAllocStmt(giHDS,giHStmt)

myResult=SQLFreeStmt(giHStmt,SQL_COLSE)

rsSQL="Select from Customers Where City = "Hunan""

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))

细节

VBA外接程序可视化数据管理器（Visual Data Manager）是一款基于Visual Basic的数据管理工具，它可以帮助用户更轻松地管理大量数据，比如模型的构建、数据的整理、报告的绘制、数据的可视化等。它提供了一系列的图形界面工具，可以帮助用户更轻松地完成数据的处理和分析，提高工作效率，为用户提供更多的便利。

但是VBA外接程序可视化数据管理器并不能用于实现真正的数据库管理，它只能实现数据的统计、可视化和报告绘制等功能，而不能实现数据库的存储和查询等功能。另外，VBA外接程序可视化数据管理器也不能用于网络环境下的数据库管理，只能用于本地环境下的数据库管理。

VB连接数据库，通常单机的数据库可以选择Access，网络上VB连接mssql的也很多。

c你需要学会VB，然后了解数据库 *** 作，学一下sql语言。然后吧把学的这些串起来，就是你要的了。如果快的话，半个月基本能上手。

祝好运，望采纳。

建立数据库a，表名字b,字段c，文本格式,在窗体上画一command

要先引用microsoft activeX data object 25 library

代码如下：

Private Sub Command1_Click()

Dim cnDk As New ADODBConnection

Dim strDk As String

Dim rDk As New ADODBRecordset

Dim sql As String

strDk = "DBQ=" & AppPath & "\amdb;Driver={Microsoft Access Driver (mdb)};"

cnDkOpen strDk

'这里放置数据库 *** 作代码

cnDkClose

Set cnDk = Nothing

End Sub

以上就是关于我用VB做了个管理系统，数据库存在我电脑上，怎么让别人的电脑共享我的数据库，数据库是access全部的内容，包括:我用VB做了个管理系统，数据库存在我电脑上，怎么让别人的电脑共享我的数据库，数据库是access、数据库是什么意思，VB是拿来做什么用的它们有什么关系吗、VB访问SQLServer数据库技术全揭密等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！