Visual Basic - Visual y notepad

Life is soft - evento anual de software empresarial
 
Vista:

Visual y notepad

Publicado por aldo (4 intervenciones) el 23/12/2005 02:28:50
Amigos quiero llamar desde el codigo de visual basic una linea de codigo que se encuentra en un archibo de bloc de notas

CODIGO QUE TENGO EN VISUAL

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open +++aqui deveria estar el codigo que tengo en el block de notas+++

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select Id_Linea,Descripcion_Linea,cod_Prioridad from Linea Order by Id_Linea", db, adOpenStatic, adLockOptimistic

CODIGO QUE ESTA EN EL BLOCK DE NOTAS

"PROVIDER=MSDASQL;driver={SQL Server};server=master;uid=;pwd=;database=SGM;"

ojala me ayuden, ya que me librarian de tamaño percanse, ya que al distribuirlo el usuario solo modificara lso datos del block de notas y no interferiria en el codigo
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:Visual y notepad

Publicado por EGV (385 intervenciones) el 23/12/2005 14:12:33
podrias hacer lo siguiente
en el load de tu aplicacion llamas al procedimiento
LeerArchivo

Sub LeerArchivo()
dim nomfichero, longitud,lineaTexto
nomfichero = App.path & (archivo bloc)
Open nomfichero For Input As #1 Len = 4000
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
longitud = FileLen(nomfichero) ' Lee el archivo.
LineaTexto = Input(longitud, #1)
Loop

MiPath = Trim(LineaTexto) ' MiPath debe ser publica declarada en el modulo
Close #1 ' Cierra el archivo.
End Sub

luego colocaras
db.Open Mipath (y lo que sea)
suerte, espero te sirva
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:Visual y notepad

Publicado por Aldo (4 intervenciones) el 23/12/2005 22:30:49
Gracias, vere que puedo hacer, soy un condenado novato, jaja
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