Visual Basic 2012 借助DataGridView控件将SQL server2012 数据导入到Excel 2010

摘  要： SQL Server 2012 数据和Excel 2010之间的连接和数据的传输，本篇文章主要针对的是SQL Server 2012 数据导入到Excel 2010文件中。Excel软件对数据的修改和编辑具有很大的优势，而SQL Server在数据的查询、存储以及安全方面是Excel无法相比的。因此，通过Visual Basic实现了Excel和SQL server之间的数据传输可以很好地结合两者的优点，更好更快地编辑，修改和存储数据。

关键词：Visual Basic 2012；SQL server 2012；数据；传输；

1引言

在现代互联网信息爆炸的时代，信息不论在数量和内容上都会发生很快的更新，因此及时实现对信息的管理和更新非常重要，SQL server数据库在数据的存储、管理和查询方面非常便捷，尤其提供了很大程度的安全性，然而SQL server数据库在跨系统的数据交换仍存在一定的不便。在数据的编程方面也不能喝Excel相比。Excel在文件处理、保存、传送、交换数据方面非常便利，却在数据的集中管理和查询方面也不方便。本文主要研究了使用Visual实现Excel和SQL server数据之间的数据交换在信息管理系统的应用，包括将SQL server数据导入到Excel中，同时可以直接在Visual Basic 2012的可视化界面上对数据进行修改、删除和添加等编辑动作。

2.SQL server数据导入到Excel的实现

     数据的导出主要是将SQL server 2012版本的数据库Books.mdf中的Authors表中的数据导出到Excel 2010文件的Sample Worksheet工作簿中，这样可以方便数据库的使用者下载自己需要的信息。主要的思路是将数据存入到一个新建的Excel中，然后存储起来以便使用。

2.1使用Visual Basic控件

在本案例中DataGridView数据库控件是实现Visual Basic 2012和SQL server2012数据库之间桥梁，通过它可以将数据库中的数据读取出来，然后在DataGridView数据库控件中显示出来。DataGridView控件就是以DataSet连接的数据库为数据源，在界面上可以对应的显示出来。

2.2 Visual Basic 2012中的控件DataGridView上显示 SQL Server 2012数据

   2.2.1在Visual Basic 2012中创建SQL server To Excel项目。打开 Visual studio 2012，“开始”——“所有程序”——“ Microsoft Visual Studio 2012”—— Visual studio 2012——“文件”——“新建项目”——“visual basic”——“Windows 窗体应用程序”，在“名称”里输入“SQL server 2012 数据库导入到Excel 2010”，记下位置路径，准备后面使用“c:usersadministratordocumentsvisual studio 2012Projects”如图：

 

建成项目后，需添加必须的引用，添加“项目”——“添加引用”——“框架”（.NET）——“扩展”——“Microsoft.Office.Interop.Excel ”、“Microsoft.Office.tools.Excel”、“office”、“ADODB”。打开项目所在的目录“c:usersadministratordocumentsvisual studio 2012Projects”——“SQL server 2012 数据库导入到Excel 2010”——“SQL server 2012 数据库导入到Excel 2010”——“bin”——“debug”，将所建的数据库“Books.mdf”和“Books_log.ldf”复制到这里，这样可以实现在没有安装SQL server软件的另一台电脑上使用，决定了所编程软件的灵活性。由于操作数据库，所以要导入类，这样可以简化编写代码。在窗体代码顶部：输入代码

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Office
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Tools.Excel
Imports Excel = Microsoft.Office.Interop.Excel

2.2.2 在窗体上添加一个DataGridView控件（属性默认）和一个Button控件（Text属性值为“导出到Excel 2010 文件”），在窗体类中定义连接字符串SqlConnection、Sqlcommand对象、SqlDataset对象、DataSet对象。输入代码：

Dim objconnection As SqlConnection = New SqlConnection("Data Source=(LocalDB)v11.0;AttachDbFilename=" & My.Application.Info.DirectoryPath & "ooks.mdf;Persist Security Info = False")
Dim objCommand As SqlCommand = New SqlCommand()
Dim objDataAdapter As New SqlDataAdapter()
Dim objDataSet As New DataSet()

提示：My.Application.Info.DirectoryPath指的就是所保存的项目文件中bin文件夹下的debug文件夹路径。

2.2.3在窗体加载事件（Form1_Load）中添加代码。

     代码如下：

  objDataAdapter.SelectCommand = New SqlCommand()
  objDataAdapter.SelectCommand.Connection = objconnection       
  objDataAdapter.SelectCommand.CommandText = "SELECT AuthorID,FirstName,LastName FROM Authors"       
  objDataAdapter.SelectCommand.CommandType = CommandType.Text
  objconnection.Open()
  objDataAdapter.Fill(objDataSet, "Authors")
  objconnection.Close()
  DataGridView1.AutoGenerateColumns = True
  DataGridView1.DataSource = objDataSet
  DataGridView1.DataMember = "Authors"
  objDataAdapter = Nothing
  objconnection = Nothing

2.2.4本程序至此已全完成，进行运行测试。点击“运行”按钮，运行结果如图；单击“导出到Excel 2010文件”按钮，运行结果如图：

3结语

本文中所用到的数据库books.mdf是“Visual Basic 2012 How to Program”一书中的源代码中的文件。非常感谢这本书的作者Deital。笔者认为理的“魂”——简短，尽可能地删去了解释方面的语句。其实通过代码在DataGridView控件和Excel的界面可以做更改以致看起来更好。以后会再写一篇“Excel 2010 文件导入到SQL server 2012数据库”的文章，相互对应。

附：完整代码

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Office
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Tools.Excel
Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Dim objconnection As SqlConnection = New SqlConnection("Data Source=(LocalDB)v11.0;AttachDbFilename=" & My.Application.Info.DirectoryPath & "ooks.mdf;Persist Security Info = False")
    Dim objCommand As SqlCommand = New SqlCommand()
    Dim objDataAdapter As New SqlDataAdapter()
    Dim objDataSet As New DataSet()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        objDataAdapter.SelectCommand = New SqlCommand()
        objDataAdapter.SelectCommand.Connection = objconnection
        objDataAdapter.SelectCommand.CommandText = "SELECT AuthorID,FirstName,LastName FROM Authors"
        objDataAdapter.SelectCommand.CommandType = CommandType.Text
        objconnection.Open()
        objDataAdapter.Fill(objDataSet, "Authors")
        objconnection.Close()
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = objDataSet
        DataGridView1.DataMember = "Authors"
        objDataAdapter = Nothing
        objconnection = Nothing

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlApp.Visible = True
        xlBook = xlApp.Workbooks.Add()
        xlSheet = CType(xlBook.Sheets.Add(), Excel.Worksheet)
        xlSheet.Name = "Sample Worksheet"
        xlApp.DisplayAlerts = False

        With xlSheet
            .Range("a1").CurrentRegion.Clear()
            For i = 1 To DataGridView1.Columns.Count 'i 为列
                .Cells(1, i) = DataGridView1.Columns(i - 1).HeaderText
                For j = 0 To DataGridView1.Rows.Count - 1  'j 为行
                    .Cells(j + 2, i) = DataGridView1.Item(i - 1, j).Value
                Next j
            Next i
        End With

    End Sub
End Class