Carga de Colmenares por provincias

[jcs0062]

Importar en la BBDD las localizaciones de las colmenas

[jcs0062]

Usar ADO y SQLOLEDB Cuando está conectado a SQL Server en una aplicación de ADO mediante Microsoft OLE DB para SQL Server (SQLOLEDB), puede usar la misma sintaxis de "consulta distribuida" desde la sección Usar consultas distribuidas para importar datos de Excel a SQL Server.

El siguiente ejemplo de código de Visual Basic 6.0 requiere que se añada una referencia de proyecto a objetos de datos ActiveX (ADO). El ejemplo de código también muestra cómo usar OPENDATASOURCE y OPENROWSET en una conexión SQLOLEDB.

Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=<server>;" & _
    "Initial Catalog=<database>;User ID=<user>;Password=<password>"

'Import by using OPENDATASOURCE.
strSQL = "SELECT * INTO XLImport6 FROM " & _
    "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
    "'Data Source=C:\test\xltest.xls;" & _
    "Extended Properties=Excel 8.0')...[Customers$]"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print "Records affected: " & lngRecsAff

'Import by using OPENROWSET and object name.
strSQL = "SELECT * INTO XLImport7 FROM " & _
    "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
    "'Excel 8.0;Database=C:\test\xltest.xls', " & _
    "[Customers$])"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print "Records affected: " & lngRecsAff

'Import by using OPENROWSET and SELECT query.
strSQL = "SELECT * INTO XLImport8 FROM " & _
    "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
    "'Excel 8.0;Database=C:\test\xltest.xls', " & _
    "'SELECT * FROM [Customers$]')"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print "Records affected: " & lngRecsAff

cn.Close
Set cn = Nothing

[jcs0062]

DSN: [odbc;DSN=;UID=;PWD=]

DSN-less: [odbc;Driver={SQL Server};Server=;Database=; UID=;PWD=] El siguiente ejemplo de código de Visual Basic 6.0 requiere que se añada una referencia de proyecto a ADO. Este ejemplo de código muestra cómo importar datos de Excel a SQL Server a través de una conexión ADO mediante el Proveedor Jet 4.0.

Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\test\xltestt.xls;" & _
    "Extended Properties=Excel 8.0"

'Import by using Jet Provider.
strSQL = "SELECT * INTO [odbc;Driver={SQL Server};" & _
    "Server=<server>;Database=<database>;" & _
    "UID=<user>;PWD=<password>].XLImport9 " & _
    "FROM [Customers$]"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print "Records affected: " & lngRecsAff

cn.Close
Set cn = Nothing