Consulta

Trabajo con access 2002 y quiero poner en una consulta todos los registro correspondientes a una propiedad concreta entre comas en una consulta, no como habitualmente sale, es decir como columnas ¿Cómo lo puedo hacer?

1 respuesta

Respuesta
1
Disculpa, pero no entiendo bien tu pregunta. ¿Me puedes aclarar un poco más? O bien darme un ejemplo de lo que deseas hacer.
De esta manera te podré ayudar mejor
Por ejemplo. Para un inventario de varios almacenes (el almacén es la clave principal) tenemos distintos productos que se almacenan como registros de una columna denominada producto. Así tenemos por ejemplo, lavadoras, y en otro registro planchas, en otro registro tostadora. Ahora yo quiero que en una consulta para el almacen 1 aparezca en un registro "lavadoras, planchas, tostaroda"
No se como hacerlo
Si la consulta es para un almacén determinado, puedes construir un SQL que concatene los valores de los campos.
Dim s as string, rs as adodb.recordset
S = ?select Producto from TablaAlmacenes where IdAlmacen = 1?
Abres la tabla con esta consulta, por ejemplo con la siguiente línea:
Rs. Open s, CurrentProject. Connection, adOpenKeyset, adLockOptimistic
Y luego:
S = ??
While not rs.eof
S = rs!producto & ?, ?
Rs.movenext
Wend
Así en la variable ES tendrás todos los productos de ese almacén
Si lo quieres hacer para varios todos los almacenes, crea una tabla auxiliar en la base que llenarás con una consulta:
- Abres la tabla de almacenes con un recordset
- Para cada valor de IdAlmacen generas una consulta de productos
Ej:
Ralm. ¿Open? ¿Almacenes?
RAux. ¿Open? ¿Auxiliar?
While not RA.eof
RA.Addnew
RA!Campo1 = Ralm!Campo1 (IdAlmacen)
RA!Campo2 = Ralm!Campo2 (por ejemplo, cantidad)
..... y así con el resto de los campos
S = ?select Producto from TablaAlmacenes where IdAlmacen = ? & Ralm!Campo1
Rs.open S
S = ??
While not rs.eof
S = rs!producto & ?, ?
Rs.movenext
Wend
Rs.close
RA!producto = S
RA.Update
Ralm.movenext
Wend

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macros condicionados excel para Mac

Tengo MAC y Outlook sin licencia. Quiero poner macro para envío automático condicionado. Vi tu tutorial pero no me funciona. Cuando quiero habilitar el macro me da este mensaje: run-time error 429. Active POR component can't create objet. Y cuando le...
2 respuestas

Excel- Dar valor a una celda si otra celda u otra celdas tienen un valor.

Estoy intentando que ejecute una fórmula si otra celda u otras celdas tienen un valor. Es decir, necesito que la celda A1 ejecute la fórmula hoy()+1, si la celda c1 tiene un valor cualquiera, por ejemplo una X. O si la celda c2 tiene un valor...
2 respuestas

Refrescar o actualizar combo desde formulario modo dialogo

Tengo un combo "domicilio" en un formulario principal que despliega 4 columnas con los datos completos de la vivienda -id oculto, calle, nro, dto, localidad- las cuales se muestran automaticamente en cuadros de texto contiguos una vez seleccionada la...
2 respuestas

Error 6 en tiempo de ejecución - Desbordamiento - Campo Código. Access 2003 y VB 6.0

Estoy utilizando access 2003 y VB 6.0 quiero dar de alta un producto... Y le quiero dar la posibilidad al cliente de que pueda ingresar un Producto con un código de 30 números... En la base de datos access el formato del campo es Entero Largo...
6 respuestas

Excel VBA ListBox carga datos por fecha pero se requiere agregar una nueva condición a través de ComboBox

De verdad espero me puedan ayudar. Tengo una macro que funciona a la perfección cargando datos a un ListBox en un Userform a través de una fecha incial y una fecha final, el problema se me presenta porque requiero que ya no solo cargue por la fecha,...
2 respuestas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
2 respuestas

Macro para crear archivo .txt

He intentado hacer una macro que me permita hacer lo siguiente, pero no lo he logrado: Crear un nuevo archivo .txt a partir de un archivo en Excel y que me pregunte donde deseo guardar el nuevo archivo .txtQue el nombre del nuevo archivo sea siempre...
2 respuestas

Desplegar PDF en formulario de acuerdo a un filtro en Textbox

Éste código es el que ocupo para desplegar un documento dentro de un formulario Dim mapaPDF As String mapaPDF = "C:\PDF_Doctos\B18.pdf" WebBrowser1.Navigate mapaPDF End Sub Ahora dentro de esta carpeta, "C:\PDF_Doctos" tengo 40 archivos, el objetivo...
3 respuestas

How do I find a good construction contractor for a home renovation project?

Interested in the uk area. Building a home will be a great investment and dream of their life for most of the people. It is really important to choose the best building contractor for this work. Choosing the right, trustworthy professional contractor...
16 respuestas

Error en formulario con Filtros

Estoy trabajando en una base de datos para mi parroquia, la misma va a manejar la inclusión de los Bautizos, Confirmaciones y Matrimonios que se realizan en la Parroquia. A trtatar de ejecutar los filtros en el formulario de Búsqueda de Bautizados...
3 respuestas