Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Select @Busqueda

06/04/2004 - 00:11 por Manolo Zepeda | Informe spam
Ayuda Hacer una pregunta
Que tal amigos..!!

Estoy tratando de asignar a un LISTBOX un procedure que
proviene de una sentencia SQL asignada desde VB, el
problema es que cuando corro el Procedure y pongo la
instruccion SELECT Nombre from Directorio, funciona muy
bien, el problema lo tengo cuando lo ejecuto desde VB este
no aparece nada en el LISTBOX,a que se debera esto?


PROCEDURE

Alter Procedure Prueba
@Busqueda varchar(900)
As
exec (@Busqueda)

VBA
sql = "Select Nombre from Directorio"
Debug.Print sql
cmd.commantext="Prueba"
cmd.commandtype=4
cmd.Parameters.Append cmd.CreateParameter("@Busqueda",
adChar, adParamInput, 100, sql)

cmd.Execute
Set cmd = Nothing
ListaCv.RowSource = "prueba"
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Adrian D. Garcia
06/04/2004 - 09:34 | Informe spam
Hola!
El problema no esta en el procedure sino en las sentencias VB.
El cmd.Execute devuelve un objeto recordset que debes asignar a la propiedad
RowSource. Tambien, creo, deberias asignar otras propiedades adicionales
para definir cual es la columna que contiene la descripcion y cual es la
columna que contiene el valor.

Saludos

Adrian D. Garcia
NDSoft
MCSD
"Manolo Zepeda" escribió en el mensaje
news:15bc901c41b5a$e4be2650$
Que tal amigos..!!

Estoy tratando de asignar a un LISTBOX un procedure que
proviene de una sentencia SQL asignada desde VB, el
problema es que cuando corro el Procedure y pongo la
instruccion SELECT Nombre from Directorio, funciona muy
bien, el problema lo tengo cuando lo ejecuto desde VB este
no aparece nada en el LISTBOX,a que se debera esto?


PROCEDURE

Alter Procedure Prueba
@Busqueda varchar(900)
As
exec (@Busqueda)

VBA
sql = "Select Nombre from Directorio"
Debug.Print sql
cmd.commantext="Prueba"
cmd.commandtype=4
cmd.Parameters.Append cmd.CreateParameter("@Busqueda",
adChar, adParamInput, 100, sql)

cmd.Execute
Set cmd = Nothing
ListaCv.RowSource = "prueba"

Preguntas similares

 

Busqueda sugerida :