FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
¿Como guardar una tabla desde el componente shell treeview?
Que tal programadores...
Es la primera vez que utilizo esta herramienta para escribir dudas... Anteriormente tuve buenos resultados con una ayuda para convertir de números a letras del amigo de este foro quien comparte el codigo "Contraveneno" y fue de gran ayuda... Ahora necesito resolver otro problema!!!... Necesito guardar una Tabla usando el componente shell treeview... El problema es que no tengo idea como programar o en que evento de ese componente... la idea es que el usuario explore las direcciones y según guarde la tabla en la dirección que selecciono para eso tendria que darle click a la ubicación seleccionada y despues con un boton validar si dio click con la ubicacion en el shell treeview que me guarde... ya se como guardar por medio de un boton la tabla pero el problema es que yo dentro del boton por defaul pongo la ubicacion por ej. C:Tabla.db pero yo quiero que el usuario seleccione la ruta que el quiera y que valide por medio de un boton y guarde, no se si me explique... de antemano muchas gracias si alguien me pueda ayudar... Y si necesitan de mi ayuda no duden en mandarme por este medio... sus inquietudes... o manden un mensaje privado... Aqui les dejo mis direcciones de correo electronico por si necesitan de algo... jcrebollosa@hotmail.com, krlox_sabroxas@hotmail.com estoy a sus ordenes |
#2
|
||||
|
||||
Hola krlox31416, según a lo que te entiendo, tu quieres obtener el path que se selecciona en el ShellTreeView, lo puedes hacer de esta forma.
sobre el path que tienes, despues sería aumentar el slash, con la función TrailingBackslash o una cadena '\' y concatenar el nombre de tu archivo que ya lo tienes. Otra forma de seleccionar una carpeta es usando SelectDirectory.
para este ultimo añades en el uses la unidad FileCtrl. Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#3
|
||||
|
||||
Ok's Caro voy a checar estas lineas de codigo
Primeramente gracias Caro por tu ayuda...
No pense que tan pronto respondieran al llamado... ya veo que esto si funciona y bien!!! voy a checar estas lineas de codigo que me regalaste... yo estoy trabajando con delphi 5 y 6, voy a checar los componentes que se necesitan... despues te cuento que tal me fue va... y de nuevo 1000 % gracias... por la ayuda... si necesitas de mi ayuda mandamelas por este medio... ya tienes mis correos alternativos!!!... saludos desde San Juan del Río Queretaro. México |
#4
|
||||
|
||||
shell treeview respuesta a caro
Que tal Caro!!!
Disculpa que no mande respuesta inmediatamente pero lo que paso fue que ya había respondido antes ya 3 veces y me sacaba de la pagina ya que antes de mandar el mensaje le di en vista previa para ver como quedaba el mensaje y me saco de la pagina por lo que perdí todo lo que te había escrito junto con el código que púese… Y otro problema es que no se a donde ir para poder ver la respuesta que mandaste o la dirección que se crea al preguntar dudas en este foro no se como ir al hilo sobre mi tema Por lo que mejor lo abri desde el Hotmail y directamente me abre sobre el tema… Pero = me traba la maquina ¡!! Estoy desesperado por mandarte este mensaje!!! Bueno en fin aquí pongo lo anterior zaz!!! Este es el código que utilizo para copiar una tabla usado para respaldar una tabla Código Delphi [-] // con este código copio mi tabla desde esta ubicación C:\sistema_caja\base de //datos\articulos.db // y después la guardo por defaul en esta otra ubicación C:\articulos.db procedure TForm1.Button2Click(Sender: TObject); begin if not CopyFile (Pchar ('C:\sistema_caja\base de datos\articulos.db'), Pchar ('C:\articulos.db'),false) then begin Application.MessageBox('La base de datos artículos no se puede respaldar' +#13'debido a que no existe.','Error',MB_ICONERROR); end else begin Application.MessageBox('La base de datos artículos se ha respaldado ! ! !','Información',MB_ICONINFORMATION); end; end; end. Y en el código que me pasaste ya cheque para que sirve y que es lo que hace busque en la ayuda de delphi 5 para que sirve el SelectDirectory y vi un ejemplo así que no tuve ningún problema en saber que hacia el SelectDirectory … este funciona como si se tratara del shell treeview… Código Delphi [-] procedure TForm1.Button2Click(Sender: TObject); var My_carpeta: String; begin if SelectDirectory('Seleccione la ruta de la carpeta', 'C:\sistema_caja\base de datos\articulos.db', My_carpeta) then begin showmessage(My_carpeta); end; end; lo que note fue que si concateno dos a más tablas usando el SelectDirectory me aparece como si usara el componente shell treeview eje: Código Delphi [-] procedure TForm1.Button4Click(Sender: TObject); var my_carpeta :String; begin SelectDirectory('Selecione las bases de datos','C:\sistema_caja\base de datos\articulos.db + proveedores.db + contraseña.db + estado_caja.db', My_carpeta); end; de lo contrario si pongo una sola tabla Código Delphi [-] procedure TForm1.Button4Click(Sender: TObject); var my_carpeta :String; begin SelectDirectory('Selecione las bases de datos','C:\sistema_caja\base de datos\proveedores.db', My_carpeta); End; Me aparece solo la tabla según sea el caso Pero según yo el código que me pasaste no me ayuda para lo que deseo que es copiar una tabla o tablas desde cierta ubicación para después guardar una tabla o tablas aunque no esta demas saber en que ruta se esta guardando Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin showmessage(ShellTreeView1.SelectedFolder.PathName); end; pero se supone que con el shell treeview ves visualmente y seleccionas la ruta en la que vas a guardar la tabla o tablas por otra parte no supe lo de: despues sería aumentar el slash, con la función TrailingBackslash o una cadena '\' y concatenar el nombre de tu archivo que ya lo tienes.no se para que sirve la función TrailingBackslash y eso del slash o no supe como hacer a andar el código será que algo estoy haciendo mal o que me hace falta… si estoy mal en algo corrígeme!!! Y si hay alguien más que pueda ayudarme de antemano se lo agradeceré… Si en algo puedo ayudarles estoy a sus ordenes!!!… Saludos desde San Juan del Río, Querétaro, México... |
#5
|
||||
|
||||
Hola de nuevo krlox31416, para poder ver el hilo que has abierto, puedes buscarlo de varías formas, al ingresar por la pagina principal del club tienes varias opciones, Editar Perfil, Editar Opciones,Ver mensajes privados, ingresas a cualquiera de ellos, al lado izquierdo buscas Ver suscripciones para que te salga un listado de todos los hilos en los que estas participando, también lo puedes buscar en el subforo que lo has abierto el hilo, incluso con el buscador.
Sobre tu pregunta, lo que te pase es para seleccionar el directorio donde copiaras tu archivo, nose si te estoy entendiendo bien, tu quieres copiar los archivos que tengas en la carpeta C:\sistema_caja\base de datos\ que pueden ser uno o varios, si es así entonces tendras que recorrer la carpeta y copiar los que tengan extención db.
donde en my_carpeta esta el directorio seleccionado por el usuario, mas o menos así sería, sobre el TrailingBackslash es para que te añada el slash o barra '\' al final de tu path. Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#6
|
||||
|
||||
deja checo el codigo
gracias caro deja voy a checar este codigo...
pero era lo de menos copiar una o más tablas... lo que quiero es el guardar en el destino... espera mi siguiente respuesta haber que tal ma va... gracias .... disculpa mi ignorancia sobre el uso del shell treeview... te escribo pronto... saludos!!!!.... |
#7
|
||||
|
||||
Solucionado my problema!!!
Cita:
Cita:
Cita:
Cita:
Última edición por krlox31416 fecha: 20-09-2008 a las 00:20:18. Razón: ya en vsita previa aparece sinatxis del tipo de letra |
#8
|
||||
|
||||
Hola de nuevo krlox31416, que bueno que te haya servido lo anterior que te puse, ahora sobre tu pregunta, supongo que en base al path que ha escogido en tu ShellTreeView tu quieres crear un directorio si que no existiera, paar ello puedes utilizar la función CreateDir para crear y DirectoryExists para verificar si existe.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#9
|
||||
|
||||
es exactamente lo que queria
ya anteriormete había guardado ese código de este mismo foro pero no me acordaba que ya lo había buscado y pegado en un documento en word...
pero de que jala, jala de maravilla... y pues te felicito que sigas así apollando a los que neceitamos una ayudadita... y disculpa si tardo en contestar pero como no tengo internet... pues solo cuando tengo para venir y conectarme en un cibercafe... me gustaria contribuir en este foro por lo que voy a ver como puedo subir mis pequeños programas ejecutables y con todo y codigo... te agregue a mi lista de contactos!!!... eres la número 3 jjijiji... pero como podras ver apenas estoy aprendiento a utilizar este foro... saludos... y espero proto poder ayudarte... |
#10
|
||||
|
||||
así quedo!!!
__________________
el cielo me dio un cariño sin merecerlo... chimikuilo!!! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como guardar la fecha a una tabla | irixita | SQL | 2 | 19-08-2008 18:59:49 |
componente como un treeview | johurgi | Varios | 5 | 07-07-2008 08:32:12 |
Monitorear la shell desde delphi | fide | API de Windows | 4 | 29-10-2007 04:11:59 |
como guardar pdf desde Crystal 8.0 con delphi | alexander66 | Impresión | 1 | 15-12-2006 18:17:18 |
Ejecutar shell explorer.exe desde otra aplicación | Pablo Carlos | API de Windows | 13 | 15-07-2004 16:37:30 |
|