Exportar un archivo de texto delimitado a una base de datos de SQL Server

Por Enrique Martínez Montejo

Última revisión: 20/03/2004

El siguiente ejemplo muestra cómo crear una tabla en una base de datos de SQL Server con los datos de un archivo de texto delimitado, por lo que es necesario que el servicio de SQL Server se encuentre instalado e iniciado a la hora de ejecutar el código.

A continuación, copie y pegue el siguiente código en la sección Declaraciones del formulario de inicio del proyecto.

Option Explicit

Private Sub Form_Load()

    Dim cnn As ADODB.Connection
    Dim lNumRegAfect As Long
    Dim strSQL As String

    ' Abrimos una conexión con el archivo de texto, especificando
    ' únicamente la ruta de la carpeta
    '
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=C:\Mis documentos"
        .Properties("Extended Properties") = "TEXT;"
        .Open
    End With

    ' Construimos la consulta SQL de creación de tabla. Note
    ' que utilizamos una cadena ODBC para conectarnos con
    ' SQL Server.
    '
    strSQL = "SELECT * INTO [Tabla_Texto] " & _
             "IN ''[ODBC;Driver={SQL Server};" & _
             "Server=(local);Database=Northwind;" & _
             "UID=sa;PWD=] " & _
             "FROM [Archivo_Texto#txt]"

    ' Ejecutamos la consulta
    cnn.Execute strSQL, lNumRegAfect, adExecuteNoRecords

    ' Leemos el número de registros que se han traspasado
    MsgBox "Número de registros afectados: " & lNumRegAfect

    ' Cerramos la conexión
    cnn.Close

End Sub
 

 

Otros enlaces de interés:

Trabajar con los datos de un archivo de texto

Indice de Ejemplos de ADO

---

Enrique Martínez Montejo - 2004

NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.

NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.