none
Es posible leer datos desde Acces y guardarla en Mysql server como se hace en sql RRS feed

  • Pregunta

  • Hola el ejemplo de pasar los datso de tablas de access a sql, como se hace pasar de access a mysql

    Imports System.Data.OleDb
    Module Module1
        ''' <summary>
        ''' Crea una nueva tabla en la base de datos de SQL Server
        ''' con la misma estructura de campos que la tabla de la
        ''' base de datos de Access especificada.
        ''' </summary>
        ''' <param name="cnn">Objeto OleDbConnection abierto con 
        ''' la base de datos de Access.</param>
        ''' <param name="databaseName">Nombre de la base de datos de SQL Server.</param>
        ''' <param name="tableName">Nombre de la tabla.</param>
        ''' <remarks></remarks>
        Private Sub CreateTable(cnn As OleDbConnection, _
                                databaseName As String, _
                                tableName As String)

            ' Creamos el comando
            Dim cmd As OleDbCommand = cnn.CreateCommand()
            ' Ejecutamos la consulta SQL de creación de tabla.
            '
            cmd.CommandText = String.Format( _
                "SELECT * INTO [{0}] " & _
                "IN ''[ODBC;Driver={{SQL Server}};" & _
                      "Server=(local);Database={1};Trusted_Connection=Yes] " & _
                "FROM [{0}] WHERE 1=0", tableName, databaseName)

            ' Ejecutamos la consulta
            cmd.ExecuteNonQuery()
        End Sub
        ''' <summary>
        ''' Exporta a SQL Server los datos existentes en la base
        ''' de datos de Access especificada.
        ''' </summary>
        ''' <param name="fileName">Ruta de la base de datos de Access.</param>
        ''' <param name="databaseName">Nombre de la base de datos de SQL Server.</param>
        ''' <param name="tablas">Array con los nombres de las tablas que se desean exportar.</param>
        ''' <remarks></remarks>
        Friend Sub ExportToSqlServer(fileName As String, databaseName As String, tablas As String())
            If ((String.IsNullOrEmpty(fileName)) OrElse (String.IsNullOrEmpty(databaseName))) Then
                Throw New ArgumentException()
            End If
            ' Establecemos una conexión con la base de datos de Access
            Using cnn As New OleDbConnection()
                cnn.ConnectionString = String.Format( _
                    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source={0}", fileName)
                ' Abrimos la conexión
                '
                cnn.Open()
                If (tablas Is Nothing) Then Return
                ' Conforme recorremos la lista de tablas las
                ' vamos exportando a SQL Server .
                '
                For Each tabla As String In tablas
                    ' CreateTable(cnn, databaseName, tabla)
                    ExportToSqlServer(cnn, databaseName, tabla)
                Next
            End Using
        End Sub
        ''' <summary>
        ''' Exporta a SQL Server los datos existentes en la base
        ''' de datos de Access especificada.
        ''' </summary>
        ''' <param name="cnn">Objeto OleDbConnection abierto con 
        ''' la base de datos de Access.</param>
        ''' <param name="databaseName">Nombre de la base de datos de SQL Server.</param>
        ''' <param name="tableName">Nombre de la tabla.</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Private Function ExportToSQLServer(cnn As OleDbConnection, _
                                           databaseName As String, _
                                           tableName As String) As Integer
            ' Creamos el comando
            Dim cmd As OleDbCommand = cnn.CreateCommand()

            ' Ejecutamos la consulta SQL de datos añadidos.
            '
            cmd.CommandText = String.Format( _
                "INSERT INTO [{0}] " & _
                "IN ''[ODBC;Driver={{SQL Server}};" & _
                      "Server=(local);Database={1};Trusted_Connection=Yes] " & _
                "SELECT * FROM [{0}]", tableName, databaseName)

            ' Ejecutamos la consulta
            Return cmd.ExecuteNonQuery()
        End Function
    End Module

    • Cambiado Enrique M. Montejo lunes, 23 de febrero de 2015 7:25 Pregunta relacionada con el acceso a datos con Access y MySql.
    viernes, 20 de febrero de 2015 22:55

Todas las respuestas