• Miércoles 8 de Mayo de 2024, 18:54

Autor Tema:  Leer Block De Notas Desde Vb 6.0  (Leído 3609 veces)

Vate

  • Miembro activo
  • **
  • Mensajes: 44
    • Ver Perfil
Leer Block De Notas Desde Vb 6.0
« en: Lunes 18 de Diciembre de 2006, 22:38 »
0
hola amigos, estoy haciendo un programa en VB 6.0 y utilizo bases de datos, sin embargo, no quiero incluir la cadena de conexion dentro del codigo, por esto quiero leerlo de un archivo de texto externo al programa, quizas alguno de uds me pueda dar una pista
Gracias
el Vate

ElNapster

  • Moderador
  • ******
  • Mensajes: 727
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #1 en: Lunes 18 de Diciembre de 2006, 22:49 »
0
Si quieres que el programa lea un archivo de texto el cual contiene el string de conexion, se me ocurre que atrapes el texto del archivo , y se lo envies a tu programa con una tu rutina que capture ese parametro y el cual sera interpretado como el string de conexion normal...

 :comp:
"Somos lo que imaginamos ser"
-- --------------------------------------------------------------
-ElNapster
-Designer / Developer Software
-GuaTemALa



ArKaNtOs

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #2 en: Martes 19 de Diciembre de 2006, 00:00 »
0
Cita de: "elnapster"
Si quieres que el programa lea un archivo de texto el cual contiene el string de conexion, se me ocurre que atrapes el texto del archivo , y se lo envies a tu programa con una tu rutina que capture ese parametro y el cual sera interpretado como el string de conexion normal...

 :comp:
Es exactamente lo que el esta tratando de realizar :P

Yo lo haría de la siguiente manera:

<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'><!--exc1-->Private Sub Command1_Click()
ruta = app.path & "hola.txt"
Open ruta For Input As #1
Text1 = Input(LOF(1), #1)
Close #1
End Sub<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #3 en: Martes 19 de Diciembre de 2006, 00:17 »
0
Código: Text
  1. Private Sub CommandButton1_Click()
  2.    Dim lsNombreArchivo As String
  3.    Dim liNumArchivo As Integer
  4.    Dim lsCnnStr As String
  5.    
  6.    liNumArchivo = FreeFile
  7.    lsNombreArchivo = IIf(Right(app.Path, 1) = &#34;&#092;&#34;, app.Path, app.Path & &#34;&#092;&#34;) & &#34;config.txt&#34;
  8.    
  9.    Open lsNombreArchivo For Input As #liNumArchivo
  10.         Input #liNumArchivo, lsCnnStr
  11.    Close #liNumArchivo
  12.    
  13.     MsgBox lsCnnStr
  14. End Sub
  15.  
  16.  

Archivo :
Config.txt

Citar
Driver={SQL Native Client};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

Saludos

--------------------------
 :ph34r:  me ganaste !

--------------------------
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

ElNapster

  • Moderador
  • ******
  • Mensajes: 727
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #4 en: Martes 19 de Diciembre de 2006, 00:35 »
0
Esque el precisamente dice lo siguiente
Código: Text
  1.  
  2. quizas alguno de uds me pueda dar una pista
  3. Gracias
  4. el Vate
  5.  

 :P
 :lightsabre:
jajaja
"Somos lo que imaginamos ser"
-- --------------------------------------------------------------
-ElNapster
-Designer / Developer Software
-GuaTemALa



Vate

  • Miembro activo
  • **
  • Mensajes: 44
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #5 en: Martes 19 de Diciembre de 2006, 00:58 »
0
Estoy muy agradecido amigos, el codigo funciona que me proporcionaron perfectamente y ahora mi cadena esta en archivo de texto. Sin embargo me queda una duda(es la primer vez que voy a hacer un instalador, mil disculpas  si la pregunta es ingenua): cuando termine el programa y tenga que hacer el instalador,de que manera se incluira este archivo
Gracias de nuevo y hasta la vista
Vate

ElNapster

  • Moderador
  • ******
  • Mensajes: 727
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #6 en: Martes 19 de Diciembre de 2006, 01:25 »
0
Al generar tu instalador debes de decirle el path donde obtendras tu archivo(donde se instalara tu exe o bien tu le das la ruta desde tu aplicacion c:\archivo.txt )
 :comp:
"Somos lo que imaginamos ser"
-- --------------------------------------------------------------
-ElNapster
-Designer / Developer Software
-GuaTemALa



ArKaNtOs

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Leer Block De Notas Desde Vb 6.0
« Respuesta #7 en: Martes 19 de Diciembre de 2006, 04:35 »
0
yo generalmente cuando realizo aplicaciones con archivos que servirán en mi sistema, lo que hago es crear una ventana de bienvenida como la de muchos programas como el word, el corel, etc, y en esa ventana no hago mas que cargar todos los elementos de mi programa entre ellos, checo si es la primera vez que se carga mi proyecto, si estan todos los archivos necesarios para que se corra la aplicación, si existe el archivo de texto que necesito, sino lo creo

Para crear uno seria de esta forma:
<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'><!--exc1-->
Ruta = IIf(Right(App.Path, 1) = "\", App.Path & "Users.dat", App.Path & "\Users.dat")
Open Ruta For Append As #1
If LOF(1) = 0 Then
    datos="En tu caso la cadena de conexion"
    Write #1, datos
    Close #1
Else
    Close #1
End If<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->

Con esto verifico si el archivo existe, si así es no hago nada o solo leo los datos que necesito, sino es así, simplemente creo el archivo dentro de mi carpeta y listo ;) con esto no cargas con archivos innecesarios en tu installer :)