Обновление ячеек с использованием набора данных, прочитанного из файла xls и сохраненного в файл CSV - PullRequest
Новая
       12

Обновление ячеек с использованием набора данных, прочитанного из файла xls и сохраненного в файл CSV

0 голосов
/ 05 июня 2018

Может кто-нибудь сказать мне, почему эта процедура обновления не работает?Я хочу прочитать данные в набор данных из XLS, и он работает просто отлично, но ОБНОВЛЕНИЕ не работает вообще.Нет ошибок, нет изменений, как будто его не существует.Файл создается, но значения - это просто копия из оригинального xls.

Формат листа Xls довольно прост, один столбец: id 1 2 3 

       string string_conn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\name.xls;Extended Properties='Excel 8.0;HDR=Yes;'";

        OleDbConnection conn = new OleDbConnection(string_conn);
        conn.Open();

        DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);

        string[] excelSheets = new String[dt.Rows.Count];
        int i = 0;

        foreach (DataRow row in dt.Rows)
        {
            excelSheets[i] = row["TABLE_NAME"].ToString();
            i++;
        }

        comboBox1.DataSource = excelSheets;
        string xlsSheet = comboBox1.SelectedItem.ToString();

        OleDbDataAdapter adapter = new OleDbDataAdapter("SELECT * FROM [" + xlsSheet + "]", conn);
        DataSet dataset = new DataSet();
        adapter.Fill(dataset);

        adapter.UpdateCommand = new OleDbCommand ("UPDATE " + xlsSheet + " SET id = " + tbox1.Text + " WHERE id = " + tbox2.Text + "", conn);
        adapter.UpdateCommand.Parameters.Add("@id", OleDbType.Char, 255).SourceColumn = "id";
        adapter.UpdateCommand.Parameters.Add("@Oldid", OleDbType.Char, 255, "id").SourceVersion = DataRowVersion.Original;

        adapter.Update(dataset);
        dataset.AcceptChanges();


        DataTable dtable = new DataTable();
        dtable = dataset.Tables[0];


        StringBuilder str = new StringBuilder();
        foreach (DataRow dr in dtable.Rows)
        {
            foreach (var field in dr.ItemArray)
            {
                str.Append(field.ToString());
                str.Append(", ");
            }
            str.Replace(",", str.AppendLine().ToString(), str.Length - 1, 1);
        }

        MessageBox.Show(str.ToString()); //for test's sake

        string pathFile = @"path\filename.csv";

        if (!File.Exists(pathFile))
        {
            File.Create(pathFile).Close();
        }

        File.AppendAllText(pathFile, str.ToString());

Что-то не так с параметрами, вероятно, но япопробовал этот путь и тоже не ходил (я добавил 2-й столбец, чтобы id остался прежним только для того, чтобы найти нужную строку), я получаю ошибку синтаксиса команды UPDATE при выполнении: 

string string_conn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\arkusz.xls;Extended Properties='Excel 8.0;HDR=Yes;'";

        OleDbConnection conn= new OleDbConnection(string_conn);
        conn.Open();

        DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);

        string[] excelSheets = new String[dt.Rows.Count];
        int i = 0;

        foreach (DataRow row in dt.Rows)
        {
            excelSheets[i] = row["TABLE_NAME"].ToString();
            i++;
        }

        comboBox1.DataSource = excelSheets;
        string xlsSheet = comboBox1.SelectedItem.ToString();

        OleDbDataAdapter adapter = new OleDbDataAdapter("SELECT * FROM [" + xlsSheet + "]", conn);
        DataSet dataset = new DataSet();
        adapter.Fill(dataset);

        adapter.UpdateCommand = new OleDbCommand("UPDATE " + xlsSheet + " SET nazwa = @nazwa WHERE id = @id", conn);

   adapter.UpdateCommand.Parameters.AddWithValue("@id", tbox1.Text).OleDbType = OleDbType.Integer;
        adapter.UpdateCommand.Parameters.AddWithValue("@nazwa", tbox2.Text).OleDbType = OleDbType.VarChar;
        adapter.UpdateCommand.ExecuteNonQuery();

        adapter.Update(dataset);
        dataset.AcceptChanges();


        DataTable dtable = new DataTable();
        dtable = dataset.Tables[0];



        StringBuilder str = new StringBuilder();
        foreach (DataRow dr in dtable.Rows)
        {
            foreach (var field in dr.ItemArray)
            {
                str.Append(field.ToString());
                str.Append(", ");
            }
            str.Replace(",", str.AppendLine().ToString(), str.Length - 1, 1);
        }

        MessageBox.Show(str.ToString());

        string sciezkaPlik = @"path\filename.csv";

        if (!File.Exists(sciezkaPlik))
        {
            File.Create(sciezkaPlik).Close();
        }

        File.AppendAllText(sciezkaPlik, str.ToString());

