Mensajes

No se si venga al caso... pero, por ejemplo:

Si tengo un achivo MDF en la maquina X, podria conectarme desde otra maquina de mi LAN a ese archivo? Si necesidad de instalar SQL Server?

Esto a quien va dirigido? Le esta solicitando al que hizo el post que coloque la cadena de conexion? Disculpe, es que no entendi.

Muestra el string de conexion...

Yo tampoco lo entiendo..

No entiendo porque estas eligiendo un Archivo de Base de datos??? intentas conectarte al Servidor o a un archivo MDF.

Alguien ha trabajado directamente con un archivo MDF (como si fuera una base de datos de Access)? Eso realmente funciona? Sinceramente nunca he utilizado ese metodo de conexion, pero no creo que funcione... depende de SQL Server, cierto?

Amigo.. intente seleccionando el origen de datos Microsoft SQL Server; creo que usted esta seleccionando el que se llama Microsoft SQL Server Database File.

Con el Microsoft SQL Server puede especificar el servidor SQL al que se va a conectar, etc.

Haga la prueba y nos avisa.

Saludos 

Hola jimbo777... que tal si nos da la clave del RAR???

Para los que busquen lo mismo y no encuentran la respuesta:

Código [Seleccionar] Expandir


<?php

    $archivo = "directorio/archivo.txt";
    $f = fopen($archivo,"w");
    
    fputs($f,"Hola mundo!");
    fclose($f);

?>


FileCopy App.Path & "\sapo.dll", App.Path & "\sapo.bmp"

Con ese codigo usted copiaria el archivo sapo.dll y a la copia
le daria el nombre sapo.bmb

Debe tener un poco de cuidado... ya que si su aplicacion se encuentra
en C:\ (por ejemplo), o en cualquier otra unidad (en la raiz de la unidad),
va a tener un error... Vea que pasaria:

FileCopy C:\\sapo.dll, C:\\sapo.bmp

Para solucionar ese pequeño posible error, haga algo como lo siguiente:

Código [Seleccionar] Expandir


Dim strPath As String
    strPath = App.Path
    If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
    FileCopy strPath & "sapo.dll", strPath & "sapo.bmp"


En cuanto a esto:

y este como seria para por ejemplo ubicar un archivo con el App.Path

App.Path & "\ArchivoAUbicar.Exe"

Si se refiere a saber si el archivo existe... pues, utilice el siguiente
codigo:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
  Dim iExist As Integer, strPath As String
    On Error GoTo Error_Handler
        strPath = App.Path
        If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
        iExist = GetAttr(strPath & "ArchivoAUbicar.Exe")
        MsgBox "El archivo si existe!", vbInformation
    Exit Sub
Error_Handler:
    If Err.Number = 53 Then
        MsgBox "El archivo no existe.", vbCritical
    Else
        MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
    End If
End Sub


DoEvents se utiliza para que Windows tome el control de
nuestra aplicacion y no nuestra aplicacion del sistema operativo.

Ademas winap y el oto que nombrastes no tienen un filtro para
buscar una cancion espesifica

Hola amigo. Winamp si permite buscar canciones especificas por nombre.
Haga la prueba: cree un playlist con todas las canciones que desea. Luego
(con el enfoque en el Winamp) presione la tecla F3.

Listo!!! Digite el nombre de la cancion, ahi aparecera (siempre y cuando se
encuentre dentro del playlist).

Por otra parte... si no es muy experto en bases de datos, para mayor facilidad
puede utilizar el DataEnvironment de VB6.0

Si el OCX que se desea registrar esta ubicado en el mismo
directorio que su aplicacion, podria usted utilizar el siguiente
codigo para realizar el registro:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
  Dim strOCX As String
    strOCX = App.Path
    If Not Right(strOCX, 1) = "\" Then strOCX = strOCX & "\"
    strOCX = strOCX & "mswinsck.ocx"
    MsgBox strOCX
    Shell "regsvr32 -s  " & strOCX
End Sub


Se utiliza el flag -s para que regsvr32 no muestre ningun mensaje.
En este caso se registraria el componente mswinsck.ocx

Hola brache... Como dice C@ss¡@n¡, App.Path devuelve la ruta
donde esta ubicado el ejecutable de nuestra aplicacion.

Ademas de .Path existen algunas cosillas mas, por ejemplo, si
usted desea obtener la ruta completa de su aplicacion y ademas
el nombre de la misma (como para producir copias je je je), podria
hacer lo siguiente:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
  Dim strPath As String
    strPath = App.Path
    If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
    strPath = strPath & App.EXEName & ".exe"
    MsgBox strPath
End Sub