Question

VB中如何导入ACCESS数据

VB中如何导入ACCESS的*mdb数据??
别人给我了一个用VB编好的物业管理系统的程序。如何导入已有的数据？？
请列出具体的方法谢谢~~！！
（如果是用代码实现，请仔细说出代码应该加在哪）

Answer 1

VB6.0中通过使用ADO数据对象或使用ADO Data 控件来关联ACCESS的MDB数据库和SQL结构化查询语言来导入数据。

• ADO Data 控件， ADO Data 控件使用 Microsoft ActiveX 数据对象(ADO)
  来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。数据提供者可以是任何符合 OLEDB 规范的数据源。使用
  Visual Basic 的类模块也可以很方便地创建子集的数据提供者。

  尽管可以在应用程序中直接使用 ActiveX 数据对象(ADO)，但 ADO Data 控件有作为一个图形控件的优势（具有“向前”和“向后”按钮），以及一个易于使用的界面，使您可以用最少的代码创建数据库应用程序。

• ADO 是为 Microsoft最新和最强大的数据访问范例 OLE DB 而设计的，是一个便于使用的应用程序层接口。OLE DB为任何数据源提供了高性能的访问，这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等等。ADO 在关键的 Internet方案中使用最少的网络流量，并且在前端和数据源之间使用最少的层数，所有这些都是为了提供轻量、高性能的接口。之所以称为 ADO，是用了一个比较熟悉的暗喻，OLE自动化接口。同时 ADO 使用了与 DAO和 RDO相似的约定和特性，简化的语义使它更易于学习。

• 结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统；同时也是数据库脚本文件的扩展名。
  

• 应用代码示例：

  ADO：

  Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '定义数据库的连接

      Dim rs As New ADODB.Recordset

      Dim sql As String

      sql = "select * from jishijilu"

      cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      cn.Open

      rs.CursorLocation = adUseClient

      rs.Open sql, cn, adOpenDynamic, adLockOptimistic

      Set DataGrid1.DataSource = rs

  End Sub

  ADO Data控件：

  Private Sub Command2_Click()

      sql = "select * from jishijilu"

      Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      Adodc1.RecordSource = sql

      Adodc1.Refresh

      Set DataGrid1.DataSource = Adodc1

  End Sub

Answer 2

是将数据库中的数据读入程序吗?还有。数据导入程序中，要怎么显示？是入在datagrid里显示吗？
数据库操作可以用ADO来进行。
打开数据库：
Dim cn As New ADODB.Connection
cn.ConnectionString = "Data Source=" & App.Path & "/" & database_name & ";User ID=" & user_id & _
";Jet OLEDB:Database Password=" & password
cn.CommandTimeout = 100
cn.Provider = "Microsoft.Jet.OLEDB.3.51" ' 这和你使用的VB的版本有关
cn.Open

查询的代码：
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "Select ProductID from products", & _
"Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=d:\vb5_win95\nwind.mdb", _
adOpenDynamic, adLockUnspecified
至于放到哪里，你哪里要导入数据，就放到哪里好了。

Answer 3

在“外接程序”菜单下有一个“可视化数据管理器”用那个可能能够解决你的问题！！！！！！！！！！