Question

我需要在执行查询后从SQL数据库执行cath值的应用程序。我必须在xls文件中导入数据并在没有Microsoft Excel的情况下打开它们。我是初学者，有太多问题。谁能帮我。这是我的代码，目前：

Option Infer On
Imports System.Linq

Imports System.Data.SqlClient
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports ExcelLibrary.SpreadSheet





Public Class frmLottiCaricati
    Dim CnSql As SqlConnection

    Private Sub frmLottiCaricati_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.MdiParent = Inizio
        'TB_MinusValenza.Text = VariazionePrezzi.MinusValenza
        'TB_Periodo.Text = VariazionePrezzi.Periodo
        'DG_Prodotti.AutoGenerateColumns = False

        Try
            Dim StringaSql = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" + Inizio.DatabaseSql + ";Data Source=" + Inizio.ServerSql + ";User ID=" + Inizio.UtenteSql + ";Password=" + Inizio.PwdSql
            CnSql = New SqlConnection(StringaSql)
            CnSql.Open()
            Dim command As SqlCommand
            Dim dadapter As New SqlDataAdapter
            Dim DS_Prodotti As New Data.DataSet


            Dim qry_Prodotti = "SELECT sistemaf.prodscadenze.Ministeriale,  sistemaf.prodscadenze.Lotto, sistemaf.prodscadenze.Scadenza " & _
                                "FROM sistemaf.Prodscadenze "
            'INNER JOIN sistemaf.Prodscadenze  ON sistemaf.prodbase.Cod39 = sistemaf.prodscadenze.Ministeriale ;"

            command = New SqlCommand(qry_Prodotti, CnSql)
            dadapter.SelectCommand = command
            dadapter.Fill(DS_Prodotti)


            DG_Prodotti.DataSource = DS_Prodotti.Tables(0)
            'DG_Prodotti.Columns("Descrizione").Width = 220
            'DG_Prodotti.Columns("Ministeriale").Width = 60
            DG_Prodotti.Columns("Lotto").Width = 60
            'DG_Prodotti.Columns("Descrizione").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
            'DG_Prodotti.Columns("Totale").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

我现在只能使用Microsoft Excel打开数据。有什么建议吗？

Answer 1

使用OpenXML从Excel文件中读取数据，而无需安装Excel ....

http://www.microsoft.com/en-gb/download/details.aspx?id=30425

安装，然后看看这个网站。

http://msdn.microsoft.com/en-us/library/office/gg575571%28v=office.15%29.aspx

导入xls文件中的数据并在没有Microsoft Excel的情况下打开它们

1 个答案: