Autor Tema: cargar datos en un textbox  (Leído 25067 veces)

0 Usuarios y 1 Visitante están viendo este tema.

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #45 en: Septiembre 25, 2014, 09:45:24 am »

Código: (VB) [Seleccionar]
Kill (App.Path & "\misclientes.txt")
Saludos...
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

Jeronimo

  • Gigabyte
  • ****
  • Mensajes: 402
  • Reputación: +33/-2
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #46 en: Septiembre 25, 2014, 10:11:59 am »
Tené en cuenta que si abrís el archivo en modo "Input", cada vez que lo hagas reemplazará el archivo anterior. Y si lo abrís en modo "Append", como pusiste en tu último mensaje, va a ir agregando las líneas de texto que vayas insertando. Es decir, si tenés un archivo con tres líneas de texto y después lo abrís en modo "Input" e insertás dos líneas, lo que habrás hecho es reemplazar el archivo de tres líneas por uno nuevo, con dos líneas. Si, en cambio, lo abrís en modo "Append" e insertás dos líneas, lo que habrás hecho es agregar dos líneas al archivo que tenía tres, con lo que te va a quedar uno con cinco líneas.

Jerónimo

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #47 en: Septiembre 25, 2014, 10:26:36 am »
Yo necesito que al momento de abrir el archivo este vacio sin ninguna linea, pero con el input me da el error que comente anteriormente

ENTER , lo que necesito borrar son las lineas no el archivo, gracias

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #48 en: Septiembre 25, 2014, 10:47:56 am »
También podes guardar así:

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
   
    Open App.Path & "\mail.txt" For Output As #1
        Print #1, strEmail
    Close #1
   
End Sub
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #49 en: Septiembre 25, 2014, 11:11:32 am »
También podes guardar así:

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
   
    Open App.Path & "\mail.txt" For Output As #1
        Print #1, strEmail
    Close #1
   
End Sub

Aha , acordate que este archivo al momento de abrir deberia de estar vacio

y para borrar las lineas ?

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #50 en: Septiembre 25, 2014, 11:19:17 am »
Podes vaciarlo asi:

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
   
    Open App.Path & "\mail.txt" For Output As #1
        Print #1, ""
    Close #1
   
End Sub
« última modificación: Septiembre 25, 2014, 11:26:21 am por E N T E R »
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #51 en: Septiembre 25, 2014, 11:35:35 am »
Aca te prepare un ejemplo de como podes guardar, suponiendo que tienes en un ListBox todas las lista de mail que tenes que enviar.

(screen) Supongamos que son estos las lista de mail a enviar que ya recuperaste del filtro de tu BD.



Link ejemplo:

Código: (VB) [Seleccionar]
Private Sub cmdGuardar_Click()
   
    Dim xMail As String
   
    For i = 0 To List1.ListCount
        xMail = xMail + List1.List(i) & ","  'Aca lo que hice es juntar todos los mail que esta en el control List unidos por coma.
    Next i
   
    Open App.Path & "\mail.txt" For Output As #1
        Print #1, Left(xMail, (Len(xMail) - 2))  'Aca guardo esa lista en un archivo que se llama mail.txt
    Close #1

End Sub

Este es para recuperar lo que se guardo en el archivo mail.txt

Código: (VB) [Seleccionar]
Private Sub cmdRecuperar_Click()
   
    'Para recuperar lo que hay en el archivo mail en un ListBox.
   
    Open App.Path & "\mail.txt" For Input As #1
        Do Until EOF(1)
            Input #1, xLista
            List2.AddItem xLista
        Loop
    Close #1
   
    'Para recuperar lo que hay en el archivo mail en un Caja de Texto.
   
    Open App.Path & "\mail.txt" For Input As #1
        Line Input #1, xLine
        txtMail.Text = xLine
    Close #1
   
End Sub
« última modificación: Septiembre 25, 2014, 12:15:47 pm por E N T E R »
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

