Copiar celdas en Excel y exportar a sql en codigo

08/09/2008 - 20:04 por Herny | Informe spam

Estoy tratando de copiar varias celdas en EXCEL que generan un codigo SQL,
luego creo una conexion a una base de datos en un servidor, y pega la
información que traje de excel. Mi pregunta es como creo el objeto para
exportarlo luego con una conexxion SQL a una base de datos

Sub ejecutar()
Dim Conexion As Object 'Tipo de variable: ADODB.Connection
Dim Comando As Object 'Tipo de variable: ADODB.Command
Dim Cursor As Object 'Tipo de variable: ADODB.Recordset

Set Conexion = CreateObject("ADODB.Connection") 'Crea el objeto
Conexion.Open "Provider=SQLOLEDB; Database=am; Data Source)6geo02; Initial
Catalog=am; User ID=am05; Password="";" 'Abre la conexion
Set Comando = CreateObject("ADODB.Command") 'Crea el objeto

With Comando
Set .ActiveConnection = Conexion 'Asigna la conexion al comando
.CommandText = 'aqui se copia las lineas de Excel codificadas en sql
'Estable el comando SQL que se ejecutara

Set Cursor = .Execute 'Se ejecuta el SQL
End With
End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

08/09/2008 - 21:01 | Informe spam

hola, Herny !

Estoy tratando de copiar varias celdas en EXCEL que generan un codigo SQL
luego creo una conexion a una base de datos en un servidor, y pega la informacion que traje de excel.
Mi pregunta es como creo el objeto para exportarlo luego con una conexxion SQL a una base de datos

(creo que) podrias probar modificando ligeramente lo que expones despues de crear el objeto "adodb.command"
usando la clausula INSERT INTO especificando la conexion, la tabla y que valores se han de insertar -?-

With Comando
.ActiveConnection = Conexion
.CommandText = "insert into ...
.Execute
End With

saludos,
hector.

__ el codigo expuesto __

Sub ejecutar()
Dim Conexion As Object 'Tipo de variable: ADODB.Connection
Dim Comando As Object 'Tipo de variable: ADODB.Command
Dim Cursor As Object 'Tipo de variable: ADODB.Recordset

Set Conexion = CreateObject("ADODB.Connection") 'Crea el objeto
Conexion.Open "Provider=SQLOLEDB; Database=am; Data Source)6geo02; Initial Catalog=am; User ID=am05; Password="";" 'Abre la conexion
Set Comando = CreateObject("ADODB.Command") 'Crea el objeto

With Comando
Set .ActiveConnection = Conexion 'Asigna la conexion al comando
.CommandText = 'aqui se copia las lineas de Excel codificadas en sql
'Estable el comando SQL que se ejecutara
Set Cursor = .Execute 'Se ejecuta el SQL
End With
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida