VB中如何导入ACCESS数据

VB中如何导入ACCESS的*mdb数据??别人给我了一个用VB编好的物业管理系统的程序。如何导入已有的数据??请列出具体的方法谢谢~~!!(如果是用代码实现,请仔细说出... VB中如何导入ACCESS的*mdb数据??
别人给我了一个用VB编好的物业管理系统的程序。如何导入已有的数据??
请列出具体的方法谢谢~~!!
(如果是用代码实现,请仔细说出代码应该加在哪)
展开
 我来答
zdingyun
2016-01-06 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48174
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

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

希声II无形
推荐于2016-08-08 · 超过25用户采纳过TA的回答
知道答主
回答量:116
采纳率:0%
帮助的人:48.3万
展开全部
是将数据库中的数据读入程序吗?还有。数据导入程序中,要怎么显示?是入在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
至于放到哪里,你哪里要导入数据,就放到哪里好了。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
devil0153
2006-05-12 · TA获得超过206个赞
知道答主
回答量:126
采纳率:0%
帮助的人:91.9万
展开全部
在“外接程序”菜单下有一个“可视化数据管理器”用那个可能能够解决你的问题!!!!!!!!!!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式