Я решил проблему.Для дальнейшего использования это работает так: 

 string string_conn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\arkusz.xls;Extended Properties='Excel 8.0;HDR=Yes;'";

        OleDbConnection conn = new OleDbConnection(string_conn);
        conn.Open();

        DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);

        string[] excelSheets = new String[dt.Rows.Count];

        int i = 0;

        foreach (DataRow row in dt.Rows) 
        {
            excelSheets[i] = row["TABLE_NAME"].ToString();
            i++;
        }

        comboBox1.DataSource = excelSheets; 
        string xlsSheet = comboBox1.SelectedItem.ToString(); 

        OleDbDataAdapter adapter = new OleDbDataAdapter("SELECT * FROM [" + xlsSheet + "]", conn);

        DataSet dataset = new DataSet();
        adapter.Fill(dataset);


        OleDbCommand odbc = new OleDbCommand("UPDATE ["+xlsSheet+"] SET nazwa = " + txtNewValue.Text + " WHERE id = " + txtID.Text + "", conn);

        adapter.UpdateCommand = odbc;

        odbc.Parameters.AddWithValue("nazwa", txtNewValue.Text).OleDbType = OleDbType.VarChar;
        odbc.Parameters.AddWithValue("id", txtID.Text).OleDbType = OleDbType.Integer;

        odbc.ExecuteNonQuery();

        dataset.Clear();
        adapter.Fill(dataset);

        DataTable dtable = new DataTable();
        dtable = dataset.Tables[0];

        StringBuilder str = new StringBuilder();
        foreach (DataRow dr in dtable.Rows) 
        {
            foreach (var field in dr.ItemArray) /
            {
                str.Append(field.ToString());
                str.Append(", ");
            }
            str = str.Replace(',', '\n'); 
        }

        string filePath= @"path\filename.csv"; 

        if (!File.Exists(filePath))
        {
            File.Create(filePath).Close();
        }

        File.WriteAllText(filePath, str.ToString());

Ответы [ 2 ]

0 голосов
/ 06 июля 2018

Заяц - очень простой способ сделать вставку в лист Excel. 

using System;
using System.Drawing;
using System.Windows.Forms;
using Excel = Microsoft.Office.Interop.Excel; 

namespace WindowsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            try
            {
                System.Data.OleDb.OleDbConnection MyConnection ;
                System.Data.OleDb.OleDbCommand myCommand = new System.Data.OleDb.OleDbCommand();
                string sql = null;
                MyConnection = new System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\\csharp.net-informations.xls';Extended Properties=Excel 8.0;");
                MyConnection.Open();
                myCommand.Connection = MyConnection;
                sql = "Insert into [Sheet1$] (id,name) values('5','e')";
                myCommand.CommandText = sql;
                myCommand.ExecuteNonQuery();
                MyConnection.Close();
            }
            catch (Exception ex)
            {
                MessageBox.Show (ex.ToString());
            }
        }
   }
}
0 голосов
/ 05 июня 2018

РЕДАКТИРОВАТЬ - я думаю, возможно, что в этой строке нужно ввести параметры в виде знака вопроса, а не передавать фактические значения, так что примерно так: 

adapter.UpdateCommand = new OleDbCommand ("UPDATE " + xlsSheet + " SET id = ? WHERE id = ?", conn);

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

adapter.UpdateCommand.Parameters.Add("@id", OleDbType.Char, 255).SourceColumn = "id";
adapter.UpdateCommand.Parameters.Add("@Oldid", OleDbType.Char, 255, "id").SourceVersion = DataRowVersion.Original;
...