una - cadena de conexion access 2013 c#

Consultar la base de datos MDB de Microsoft Access utilizando LINQ y C#

Question

Tengo un archivo de base de datos * .MDB, y me pregunto si es posible o recomendable trabajar en su contra con LINQ en C #. También me pregunto cómo serían algunos ejemplos simples.

No sé mucho sobre LINQ, pero mis requisitos para esta tarea son bastante simples (creo). El usuario me pasará una ruta de archivo a la base de datos Microsoft Access MDB y me gustaría usar LINQ para agregar filas a una de las tablas dentro de la base de datos.

Answer 1

De hecho, recientemente (hoy) descubrí que puede acceder a una base de datos de Access con LinqToSql. Debe estar en el formato 2002 o posterior, no podrá arrastrar y soltar las tablas a su contexto de datos para crear manualmente los objetos en su dbml o puede usar la migración de SQL Server para Access para moverlo a un servidor SQL y luego arrastra y suelta todo lo que quieras. Cuando desee crear el contexto, páselo OleDbConnection. Use su cadena de conexión estándar Jet.OLEDB.4.0 en OleDbConnection y estará listo. Sin embargo, no estoy seguro de la limitación en la que puede incurrir. Acabo de hacer una muestra rápida e hice un OrderBy sin problema.

Answer 2

Escribí un pequeño programa de muestra para probar esto con la respuesta de David. Tendrá que crear una base de datos de acceso y crear manualmente el DBML para Linq-to-SQL, ya que no puede arrastrar y soltarlos.

Las inserciones fallan, citando el Missing semicolon (;) at end of SQL statement. pero las consultas parecen funcionar bien.

using System;
using System.Collections.Generic;
using System.Data.OleDb;
using System.IO;
using System.Linq;
using Linq2Access.Data;

namespace Linq2Access
{
    class Program
    {
        static readonly string AppPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location);
        static readonly string DbPath = Path.Combine(AppPath, "Data", "database.accdb");
        static readonly string DbConnString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=''" + DbPath + "'';Persist Security Info=False;";

        static void Main(string[] args)
        {
            if (!File.Exists(DbPath))
                throw new Exception("Database file does not exist!");

            using (OleDbConnection connection = new OleDbConnection(DbConnString))
            using (DataRepositoryDataContext db = new DataRepositoryDataContext(connection))
            {
                List<dbProject> projects = new List<dbProject>();
                for (int i = 1; i <= 10; i++)
                {
                    dbProject p = new dbProject() { Title = "Project #" + i };
                    for (int j = 1; j <= 10; j++)
                    {
                        dbTask t = new dbTask() { Title = "Task #" + (i * j) };
                        p.dbTasks.Add(t);
                    }
                    projects.Add(p);
                }

                try
                {
                    //This will fail to submit
                    db.dbProjects.InsertAllOnSubmit(projects);
                    db.SubmitChanges();
                    Console.WriteLine("Write succeeded! {0} projects, {1} tasks inserted",
                                        projects.Count,
                                        projects.Sum(x => x.dbTasks.Count));
                }
                catch(Exception ex)
                {
                    Console.WriteLine("Write FAILED. Details:");
                    Console.WriteLine(ex);
                    Console.WriteLine();
                }

                try
                {
                    //However, if you create the items manually in Access they seem to query fine
                    var projectsFromDb = db.dbProjects.Where(x => x.Title.Contains("#1"))
                                                        .OrderBy(x => x.ProjectID)
                                                        .ToList();

                    Console.WriteLine("Query succeeded! {0} Projects, {1} Tasks",
                                        projectsFromDb.Count,
                                        projectsFromDb.Sum(x => x.dbTasks.Count));
                }
                catch (Exception ex)
                {
                    Console.WriteLine("Query FAILED. Details:");
                    Console.WriteLine(ex);
                    Console.WriteLine();
                }

                Console.WriteLine();
                Console.WriteLine("Press any key to continue...");
                Console.ReadKey();
            }
        }
    }
}

Answer 3

He visto mucho esta pregunta y en varios foros. Intenté y aquí hay una respuesta completa para aquellos que lo han estado buscando.

