Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/09/2012, 13:37
mancemo
 
Fecha de Ingreso: marzo-2006
Mensajes: 194
Antigüedad: 18 años
Puntos: 1
macro en excel

buena tarde, estoy haciendo una macro que desde excel se conecta a oracle con un odbc, requiero hacer un query a una vista creada y el codigo es

Código:
Sub preexperto()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

'realizamos la conexion con Oracle, "usuario" es el nombre de usario para conectarse
' "password" la contraseña para conectarse y "esquemaBd" y nombre de la base de datos

cn.Open ( _
"User ID=user" & _
";Password=pass" & _
";Data Source=datasource" & _
";Provider=MSDAORA.1")



'aca se captura el valor digitado en la celda E10 del libro
Dim ced As String
ced = Range("E10").Value

rs.Open "select * from vista", cn
la idea es que en el select poder validar con respecto a lo que se digito en la celda E10, por ejemplo
Código:
select * from vista where nit=ced
pero no he podido que tome el valor de lo que se digito en la cedula