Programación General > Visual Basic 6.0 e inferiores

 Leer Block De Notas Desde Vb 6.0

(1/2) > >>

Vate:
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:
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:

ArKaNtOs:

--- 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:
--- Fin de la cita ---
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:

--- Código: Text ---Private Sub CommandButton1_Click()   Dim lsNombreArchivo As String   Dim liNumArchivo As Integer   Dim lsCnnStr As String      liNumArchivo = FreeFile   lsNombreArchivo = IIf(Right(app.Path, 1) = &#34;&#092;&#34;, app.Path, app.Path & &#34;&#092;&#34;) & &#34;config.txt&#34;      Open lsNombreArchivo For Input As #liNumArchivo        Input #liNumArchivo, lsCnnStr   Close #liNumArchivo       MsgBox lsCnnStrEnd Sub  
Archivo :
Config.txt


--- Citar ---Driver={SQL Native Client};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;
--- Fin de la cita ---

Saludos

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

--------------------------

ElNapster:
Esque el precisamente dice lo siguiente

--- Código: Text --- quizas alguno de uds me pueda dar una pistaGraciasel Vate  
 :P
 :lightsabre:
jajaja

Navegación

[0] Índice de Mensajes

[#] Página Siguiente