LinQ no fue hecho para Access. Sin embargo, muchas de las consultas funcionarán con Access, incluido el procedimiento de eliminación. Entonces, según mi opinión, solo hay 2 deficiencias cruciales cuando se trabaja con Access, que son:

1. no ser capaz de guardar datos.
2. no ser capaz de arrastrar y soltar objetos en el dbml

La inserción fallará con el error "falta punto y coma (;)". Esto se debe a que el procedimiento de guardado de LinQ se realizó para guardar datos y recuperar el ID de clave principal del registro guardado de una vez. Sabemos que no puede ejecutar múltiples sentencias de SQL en Access, por lo que esa es la razón de esa falla.

La actualización fallará con el error "registro no encontrado". Un procedimiento de actualización hará que el registro se actualice y luego se actualice. No puedo decir por qué no lo encontraría, cuando la consulta normal de LinQ para encontrar un registro funciona bien.

Debido a que hay tanto beneficio en usar LinQ, descubrí cómo evitar la deficiencia, mientras disfruto de los otros beneficios a lo largo de mi aplicación. Así es como (NB: Mis códigos están en VB.net, pero puede convertirlos si es necesario):

Cree la clase LinQ a SQL (.dbml) para administrar su LinQ contra la base de datos de acceso y una forma de administrar su procedimiento de guardado. Debajo están los procedimientos completos de lo que creé y ahora trabajo con LinQ para acceder sin ningún problema:

Agregue un DataGridView en un formulario. Agregar botones para Agregar, Editar y Eliminar

Código para llenar la grilla:

Private Sub ResetForm()

    Try

        Using db As New AccessDataClassesDataContext(ACCCon)

            Dim rows = (From row In db.AccountTypes
                        Where row.AccountTypeID > 1
                        Order By row.AccountTypeID Ascending
                        Select row).ToList()
            Me.DataGridView1.DataSource = rows

        End Using

    Catch ex As Exception
        MessageBox.Show("Error: " & vbCr & ex.ToString, "Data Error", MessageBoxButtons.OK)
    End Try

End Sub

DetailForm

Código para establecer valores de control

Private Sub ResetForm ()

    Try

        If _accountTypeID = 0 Then
            Exit Sub
        End If


        Using db As New AccessDataClassesDataContext(ACCCon)

            ''Dim rows = (From row In db.AccountTypes
            ''            Where row.AccountTypeID = _accountTypeID
            ''            Order By row.AccountTypeID Ascending
            ''            Select row.AccountTypeID, row.AccountType, row.LastUpdated).ToList()
            Dim rows = (From row In db.AccountTypes
                        Where row.AccountTypeID = _accountTypeID
                        Select row).ToList()

            For Each s In rows

                Me.AccountTypeIDTextBox.Text = s.AccountTypeID
                Me.myGuidTextBox.Text = s.myGuid
                Me.AccountTypeTextBox.Text = s.AccountType
                Me.AcHeadIDTextBox.Text = s.AcHeadID
                Me.DescriptionTextBox.Text = s.Description
                Me.LastUpdatedDateTimePicker.Value = s.LastUpdated

            Next

        End Using

    Catch ex As Exception

    End Try

End Sub

LinQToSQLClass

Deberá agregar los objetos de datos al dbml manualmente ya que no puede arrastrar y soltar cuando usa Access. También tenga en cuenta que deberá establecer correctamente todas las propiedades de los campos en la ventana de propiedades. Varias propiedades no se establecen cuando agrega los campos.

Código para guardar

Función pública SaveAccountType (opcional ByVal tipo As String = "Cerrar") Como booleano

    Dim success As Boolean = False
    Dim row As New AccountType

    Using db As New AccessDataClassesDataContext(ACCCon)

        If _accountTypeID > 0 Then

            row = (From r In db.AccountTypes
                   Where r.AccountTypeID = _accountTypeID).ToList()(0)

            If String.IsNullOrEmpty(row.AccountTypeID) Then
                MessageBox.Show("Requested record not found", "Update Customer Error")
                Return success
            End If

        End If

        Try

            With row
                .myGuid = Me.myGuidTextBox.Text
                .AccountType = Me.AccountTypeTextBox.Text
                .Description = Me.DescriptionTextBox.Text
                .AcHeadID = Me.AcHeadIDTextBox.Text
                .LastUpdated = Date.Parse(Date.Now())
            End With


            If _accountTypeID = 0 Then db.AccountTypes.InsertOnSubmit(row)
            db.SubmitChanges()

            success = True

        Catch ex As Exception
            MessageBox.Show("Error saving to Customer: " & vbCr & ex.ToString, "Save Data Error")
        End Try

    End Using

    Return success

