Mensajes

mdg, sabes intente usar el control Scrip en la pc del trabajo, pero me daba un mundo de errores, por suerte (jeje.. ) tube que formatear la pc de mi casa, solo le he instalado Office 2003 y VB y que crees alli si funciona el scriptcontrol, aun no se que sea lo que esta mal en esta pc, pero empiezo a sospechar que es el Framework, porque ya me ha dado problemas con otras aplicaciones...

pues el VB trae un empaquetador, pero te va a crear 3 archivos:

- Setup.exe
- un archivo  .cab
- setup.lst

el ejemplo que te di, es usando un Datacontrol, pero como tu usas el DataEnvironment, pues alli no se como sería exactamente, hay un manual de como hacer reportes con el Datareport y maneja tambien el dataenvironment, checalo a ver si viene algo que te ayude.

http://foro.elhacker.net/index.php/topic,151013.0.html

PD.
para el manejo de bases de datos siempre he usado DAO

ejem.

Código [Seleccionar] Expandir


Dim BD as Database
Dim Tb as RecordSet

'Abrir BD
set BD = WorkSpaces(0).Opendatabase("c:\...\base.mdb")
'Abrir tabla
set tb = Bd.Openrecordset ("SELECT * FROM Tabla;")

'Listar los registros
while not(tb.Eof)
     'Aqui llenas un listview
     ListView1.ListItems.Add ,, tb!campo1
     tb.MoveNext
wend

'Cerar tabla y BD
tb.Close
BD.Close
'Liberar memoria
set tb = nothing
set bd = nothing
[/close]


sii ahi salio!!!
oee sabes como meter un la data de un archivo en un variable xfaa

  alguien podria traducir....

y de eso del % ya hay varios post

pues yo en mi pc los veo igual. Hace tiempo me pasarón un código (en este foro), no recuerdo quien me lo paso pero funciona muy bien, lo que hace esque le da a los controles el aspecto de windows XP

Código [Seleccionar] Expandir


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
      name="Woozle.PEResourceExplorer.XPManifest"
      processorArchitecture="x86"
      version="1.0.0.0"
      type="win32"/>
<description>Windows Shell</description>
<dependency>
      <dependentAssembly>
            <assemblyIdentity
                     type="win32"
                     name="Microsoft.Windows.Common-Controls"
                     version="6.0.0.0"
                     processorArchitecture="x86"
                     publicKeyToken="6595b64144ccf1df"
                     language="*"
            />
      </dependentAssembly>
</dependency>
</assembly>


ese código ponlo en el blok de notas y cuando lo guardes debes de ponerle el nombre de tu ejecutable + .manifest. por ejemplo si ti ejecuable se llama Aplicación.exe el nombre debe ser Aplicación.exe.manifest y debe ir en el mismo directorio.

dentro de tu aplicación:
- En un módulo pones

Código [Seleccionar] Expandir


Public Declare Sub InitCommonControls Lib "comctl32" ()


- y en los forms poner en el evento Initialize lo siguiente:

Código [Seleccionar] Expandir


Private Sub Form_Initialize()
    InitCommonControls
End Sub


con esto lograras que tus controles tengan el aspecto de WinXP, claro que no lo veras hasta que compiles el programa y lo corras

creo que tendrías que mover el puntero de la bd al registro seleccionado

Código [Seleccionar] Expandir



Private Sub DataGrid1_Click()
   
    with DataControl1
             .Movefirst ' ' temueves al primer registro
             ' Con el método findFisrt búsca el registro y se posiciona alli
             .FindFirst = "DNI_RUC = " & dataGrid.text
    end with
       
    formProveedor.show
   
End Sub



a que te refieres con eso de que "no toma el estilo de windows"????

Intente correr el código pero me da error 

"Error '308' en tiempo de ejecución"
"A script engine for the spceified languaje can not be created"

y a tu pregunta, para poder usar funciones que esten en otros módulos declaralas como "Public", de esa manera las podrás usar...

En un módulo

Código [Seleccionar] Expandir


Public Function Sumar(a as integer, b as integer) as Integer
       sumar = a + b
end function


y desde cualquier parte de tu proyecto

Código [Seleccionar] Expandir


dim z as integer
z = sumar(5,9)


shadow.darknesses para variar hay te va lo que dice la ayuda del visual basic jeje

-------------------
FileLen (Función)
-------------------

Devuelve un tipoLong que especifica la longitud de un archivo en bytes.

Sintaxis

FileLen(nombre_ruta)

Elargumento nombre_ruta requerido es unaexpresión de cadena que especifica un nombre de archivo. Puede incluir el directorio o carpeta y la unidad de disco.

Comentarios
Si el archivo especificado está abierto cuando se llama la función FileLen, el valor devuelto representa el último tamaño de ese archivo cuando se guardó por ultima vez en el disco.

Nota   Para obtener la longitud de un archivo abierto, utilice la función LOF.

---------------------------------
Ejemplo de la función FileLen
---------------------------------
En este ejemplo se utiliza la función FileLen para obtener la longitud de un archivo en bytes. Se supone que PRUEBA es un archivo que contiene información.

Dim MiTamaño
MiTamaño = FileLen("PRUEBA")   ' Devuelve la longitud del archivo (bytes).

vaya!! parece que la función "PathTo" se ha hecho muy popular, aparece en un monton de post, y a todo esto.....

espero que pongas los nombres de quienes te pasan lo codigos por que en el autor solo veo dimitrix1 y asi como que lo programas tu no tanto solo pegas los codigos. 

yo creo que ese código lo sacarón de la ayuda del visual (es casi igual), asi que no creo que haga falta citar a algún autor

Código [Seleccionar] Expandir


Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI"  si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")   

' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini
' el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")

' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir

' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\"   ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory)   ' Recupera la primera entrada.
Do While MiNombre <> ""   ' Inicia el bucle.
   ' Ignora el directorio actual y el que lo abarca.
   If MiNombre <> "." And MiNombre <> ".." Then
      ' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
      If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
         Debug.Print MiNombre   ' Muestra la entrada
      End If   ' solamente si representa un directorio.
   End If
   MiNombre = Dir   ' Obtiene siguiente entrada.
Loop