请帮助我看一下这处程序：如何将Access(*.mdb)文件转换为其它的文件格式？-CSDN论坛

请帮助我看一下这处程序：如何将Access(*.mdb)文件转换为其它的文件格式？

.NET技术 > VB.NET

收藏回复

[问题点数：40分，结帖人jzp12]

⋅fread 释放heap内存时时会crash ⋅CLitBox控件，显示内容重复到一块 ⋅头文件中实现成员函数多了一个分号？ 更多帖子 关注私信空间博客 jzp12 等级 本版专家分：5 勋章 红花 2019年5月移动开发大版内专家分月排行榜第一 黄花 2019年4月移动开发大版内专家分月排行榜第二 蓝花 2019年7月移动开发大版内专家分月排行榜第三 结帖率 100%: 我想实现将其转换为如格式的文件．
*.DBF
*.MDB
*.XLS
*.DB
现在已经现实转换为*.XLS格式的文件，
但是其它的都不能，实现程序代码如下：帮我看看到底那里错了？

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim conn As New ADODB.Connection
    Dim rsExport As New ADODB.Recordset

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Dialog1 As System.Windows.Forms.SaveFileDialog
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    Protected Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.RadioButton1 = New System.Windows.Forms.RadioButton
        Me.RadioButton2 = New System.Windows.Forms.RadioButton
        Me.RadioButton3 = New System.Windows.Forms.RadioButton
        Me.RadioButton4 = New System.Windows.Forms.RadioButton
        Me.Button1 = New System.Windows.Forms.Button
        Me.Dialog1 = New System.Windows.Forms.SaveFileDialog
        Me.DataGrid1 = New System.Windows.Forms.DataGrid
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'RadioButton1
        '
        Me.RadioButton1.Location = New System.Drawing.Point(24, 32)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(120, 24)
        Me.RadioButton1.TabIndex = 0
        Me.RadioButton1.Text = "Foxpro格式"
        '
        'RadioButton2
        '
        Me.RadioButton2.Location = New System.Drawing.Point(24, 96)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.TabIndex = 1
        Me.RadioButton2.Text = "Access格式"
        '
        'RadioButton3
        '
        Me.RadioButton3.Location = New System.Drawing.Point(216, 32)
        Me.RadioButton3.Name = "RadioButton3"
        Me.RadioButton3.Size = New System.Drawing.Size(128, 24)
        Me.RadioButton3.TabIndex = 2
        Me.RadioButton3.Text = "Excel格式"
        '
        'RadioButton4
        '
        Me.RadioButton4.Location = New System.Drawing.Point(216, 96)
        Me.RadioButton4.Name = "RadioButton4"
        Me.RadioButton4.Size = New System.Drawing.Size(120, 24)
        Me.RadioButton4.TabIndex = 3
        Me.RadioButton4.Text = "Paradox4.x格式"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(104, 160)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(136, 40)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "转换"
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(256, 128)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.TabIndex = 5
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(432, 270)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.RadioButton4)
        Me.Controls.Add(Me.RadioButton3)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '连接数据可并打开记录集
        conn.CursorLocation = ADODB.CursorLocationEnum.adUseServer
        conn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\jzp.mdb;")
        rsExport.Open("Select * from Customers", conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) '初始化对话框

        With Dialog1
            .Filter = "FoxBase/FoxPro(*.DBF)|*.DBF|Access8.0(*.MDB)|*.MDB|Excel8.0(*.XLS)|*.XLS|Paradox4.x(*.DB)|*.DB"
            .Title = "导出文件为"
        End With
    End Sub

