关于通过vb.net将SQL和Excel数据互通的求助

2015-03-09 10:07:57 366 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb.net 读取Excel 1、定义excel操作变量 dim objexcelfile as excel.application dim objworkbook as excel.workbook dim objimportsheet as excel.worksheet 阅读详情

设计一个数据库管理系统，数据库中现有一个“部门表”，字段是：“部门编号”、“部门名称”。
通过vb+sql代码设计实现Excel数据导入完成“部门表”数据的添加，以及将“部门表”中的数据导出到Excel。
谢谢不吝赐教。

相关程序设计平台信息：
系统：Windows 7 64位
vb版本：Visual Studio 2012
SQL版本：Microsoft SQL Server 2008 R2
Excel版本：Office 2007

另问：代码在Windows 7 64位系统和Windows 7 32位系统通用吗？
再次感谢！！

...全文

vb.net & Excel作为数据库 'Excle 保存的时候文件类型为 Excel 97-2003 ブック (*.xls) '--------------------------------------------- '注意选择表的时候要加上 "$" 符号表示是这个excel 的那一页面 '打开excel 然后get 到想要的worksheet 然后获取表名阅读详情

Bird没人疼

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

Tosp2012 2015-03-11

打赏
举报

代码在Windows 7 64位系统和Windows 7 32位系统通用吗？代碼通用，只是編譯時留意目標CPU的設置

Tosp2012 2015-03-11

打赏
举报

1、讀取Excel的函數


  Public Function LoadExcelToDataTable(ByVal FilePath As String, ByVal SheetName As String) As System.Data.DataTable
        LoadExcelToDataTable = Nothing
        Try
            Dim strConn As String
            'Excel 07及以下版本 
            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FilePath + ";Extended Properties='Excel 8.0;HDR=False;IMEX=1'"
            'Excel 2010版本 
            'strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + FilePath + ";Extended Properties='Excel 8.0;HDR=False;IMEX=1'"
            Dim OleConn As New OleDb.OleDbConnection(strConn)
            OleConn.Open()

             Dim sql As String = String.Empty
            sql = "Select * From [" & Trim(SheetName) & "$]"
            Dim OleDaExcel As New OleDb.OleDbDataAdapter(sql, OleConn)
            Dim OleDsExcle As New DataSet
            OleDaExcel.Fill(OleDsExcle)
            OleConn.Close()

            If OleDsExcle.Tables.Item(0).Rows.Count = 0 Then
                Return Nothing
            End If
            Return OleDsExcle.Tables(0)
        Catch ex As Exception
            MessageError("導入Excel文件失敗!失敗原因：" + ex.Message)
            Return Nothing
        End Try
    End Function

2、寫Excel有很多第三方控件就很方便。比如FlexGrid1.Save函數等。如果不用第三方控件，只有用程序打開Exce文件，逐個單元格填寫了，效率比較低（數據量不大的話，可以考慮）。

Justin-Liu 2015-03-09

打赏
举报

导入导出百度就能搜到

於黾 2015-03-09

打赏
举报

所谓"互通" 其实就是代码读写excel,代码读写数据库而已并不是数据库跟excel文件直接绑定你的程序作为中间件,把2个不一样的文件里的内容分别先放到内存里,再折腾读数据库不用多说,已经都玩烂了的,每种语言,每种编译器保证都支持的读写excel,建议还是找找第三方读写excel的dll,而不要使用office.excel.dll,这东西问题太多这里是NPOI的例子,不过是C#的,自己改改用VB去调用吧

关于通过vb.net将SQL和Excel数据互通的求助

相关推荐