End Function

Ahora reemplace estas dos líneas:

            If _accountTypeID = 0 Then db.AccountTypes.InsertOnSubmit(row)
            db.SubmitChanges()

con algo como esto:

        Dim cmd As IDbCommand

        cmd = Me.Connection.CreateCommand()
        cmd.Transaction = Me.Transaction
        cmd.CommandText = query

        If myGuid.Trim.Length < 36 Then myGuid = UCase(System.Guid.NewGuid.ToString())
        cmd.Parameters.Add(New OleDbParameter("myGuid", row.myGuid))
        cmd.Parameters.Add(New OleDbParameter("AccountType", row.AccountType))
        cmd.Parameters.Add(New OleDbParameter("Description", row.Description))
        cmd.Parameters.Add(New OleDbParameter("AcHeadID", row.AcHeadID))
        cmd.Parameters.Add(New OleDbParameter("LastUpdated", Date.Now))
        If AccountTypeID > 0 Then cmd.Parameters.Add(New OleDbParameter("AccountTypeID", row.AccountTypeID))

        If Connection.State = ConnectionState.Closed Then Connection.Open()

        result = cmd.ExecuteNonQuery()

        cmd = Me.Connection.CreateCommand()
        cmd.Transaction = Me.Transaction
        cmd.CommandText = "SELECT @@IDENTITY"
        result = Convert.ToInt32(cmd.ExecuteScalar())

La última parte del código anterior es lo que le permite obtener la ID del registro guardado. Personalmente, generalmente lo hago una opción, porque no lo necesito en la mayoría de los casos, así que no necesito agregar esa sobrecarga de recuperar datos cada vez que se guarda un registro, estoy feliz de saber que registro fue guardado

Esa es la sobrecarga agregada a LinQ, que hace que el complemento falle con Access. ¿Es realmente necesario tenerlo? No lo creo.

Puede haber notado que normalmente pongo mis procedimientos de Actualización e Insertar juntos, de modo que eso me ahorra tiempo y ha abordado los procedimientos de Insertar y Actualizar de una vez.

Código para Eliminar:

Private Sub DelButton_Click(sender As Object, e As EventArgs) Handles DelButton.Click
    Using db As New AccessDataClassesDataContext(ACCCon)

        Dim AccountTypeID As Integer = Me.DataGridView1.CurrentRow.Cells(0).Value
        Dim row = From r In db.AccountTypes Where r.AccountTypeID = AccountTypeID

        For Each detail In row
            db.AccountTypes.DeleteOnSubmit(detail)
        Next

        Try
            db.SubmitChanges()
        Catch ex As Exception
            '' Provide for exceptions.
            MsgBox(ex)
        End Try

    End Using

End Sub

¡Ahora puedes disfrutar de LinQ para acceder! Feliz codificación :)

Answer 4

LINQ to SQL solo funciona para las bases de datos de SQL Server. Lo que necesita es Microsoft Entity Framework. Esto hace que el acceso orientado a objetos a su mdb. A partir de esto, puede ejecutar consultas LINQ.

http://msdn.microsoft.com/en-us/library/aa697427(vs.80).aspx

Answer 5

Lo que desea es un proveedor de LINQ a ODBC o un proveedor de LINQ a JET / OLEDB.

Fuera de la caja, MS no hace uno. Puede haber un tercero que sí.

Answer 6

Puedes usar un DataSet. Hay extensiones de linq que te permitirán consultar los datos con todo el bien de LINQ que hemos usado :)

eICATDataSet.ICSWSbuDataTable tbl = new eICATDataSet.ICSWSbuDataTable();

ICSWSbuTableAdapter ta = new ICSWSbuTableAdapter();
ta.Fill(tbl);

var res = tbl.Select(x => x.ProcedureDate.Year == 2010);