ошибка импорта файла Excel - PullRequest
0 голосов
/ 16 декабря 2010

Я нашел видео на YouTube, в котором показано, как импортировать файл Excel в таблицу данных.Я получаю сообщение об ошибке: не удалось найти устанавливаемый ISAM.

Вот мой код, что я делаю не так?

private void button1_Click(object sender, EventArgs e)
    {
        OleDbConnection conn = new OleDbConnection();
        conn.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Nick\Desktop\Pricing2.xlsx" + @";Exended Properties=""Excel 8.0;HDR=No;IMEX=1;ImportMixedTypes=Text;TypeGuessRows=0""";

        OleDbCommand command = new OleDbCommand
        (
            "SELECT PartNumber,ShortDescription,RetailPrice,JobberPrice,BasePrice,YourDiscount,YourPrice,LongDescription FROM [Pricing$]",conn
        );
        DataSet ds = new DataSet();
        OleDbDataAdapter adapter = new OleDbDataAdapter(command);
        adapter.Fill(ds);
        dataGridView1.DataSource = ds.Tables[0];
    }

Ответы [ 2 ]

0 голосов
/ 16 декабря 2010

У вас есть опечатка в строке подключения:

Exended Properties=

Должно быть:

Extended Properties=

Также я бы порекомендовал вам небольшое улучшение вашего кода, заключающееся в правильной утилизации одноразовыхресурсы:

using (var conn = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Nick\Desktop\Pricing2.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"))
using (var cmd = conn.CreateCommand())
{
    conn.Open();
    cmd.CommandText = "SELECT PartNumber,ShortDescription,RetailPrice,JobberPrice,BasePrice,YourDiscount,YourPrice,LongDescription FROM [Pricing$]";
    using (var adapter = new OleDbDataAdapter(cmd))
    {
        adapter.Fill(ds);
    }
}
0 голосов
/ 16 декабря 2010

Из моего опыта.Работает только excel 97-2003.

КОД В VB!

Private Sub DodajExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DodajExcel.Click
OpenFileDialog2.Filter = "Excel Files (*.xls)|*.xls|All Files (*.*)|*.*"
If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
    Dim XLSPathx As String = OpenFileDialog2.FileName
End If

Dim connectionStringTemplate As String = _
"Provider=Microsoft.ACE.OLEDB.12.0;" + _
"Data Source={0};" + _
"Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"""
Dim XLSPath As String = OpenFileDialog2.FileName
Dim connectionString As String = String.Format(connectionStringTemplate, XLSPath)
Dim sqlSelect As String = "SELECT * FROM [Arkusz1$];"
' Load the Excel worksheet into a DataTable
Dim workbook As DataSet = New DataSet()
Dim excelAdapter As System.Data.Common.DataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlSelect, connectionString)
Try
    excelAdapter.Fill(workbook)
    Dim worksheet As DataTable = workbook.Tables(0)
    DataGridView1.DataSource = worksheet


Catch
   End Try

End Sub

...