** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Consultas y Creacion de tablas desde Visual Basic
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Consultas y Creacion de tablas desde Visual Basic

 Responder Responder
Autor
Mensaje
kkodalton Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 01/Diciembre/2011
Localización: España
Estado: Sin conexión
Puntos: 7
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita kkodalton Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Consultas y Creacion de tablas desde Visual Basic
    Enviado: 19/Junio/2019 a las 10:24
Hola



A ver si alguien puede ayudarme:

Necesito crear una consulta en un procedimiento de este tipo:

SELECT a,b INTO tablaNueva IN 'c:\datos\000002.mdb'
FROM tabla;

Siendo tablanueva , tabla y destino ('c:\datos\000002.mdb') variables que las asigno en el procedimento, pero el problema lo tengo con las Comillas simples (‘ ’) del IN ,

Dim sql as string

Sql=”select a,b into “ & tablaNueva & “ IN” ....
Docmd.runsql(sql)

Gracias por todo
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10971
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 19/Junio/2019 a las 11:09
SELECT a,b INTO [c:\datos\000002.mdb].[TablaNueva] FROM Tabla
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
fcoval Ver desplegable
Habitual
Habitual


Unido: 19/Enero/2013
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita fcoval Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 19/Junio/2019 a las 14:24
Con permiso de Mihura ... lo pongo mas mascado en forma de variables que es lo que buscas

Cita
Dim sql As String
Dim tblNueva As String, tblBD As String, strRutaBD As String

tblNueva = "tablaNueva"
tblBD = "tabla"
strRutaBD = "c:\datos\000002.mdb"

sql = "SELECT a, b INTO [" & tblNueva & "] IN '" & strRutaBD & "' FROM [" & tblBD & "]"

DoCmd.RunSQL (sql)
Arriba
kkodalton Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 01/Diciembre/2011
Localización: España
Estado: Sin conexión
Puntos: 7
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita kkodalton Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Junio/2019 a las 14:42
Gracias a los dos, en especial a fcoval que es como me interesaba, mañana lo pruebo.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable