Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

finalizando proyecto

Estas en el tema de finalizando proyecto en el foro de Visual Basic clásico en Foros del Web. buenos dias a la comunidad programadora. tengo dias ya trbajando con este foro y les doy muchas gracias a todos los programadores que me han ...
  #1 (permalink)  
Antiguo 12/07/2011, 06:58
Avatar de ARGFA  
Fecha de Ingreso: noviembre-2009
Ubicación: Ciudad Guayana, Venezuela
Mensajes: 55
Antigüedad: 14 años, 5 meses
Puntos: 0
finalizando proyecto

buenos dias a la comunidad programadora.
tengo dias ya trbajando con este foro y les doy muchas gracias a todos los programadores que me han prestado su ayuda.

ya estoy finalizando mi proyecto, y lo que se me ha presentado ahora es lo siguiente:

estoy creando el instalador con inno, pero mi programa genera unos txt con cierta info, ahora el problema es como resuelvo el problema de la direccion del directorio donde mi prograa guardara los txt generados???

cada pc tiene su configuracion y el usuaro debe tener la opcion de instalar el programa en el directorio que desee.

por ejemplo esta es mi direccion actual de prueba para el programa
Open "D:\Documents and Settings\fromero\Desktop\argenis\SISPP V12\archivos\Pago a proveedores.TXT" For Output As #1
Write #1, 0; "00663"; fecha_proceso; fecha_valor; referencia_proceso; catidadproveedores; monto_proceso
Close #1"

el intalador creara las carpetas (\SISPP V12\archivos) pero y el resto faltante a la izquierda???

bueno eso es todo.....
gracias por su tiempo....
  #2 (permalink)  
Antiguo 12/07/2011, 07:58
Avatar de ARGFA  
Fecha de Ingreso: noviembre-2009
Ubicación: Ciudad Guayana, Venezuela
Mensajes: 55
Antigüedad: 14 años, 5 meses
Puntos: 0
Respuesta: finalizando proyecto

ya he solucionado l problema anterior haciendo lo siguiente:

Dim ruta As String
ruta = App.Path

y me quedaria asi:
Open ruta & "\archivos\Pago a proveedores.TXT" For Append As #1
Write #1, 2; codigofactura2; fechafactura; montototal; montoneto; descripcionitem2; "A"
Close #1

ahora mi problema es con de la con la conexion de la BD

actualmente la tengo asi:
Set myconn2 = New ADODB.Connection
myconn2.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=D:\Documents and Settings\fromero\Desktop\argenis\SISPP V12\BD\BD temporal\BDtemp.mdb"
myconn2.Open

pero si la coloco asi:
Set myconn2 = New ADODB.Connection
myconn2.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=ruta & \BD\BD temporal\BDtemp.mdb"
myconn2.Open

no funciona....

como es la sintaxis correcta??? alguien sabe?
  #3 (permalink)  
Antiguo 12/07/2011, 11:30
Avatar de Kruzado  
Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 17 años, 2 meses
Puntos: 17
Respuesta: finalizando proyecto

myconn2.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & ruta & "\BD\BD temporal\BDtemp.mdb"

sea eso? tienes ke tener en cuenta que el signo & es para concatenar cadenas, etonces antes de colocar el & tienes que cerrar tu cadena y despues del & tienes que abrir otra ejemplo :

mivar="prueba"

cadena="esta es una " & mivar
resultado "esta es una prueba"

cadena="mi" & mivar & " funciona"
resultado="mi prueba funciona"

lo mismo para tus rutas
  #4 (permalink)  
Antiguo 13/07/2011, 09:13
Avatar de ARGFA  
Fecha de Ingreso: noviembre-2009
Ubicación: Ciudad Guayana, Venezuela
Mensajes: 55
Antigüedad: 14 años, 5 meses
Puntos: 0
Respuesta: finalizando proyecto

OK!!! graciasss..... ya problema resuelto....

Etiquetas: proyecto
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:18.