铁拳游戏电脑版:VB中如何导入ACCESS数据

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 03:35:21
VB中如何导入ACCESS的*mdb数据??
别人给我了一个用VB编好的物业管理系统的程序。如何导入已有的数据??
请列出具体的方法谢谢~~!!
(如果是用代码实现,请仔细说出代码应该加在哪)

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

是将数据库中的数据读入程序吗?还有。数据导入程序中,要怎么显示?是入在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
至于放到哪里,你哪里要导入数据,就放到哪里好了。

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