none
leer el valor de una celda y usarla en una consulta sql server RRS feed

  • Pregunta

  • holas.
    quisiera leer toda los codigos de matricula y buscar a traver de una consulta sql select en la base de datos para luego poner el nombre del alumno en su celda contigua.


    Cod_Matricula !   Alumno
    20081105        !  ............
    20081201        !
      ............ 
    20081306        !
      ............

    gracias anticipadamente. Big Smile
    jueves, 6 de noviembre de 2008 13:23

Respuestas

  •  

    Hola, puedes probar con lo siguiente:

    Declarar las siguientes variables publicas:

    Public cn As ADODB.Connection 'para la variable conecction
    Public rsMatriculas As ADODB.Recordset 'para el recordset

     

    Guargar el valor de matricula en una variable :

    Dim strMatricula As String

    strMatricula= Sheet1.Cells(6, 10)

     

    Ejecutar la consulta sql  :

    rsMatriculas.Open "SELECT FROM Tu_Tabla WHERE campoMatricula = ' " & Trim$(strMatricula) & " '  ", cn, adOpenDynamic, adLockOptimistic

     

    Recuperar la matricula y mostrarla en una celda de excel  :

    Sheet1.Cells(7, 10) = rsMatriculas.Fields(0).Value

     

    Todo esto iría dentro de un bucle que recorra todas las filas con matricula.

     

    Espero te haya servido!

    • Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 16:15
    martes, 11 de noviembre de 2008 19:53