2007-06-04 22:04:40

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅fread 释放heap内存时时会crash ⋅CLitBox控件，显示内容重复到一块 ⋅头文件中实现成员函数多了一个分号？ 更多帖子 关注私信空间博客 jzp12 等级 本版专家分：5 勋章 红花 2019年5月移动开发大版内专家分月排行榜第一 黄花 2019年4月移动开发大版内专家分月排行榜第二 蓝花 2019年7月移动开发大版内专家分月排行榜第三: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPath As Object
        Dim myStr As String
        Dim myPos As Short
        Dim mdbTable As String
        Dim Export_Str As Object
        Try
            '**************处理选择的各种表的导出
            With Dialog1
                If RadioButton1.Checked Then
                    .FilterIndex = 1
                    .ShowDialog()
                    myStr = StrReverse(.FileName)  '串取反
                    myPos = InStr(myStr, "\")  '在反字符串中，找从左开始第一个位置
                    myPath = StrReverse(Mid(myStr, myPos))  '取目录部分，并还原。
                    myStr = StrReverse(Strings.Left(myStr, myPos - 1))  '取文件名
                    Export_Str = "select * into [dBaseⅢ;database= " & myPath & "]." & myStr & "from Customers"
                    .DefaultExt = "*.DBF"
                ElseIf RadioButton2.Checked Then
                    mdbTable = InputBox("请给导出到MDB文件的表确定表名")
                    .FilterIndex = 2
                    .ShowDialog()
                    Export_Str = "select * into [;database= " & .FileName & "]." & mdbTable & "from Customers"
                    .DefaultExt = "*.MDB"
                ElseIf RadioButton3.Checked Then
                    .FilterIndex = 3
                    .ShowDialog()
                    Export_Str = "select * into [Excel 8.0;database=" & .FileName & "].Customers from Customers"
                    .DefaultExt = "*.XLS"
                ElseIf RadioButton4.Checked Then
                    .FilterIndex = 4
                    .ShowDialog()
                    myStr = StrReverse(.FileName)   '串取反
                    myPos = InStr(myStr, "\") '在反字符串中，找从左开始第一个\的位置
                    myPath = StrReverse(Strings.Left(myStr, myPos - 1)) '取文件名
                    Export_Str = "select * into [Paradox4.X;database=" & myPath & "]." & myStr & " from Customers"
                    .DefaultExt = "*.DB"
                End If
            End With

            '************生成文件
            System.Diagnostics.Debug.WriteLine(Export_Str)
            If rsExport.State = 1 Then
                rsExport.Close()
            End If
            If Dir(Dialog1.FileName) <> "" Then
                '防用户没选文件
                If Dialog1.FilterIndex <> 2 Then
                    Kill((Dialog1.FileName))
                End If
                rsExport.Open(Export_Str, conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
            Else
                rsExport.Open(Export_Str, conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

            End If
        Catch
            Exit Sub
        End Try
    End Sub

    Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

    End Sub
End Class

2007-06-04 22:04:53

点赞只看TA 引用举报 #1得分 0

收起

收藏回复

jzp12

等级：

: 红花 2019年5月移动开发大版内专家分月排行榜第一

: 黄花 2019年4月移动开发大版内专家分月排行榜第二

: 蓝花 2019年7月移动开发大版内专家分月排行榜第三

关注私信 TA的帖子

随机森林MATLAB代码: 随机森林分类方法的matlab代码实现，包括分类、重要度打分和回归。

STM32Cube和HAL库使用初体验-第5季第2部分: 本季课程主要讲解STM32的全新开发方式：使用STM32CubeMX工具做图形化配置，自动生成初始化代码；添加各种中间件；使用HAL库和LL库来操作外设。结合朱老师物联网大讲堂专为nbiot物联网开发而设计的NB476开发板，本季课程能够让大家彻底掌握物联网时代以nbiot和低功耗STM32L4单片机为代表的典型开发模式，实战意义非常重要。本课程是《朱有鹏老师单片机完全学习系列课程》第5季第2个课程，本部分以时钟和GPIO模块为案例来讲解STM32CubeMX工具加HAL库加MDK5这套开发体系的流程、技术细节，目标是让大家真正入门HAL库方式开发STM32单片机。后续再接着讲其他更复杂外设。

核主成分分析法matlab源代码: 核主成分分析法 matlab源代码，非常好的一个例子

微信公众平台开发入门: 本套课程的设计完全是为初学者量身打造，课程内容由浅入深，课程讲解通俗易懂，代码实现简洁清晰。通过本课程的学习，学员能够入门微信公众平台开发，能够胜任企业级的订阅号、服务号、企业号的应用开发工作。通过本课程的学习，学员能够对微信公众平台有一个清晰的、系统性的认识。例如，公众号是什么，它有什么特点，它能做什么，怎么开发公众号。其次，通过本课程的学习，学员能够掌握微信公众平台开发的方法、技术和应用实现。例如，开发者文档怎么看，开发环境怎么搭建，基本的消息交互如何实现，常用的方法技巧有哪些，真实应用怎么开发。通过合理的课程设计，结合讲师多年的教学经验、微信开发经验，轻松引导初学者掌握微信公众平台开发。

Matlab神经网络及应用于近红外光谱的汽油辛烷值预测: BP神经网络与RBF神经网络的MATLAB实现辛烷值的预测报告，并附有源代码

ArcGIS for JavaScript: 全面介绍ArcGIS for JavaScript 开发让大家学会ArcGIS for JavaScript 开发

深度学习在机场能见度预测中的应用: 本文利用乌鲁木齐国际机场2007年至2016年的小时观测值，通过深度学习方法建立了机场能见度的回归预测模型。从结果我们可以看到：每小时能见度的绝对误差为706 m。当能见度≤1000 m时，绝对误差为325 m，该方法可以预测能见度的趋势。因此，我们可以使用此方法为将来的航空气象服务提供机场能见度的客观预报指导产品。本文以乌鲁木齐地区为研究对象，探讨在天气预报应用领域的学习深度，为天气预报人员提供新的能见度回报预报，从而提高能见度水平，以确保机场的安全稳定运行。

华为机考题库(全）: 包括招聘的机考题，及面试过程中会问到的数据结构的相关内容，排序算法全部包括并且有改进算法，一点点改进可以让你表现的与众不同，如果好的话给点评价吧亲

基于主成分分析与BP神经网络的雾天能见度等级预报: 基于主成分分析与BP神经网络的雾天能见度等级预报，黄政，包云轩，本文利用江苏省昆山市2012-2014年逐时常规气象观测数据、空气质量监测数据和能见度数据，分析了雾天能见度与各要素的相关性，并通过

2020年最新版学习资料.txt: 谷粒商城-2020年5月最新升级版，全套学习资料-微服务项目实战！！！

Matlab数据降维工具箱: Matlab Toolbox for Dimensionality Reduction Matlab数据降维工具箱，包括几乎所有的数据降维方法：PCA、LDA、ICA、MDS、Isomap、LandmarkIsomap、LLE、LLC、Laplacian、HessianLLE、LTSA、DiffusionMaps、KernelPCA、KernelLDA、SNE、NPE、LPP、SPE、LLTSA、SPCA、CCA、MVU、FastMVU、AutoEncoder、AutoEncoderEA

2020数学建模A题: 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据

智鼎(附答案).zip: 并不是完整题库，但是有智鼎在线2019年9、10、11三个月的试题，有十七套以上题目，普通的网申行测题足以对付，可以在做题时自己总结一些规律，都不是很难

主成分分析法matlab源代码: 用MATLAB实现的主成分分析法，有数据，可直接运行

简单网络管理协议SNMP通讯基础篇: 本课程主要对SNMP的发展历史、专业术语、应用场景、网络结构的解读，对SNMP通讯过程所涉及的MIB、PDU格式、对象的数据类型、通讯原语、TLV进行深入解读，接下来实践SNMP的通讯过程并分析所产生的请求和响应报文。课程特点：1、实操为主，理论讲解为辅； 2、避开难懂的概念，通俗化讲解； 3、通过实例操作理解SNMP；较快掌握SNMP的基本原理及SNMP通讯过程包的分析方法，为网络工程师、相关研发人员、技术人员及感兴趣的人士提供有价值的参考。

windows批处理教程: 教程共7个课时，批处理（Batch）通常被认为是一种简化的脚本语言，它应用于DOS和Windows系统中，它是由DOS或者Windows系统内嵌的解释。批处理文件具有.bat或者.cmd的扩展名。为什么我们需要用批处理呢？实际上，在很多情况下，批处理的效率要远远高于图形用户界面，批处理还有一个优点，就是它可以使用很多图形用户界面没有的工具。后一个优点，就是它逼哥高，一次执行，必有回响。掌握windows批处理编程

利用小波变换梯度计算能见度，包含实现的工程代码及相关文献: 这个算法基于的文章是《改进的基于图像边缘的能见度反演方法》，利用小波变换计算图像梯度，并把梯度平方和作为特征，计算能见度。 Vsibility_TempletImg工程主要是确定图像感兴趣区域，利用mfc抓取的方法确定坐标点，基于vs2010和opencv。 shearlet_matlab是基于matlab中的shearlet时域变换完成的。最后的结果不是特别理想，可能和采集的图片也有很大的关系。

基于支持向量机的P300脑电信号分类研究: 基于支持向量机的P300脑电信号分类研究-吕竟雷本文针对P300脑电信号的特点，通过P300仿真信号和国际标准实验信号，对支持向量机分类识别P300脑电信号进行了研究。研究结果显示，支持向量机对P300仿真信号具有很高的识别率和识别速度;对于真实P300脑电信号，在标准识别方案的基础上，通过多次信号平均和参数优化，并采用整个训练集进行分类器的训练，识别率达到90. 3%，满足了识别性能要求。值得一提的是，在分类识别过程中，仅仅采用了15个通道的采样数据和较少的预处理(总通道数:64 )，识别速度比较快。

matlab2020a下载地址.txt: 最新的matlab软件的下载地址，推荐配合我的博客一起看。

脑机接口系统中EEG信号特征提取与分类: 脑机接口系统中EEG信号特征提取与分类，CSP算法

数据结构基础系列(1)：数据结构和算法: 数据结构课程是计算机类专业的专业基础课程，在IT人才培养中，起着重要的作用。课程按照大学计算机类专业课程大纲的要求，安排教学内容，满足需要系统学习数据结构的人。系列课程包含11个部分，本课为第1部分，介绍与数据结构、程序、算法相关的概念，训练初步的数据逻辑结构表达能力，和初步的算法分析能力。系列课程的目标是帮助学习者系统掌握数据结构课程的相关知识，具备利用这些知识分析问题、解决问题的能力。课程提供视频、课件、例程、自测、实践要求、参考解答等整套的解决方案，帮助学习者达到目标。本课是系列课程中的第1部分，具体目标包括：了解数据结构在计算机类人才培养中的重要意义、掌握数据结构的基本概念、掌握数据结构的分类、理解抽象数据类型ADT及其作用，以及初步学会算法分析的“套路”。

BP神经网络预测超详细: 基于BP神经网络，测试集辛烷值含量预测结果对比

SAP FIORI开发入门: 【课程目标】打造一个简单实用的 SAP FIORI 入门开发课程，帮助广大 SAP 技术人员或者希望进入 SAP 技术领域的人打开一扇门。【课程形式】视频教程 + PDF 参考资料【学习门槛】零门槛，无需任何额外知识【作者微信】eksbobo 【如何入群】使用购买课程的 ID 作为请求信息，发送到作者的微信添加好友，作者会把您拉入到这门课程的微信群中。打造一个简单实用的 SAP FIORI 入门开发课程，帮助广大 SAP 技术人员或者希望进入 SAP 技术领域的人打开一扇门。

神经网络对汽油辛烷值进行预测: 网络上的神经网络对汽油辛烷值进行预测，个人进行了总结与修改并在Matlab上测试，通过训练spectra_data数据，然后测试，生成实际值与预测值对比，精确度较高，代码简单，适合初学者学习。

c语言项目开发实例: 十个c语言案例（1）贪吃蛇（2）五子棋游戏（3）电话薄管理系统（4）计算器（5）万年历（6）电子表（7）客户端和服务器通信（8）潜艇大战游戏（9）鼠标器程序（10）手机通讯录系统

navicat简体中文版绿色版（64位）: 解压后安装navicat，打开navicat执行PatchNavicat即破解成功。可以正常使用啦。

t-sne降维可视化实例matlab: 这是用t-sne算法对手写数字实例进行降维，可视化的实例，完美实现算法对手写数字的聚类，实现了分类效果。已经过检验可以使用，可放心下载运行。

HarmonyOS.rar 华为鸿蒙操作系统源码国产操作系统源码华为源码: `HarmonyOS` is the first full-scene distributed OS based on micro-kernel. It is an operating system independently developed by Huawei. On August 9, 2019, `HarmonyOS` System was officially released at the Huawei Developers Conference (). Huawei will take the lead in deploying intelligent terminals such as smart screens, vehicle terminals and wearable terminals. In the future, more and more intelligent devices will use open source `HarmonyOS` .

数值分析原理_吴勃英: 数值分析原理科学出版社吴勃英主编课本扫描件,lueluelue

t-sne算法matlab原函数: matlab的t-sne算法，完美实现t-sne算法，已经过检验可以使用，可放心下载运行。

相关热词 c#产生随机验证码的方法 access c# 类 c#特性标签 c# 字体组件基类 c# path 枚举 c#网页打开文档 c#iterator() c#项目窗口项目重命名 c#显示图像 gdal c#怎么防止sql注入