Access - Seleccionar un fichero de texto para importacion

 
Vista:

Seleccionar un fichero de texto para importacion

Publicado por David Blasco (1 intervención) el 06/10/2004 11:11:05
¿ Como puedo sacar un cuadro de dialogo que pueda seleccionar un fichero de texto para una importacion ?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Seleccionar un fichero de texto para importacio

Publicado por daho (21 intervenciones) el 08/10/2004 12:12:14
Hola, para hacer lo que dices, te aconsejo lo siguiente:
* Asegurate que tienes una referencia en la base de datos a la libreria-> Microsoft Common Dialog Control 6.0 (sp3) . Si no la tienes, tienes que establecerla
* En un formulario, incluye el objeto ActiveX Microsoft Common Dialog Control, version 6.0. Dale un nombre, por ejemplo, cdlg.
* Añade un boton al formulario y el el evento click escribe el siguiente texto:
cdlg.DialogTitle = "Seleccione el fichero a importar"
cdlg.Filter = "Ficheros de texto (*.txt) | *.txtf"
cdlg.flags = cdlOFNLongNames + cdlOFNExplorer + cdlOFNHideReadOnly + cdlOFNFileMustExist
cdlg.ShowOpen 'Muestra el cuadro de peticion de fichero
cadenaFicheros = cdlg.FileName ' Fichero seleccionado Ruta+nombre

Esto es todo, si tienes alguna duda o problema, escribeme. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Seleccionar un fichero de texto para importacio

Publicado por daho (21 intervenciones) el 08/10/2004 12:28:27
Hola, para hacer lo que dices, te aconsejo lo siguiente:
* Asegurate que tienes una referencia en la base de datos a la libreria-> Microsoft Common Dialog Control 6.0 (sp3) . Si no la tienes, tienes que establecerla
* En un formulario, incluye el objeto ActiveX Microsoft Common Dialog Control, version 6.0. Dale un nombre, por ejemplo, cdlg.
* Añade un boton al formulario y el el evento click escribe el siguiente texto:
cdlg.DialogTitle = "Seleccione el fichero a importar"
cdlg.Filter = "Ficheros de texto (*.txt) | *.txtf"
cdlg.flags = cdlOFNLongNames + cdlOFNExplorer + cdlOFNHideReadOnly + cdlOFNFileMustExist
cdlg.ShowOpen 'Muestra el cuadro de peticion de fichero
cadenaFicheros = cdlg.FileName ' Fichero seleccionado Ruta+nombre

Esto es todo, si tienes alguna duda o problema, escribeme. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar