............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Conectar un macro de excel con un dns (sql server)

Ver el tema anterior Ver el tema siguiente Ir abajo

Conectar un macro de excel con un dns (sql server)

Mensaje por Programador el Jue Jun 23, 2011 5:24 pm

Estoy comensando a programar en macro pero no se como conectar un macro con una base de dato y exportarlo a una hoja...
Dengo el siquiente codigo pero no me funciona, si pueden ayudar... solo necesito la conexión..

Código:
Public Function getUnidad(Componente As String)
     
      Dim cn As ADODB.Connection            Tengo un error [b]no se ha definido el tipo definido por el usuario[/b]
      Dim Recordset As ADODB.Recordset
      Dim cmdCommand As ADODB.Command

        Dim provStr As String
        cn.Provider = "sqloledb"

          provStr = "Server=MiServidor;Database=Midb;Trusted_Connection=no"

          cn.Open provStr, "user", "pass123", 0
        Recordset.Open "SELECT item_no, item_desc_1, mfg_uom  FROM imitmidx_sql WHERE item_no = '" & Componente & "'", cn, adOpenDynamic, adLockPessimistic
            If Recordset.BOF And Recordset.EOF Then
            MsgBox "No hay registros"
        Else
            getUnidad = Recordset("mfg_uom")
        End If
              cn.Close

Programador

Masculino Cantidad de envíos : 1
Edad : 36
Ciudad - Pais : chile
Version de Excel : 2003
Fecha de inscripción : 23/06/2011

Volver arriba Ir abajo

Re: Conectar un macro de excel con un dns (sql server)

Mensaje por P@li el Jue Jun 23, 2011 10:02 pm

hola Programador, para evitar ese error tenes que ir a herramientas (en la ventana de VBA), referencias..., tildar Microsoft ActiveX Data Objects, la 2.8 es la última, pero marcá la que tengas, despues acepta. proba otra vez tu codigo.

saludos
Pablo.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.