Código VB para consulta SQL
Hola. Estoy haciendo un código en VB para un formulario en Access. En él, el usuario elige las tablas que quiera para hacer consultas.
Ahora tengo que hacer el código para hacer las consultas propiamente dichas, y veo que si me elige más de una tabla tendré que colocar las relaciones entre tablas en la consulta SQL. Ejemplo:
SELECT Customer.[Customer Name], Pets.[Pet Name], Pets.[Type of Animal],
FROM (Customer INNER JOIN Pets ON Customer.[Customer Number] = Pets.[Customer Number])
ORDER BY Customer.[Customer Name];
Lo que quiero es no tener que escribir yo lo de
Customer.[Customer Number] = Pets.[Customer Number])
para cada caso
¿Se te ocurre alguna forma de poderlo hacer automáticamente?
Ahora tengo que hacer el código para hacer las consultas propiamente dichas, y veo que si me elige más de una tabla tendré que colocar las relaciones entre tablas en la consulta SQL. Ejemplo:
SELECT Customer.[Customer Name], Pets.[Pet Name], Pets.[Type of Animal],
FROM (Customer INNER JOIN Pets ON Customer.[Customer Number] = Pets.[Customer Number])
ORDER BY Customer.[Customer Name];
Lo que quiero es no tener que escribir yo lo de
Customer.[Customer Number] = Pets.[Customer Number])
para cada caso
¿Se te ocurre alguna forma de poderlo hacer automáticamente?
1 Respuesta
Respuesta
1
Si la cadena va a ser siempre la misma podrías hacer lo siguiente:
Dim cadena as string
...
Cadena=Customer.[Customer Number] = Pets.[Customer Number]
Una vez echo esto, dónde tengas que poner lo anterior lo sustituirías por & cadena, con lo cual sólo tendrías que escribirlo una sola vez, luego te bastaría con concatenar esa cadena al resto de la consulta.
Dim cadena as string
...
Cadena=Customer.[Customer Number] = Pets.[Customer Number]
Una vez echo esto, dónde tengas que poner lo anterior lo sustituirías por & cadena, con lo cual sólo tendrías que escribirlo una sola vez, luego te bastaría con concatenar esa cadena al resto de la consulta.