Ядро базы данных Microsoft Access не может открыть или записать файл

У меня есть следующая функция:

Public Function OleDBCSVToDataTable(directory As String, tableName As String, fileName As String, Optional start As Long = 0) As DataTable
    Dim CnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & directory & ";Extended Properties='Excel 8.0;HDR=YES'"
    Dim dt As DataTable = GetTableSchema(tableName)
    Using Adp As New OleDbDataAdapter("select * from [" & fileName & "]", CnStr)
        Adp.Fill(start, 1000, dt)
    End Using

    Return dt
End Function

Функция предназначена для чтения CSV в таблицу данных с использованием OLEDB для импорта в SQL, однако я получаю эту ошибку:

«Ядро базы данных Microsoft Access не может открыть или записать в файл« C:\TEST ». Он уже открыт исключительно другим пользователем, или вам нужно разрешение на просмотр и запись его данных».

Я попытался это решение. Все разрешения предоставлены (полный доступ для пользователей):

введите здесь описание изображения

Я видел это, однако предлагаемые варианты, отличные от OLEDB, являются решениями, которые, похоже, не работают с CSV. Кроме того, я думаю, что есть нативные библиотеки.

Однако я открыт для предложений по лучшим способам достижения этого, исходя из требований — больших CSV, проверки данных — это кажется лучшим, если предположить, что я смогу заставить его работать.


person user    schedule 18.06.2018    source источник
comment
Если вы используете файлы, которые может прочитать движок Jet, я бы рекомендовал использовать его, а не ACE, потому что Jet в основном является частью Windows, а ACE требует либо установки Office, либо автономной установки.   -  person jmcilhinney    schedule 18.06.2018
comment
Обычно вы указываете, что тип файла — Excel, только если это специфичный для Excel тип. Посетите connectionstrings.com, чтобы узнать об обычном способе подключения к текстовому файлу.   -  person jmcilhinney    schedule 18.06.2018
comment
Вы уверены, что файл еще не открыт в Excel или в другом месте?   -  person jmcilhinney    schedule 18.06.2018
comment
Вы также можете использовать TextFieldParser для чтения CSV-файла и самостоятельно заполнить DataTable. В некоторых случаях это может быть желательно или даже необходимо, если ADO.NET не считывает данные как нужные вам типы данных.   -  person jmcilhinney    schedule 18.06.2018
comment
Вы святой. Изменение строки подключения сработало. Теперь: Dim CnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & directory & ;Extended Properties=text;HDR=No;FMT=Delimited; Я рассмотрю TextFieldParser, потому что требуется проверка данных. Спасибо еще раз.   -  person user    schedule 18.06.2018


Ответы (1)


Как насчет импорта файла CSV в DataGridView, а затем экспорта из этого объекта в MS Access?

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Globalization;
using System.Configuration;
using System.Data.OleDb;

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

         public void button1_Click(object sender, EventArgs e)
         {
         string delimiter = ",";
         string tablename = "medTable";
         DataSet dataset = new DataSet();
         OpenFileDialog openFileDialog1 = new OpenFileDialog();
         openFileDialog1.Filter = "CSV Files (*.csv)|*.csv|All Files (*.*)|*.*";
         openFileDialog1.FilterIndex = 1;
         if (openFileDialog1.ShowDialog() == DialogResult.OK)
         {
         if (MessageBox.Show("Are you sure you want to import the data from \n " + openFileDialog1.FileName + "?", "Are you sure?", MessageBoxButtons.YesNo) == DialogResult.Yes)
         {
         filename = openFileDialog1.FileName;
         StreamReader sr = new StreamReader(filename);
         string csv = File.ReadAllText(openFileDialog1.FileName);
         dataset.Tables.Add(tablename);
         dataset.Tables[tablename].Columns.Add("Order ID");
         dataset.Tables[tablename].Columns.Add("Product");
         dataset.Tables[tablename].Columns.Add("Unit Price");
         dataset.Tables[tablename].Columns.Add("Quantity");
         dataset.Tables[tablename].Columns.Add("Discount");

         string allData = sr.ReadToEnd();
         string[] rows = allData.Split("\r".ToCharArray());

         foreach (string r in rows)
         {
         string[] items = r.Split(delimiter.ToCharArray());
         dataset.Tables[tablename].Rows.Add(items);
         }
         this.dataGridView1.DataSource = dataset.Tables[0].DefaultView;
         MessageBox.Show(filename + " was successfully imported. \n Please review all data before sending it to the database.", "Success!", MessageBoxButtons.OK);
         }
         else
         {
         this.Close();
         }
         }
         }

         public string filename { get; set; }


         private void openFileDialog1_FileOk(object sender, CancelEventArgs e)
         {

         }

         private void Import_Load(object sender, EventArgs e)
         {

         }

         private void button4_Click(object sender, EventArgs e)
         {
         Application.Exit();

         }

         private void button2_Click(object sender, EventArgs e)
         {
         this.Close();
         }

         private void button3_Click(object sender, EventArgs e)

         //remove the semicolon, and add brackets below after line
         { 
         //create the connection string
             string connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Users\\Ryan\\Desktop\\Coding\\Microsoft Access\\Northwind_2012.mdb";

             //create the database query
         string query = "SELECT * FROM [OrderDetailsTest]";

             //create an OleDbDataAdapter to execute the query
         OleDbDataAdapter dAdapter = new OleDbDataAdapter(query, connString);

             //create a command builder
         OleDbCommandBuilder cBuilder = new OleDbCommandBuilder(dAdapter);

             //create a DataTable to hold the query results
         DataTable dTable = new DataTable();

             //fill the DataTable
         dAdapter.Fill(dTable);

             //the DataGridView
         DataGridView dataGridView1 = new DataGridView();

             //BindingSource to sync DataTable and DataGridView
         BindingSource bSource = new BindingSource();

             //set the BindingSource DataSource
         bSource.DataSource = dTable;

             //set the DataGridView DataSource
         dataGridView1.DataSource = bSource;

             // An update function to get the changes back into the database.
         dAdapter.Update(dTable);
         }
    }
 }

введите здесь описание изображения

person ASH    schedule 06.07.2018