Albertomi

  • Gigabyte
  • ****
  • Mensajes: 281
  • Reputación: +153/-0
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #52 en: Septiembre 25, 2014, 12:22:26 pm »
Estimado gasafonso
 
A tú pregunta Ahora bien aprovecho y pregunto, una vez que mando el mails necesito borrar esa línea (la primera debería ser) donde estarán todos los mails del día para mandar. COmo hago ?, le voy a dar 2 respuesta pues no me queda muy clara:
  • Después de invocar a tú función o procedimiento que envía los emailes, simplemente borra el TextBox donde están todos los email.
  • Particularmente haría un Servicio Windows el cual invocaría a su Worker para  automatizar la creación diaria del archivo misclientes.txt. Pero para no complicarte con lo del Servicio Windows, puedes echar mano de los recursos que brinda Windows y crea una Tarea Programada (Task Scheduler) que invoque al Worker, el worker no es más que una aplicación VB, que ejecuta el query SQL bajo demanda y cree así un nuevo archivo misclientes.txt. Por un tema de optimización, en el servidor de base de datos, sería conveniente que el query SQL lo pases a un SP (Store Procedure) dentro de la base de datos y que desde el Worker invoque al SP y ya no al query SQL.
Saludos, desde algún lugar de Lima-Perú
Saludos, desde algún lugar de Lima-Perú

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #53 en: Septiembre 25, 2014, 02:30:17 pm »
Estimado ALBERTOMI

Perdon pero no se de que me estas hablando , para mi es chino basicoooooooooo Solo conozco las Tarea Programada (Task Scheduler)


Perdon por no estar a la altura


E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #54 en: Septiembre 25, 2014, 04:12:23 pm »
Aca tenes un tutorial de como usar el programador de tareas de Windows.

Que es el programador de tareas de Windows.
http://geekazos.com/programador-de-tareas/

Como se usa
Link a youtube: https://www.youtube.com/watch?v=Jf79FGHN440
« última modificación: Septiembre 25, 2014, 05:19:03 pm por E N T E R »
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #55 en: Septiembre 25, 2014, 04:33:41 pm »
gracias ENTER y que es un Worker ?

Aprovecho amigo para preguntarte por el manejo de imagenes , ya que necesito mejor mi aplicacion de ECOGRAFIAS Y RADIOGRAFIAS , para cargar modificar y borrar

ver link

http://leandroascierto.com/foro/index.php?topic=2570.msg14208#msg14208

gracias

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #56 en: Septiembre 25, 2014, 05:18:25 pm »
Worker seria en español Trabajo, trabajador, labor...

Aca esta Google Translate: https://translate.google.es/#auto/es/worker, podes consultar cualquier palabra que este en otra idioma


Saludos...
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #57 en: Septiembre 25, 2014, 05:28:26 pm »
Worker seria en español Trabajo, trabajador, labor...

Aca esta Google Translate: https://translate.google.es/#auto/es/worker, podes consultar cualquier palabra que este en otra idioma


Saludos...

Ok graciasssssss

Me ayudas con esto

"Aprovecho amigo para preguntarte por el manejo de imagenes , ya que necesito mejorar mi aplicacion de ECOGRAFIAS Y RADIOGRAFIAS , para cargar modificar y borrar "


Saludos

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:cargar datos en un textbox
« Respuesta #58 en: Septiembre 25, 2014, 05:52:21 pm »
Creo que deberías de crear un nuevo post y pedir ahí exactamente que es lo que quieres y si tienes parte de code mostrar para ver en que te podemos ayudar para mejorarlo, Por que así medio que estamos jugando a la adivinanza, espero que no me lo tomes a mal.

Se entiende?
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:cargar datos en un textbox
« Respuesta #59 en: Septiembre 25, 2014, 06:22:02 pm »
Siii capooooo  te entiendo perfecto, yo para no tener que armar un post de nuevo. Me da pereza jua jua