yo uso esto:

Hola foro.

Ando algo desesperado con el tema de las relaciones en mysql...

Para crear la base de datos de usado el phpAdmin. hasta quí ningún problema. Tengo mi base de datos, con sus tablas y sus Primary keys...

Ahora comienzo con mi código en la página php... para varias consultas, e inserciones no tengo problemas (por ahora) pero hay una consulta que no consigo realizar y es una consulta que contenga INNER JOIN, incluso he probado a realizar la consulta llamando a 2 tablas en el FROM, pero tampoco obtengo resultado alguno.

Sabeis a que se puede deber? he cambiado el formato de las tablas de MyISAM a InnoDB (ya que alguien me lo recomendó alguna vez) pero el resultado es el mismo (ninguno).

Tambien he leido que para que se pueda usar INNER JOIN en mysql la version de mysql ha de ser superior a la 3.23.17. En mi caso lo es. De todos modos como he dicho antes tampoco puedo realizar una consulta a 2 tablas a la vez, como por ejemplo podria ser "Select c1, t2.c1 from t1, t2"... o la prueba que sea, el caso es que no realiza la consulta.

¿Os ha pasado alguna vez algo así?¿Cómo lo habeis solucionado? ¿Por donde van los tiros????

Espero vuestra colaboración

un saludo.

O no te has explicado bien o no me he enterado yo... (supongo que será lo segundo)

Puedes ponerle un icono a tu aplicación de VB6 con:
Proyecto -> Propiedades de... -> Generar y seleccionas uno de los iconos que tenga algún formulario que utilices en la aplicación.

Para que un formulario tenga un icono se lo adjudicas con:
formulario.Icon

esto es la solución para lo que yo he entendido.... no se si será lo que necesitas.

Un saludo.

No consigo realizar esto con este código.

He leido que esto solo sirve para cambiar los permisos a un fichero... lo he probado para el directorio y no me funciona.


Se me ha ido la pinza y en el foro de Webmasters he abierto un hilo sobre el mismo tema. He pedido que lo cierren ya que la duda es la misma que la que se trata aquí.

Por código esto le da permisos al archivo... conoceis algún modo para dar permisos 777 a un directorio? (para así poder subir archivos mediante un formulario).

Me funciona correctamente si pongo permisos 777 a la carpeta donde subo el archivo, pero me gustaria no tenerla en 777 y sólo ponerla en el momento de subir el archivo y despues dejarla en 755.


Sabeis como hacer eso?

Espero que esto te sirva. Cuentanos a ver como te ha ido al probarlo.



Private Declare Function GetShortPathName Lib "kernel32" Alias _
    "GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''' FTP ''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Esta API es para que de una ruta WIndows, me devuelva una ruta MSDOS,
'ya que el comando FTP del prompt no reconoce rutas largas

Public Function RutaDos(strFileName As String) As String

    Dim lngRes As Long, strPath As String
    strPath = String$(165, 0)
    lngRes = GetShortPathName(strFileName, strPath, 164)
    RutaDos = Left$(strPath, lngRes)
   
End Function


''''''''''''''''''''''''''''''''''
''''''' subir fichero ''''''''''''
''''''''''''''''''''''''''''''''''


Function PutFichero()
On Error GoTo ERROR

    Dim Retval
    'escribimos el fichero ftp.txt que hara toda la labor
    If Len(Dir("C:\ftp.txt")) <> 0 Then Kill "C:\ftp.txt"
   
    Dim StrFtp As String
    Dim StrUsuario As String
    Dim StrPassword As String
    Dim strCarpetaRemota As String
    Dim StrRutalocalFichero As String
   
 
    StrFtp = "ftp.sitio.com"
    StrUsuario = "sitio.com"
    StrPassword = "contraseña"
    strCarpetaRemota = "html/BD/"
    StrRutalocalFichero =  "BD.zip"
   
    ' subir al servidor
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "put " & RutaDos(StrRutalocalFichero)
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

'    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    Exit Function

ERROR:
End Function



''''''''''''''''''''''''''''''''''
''''''' bajar fichero ''''''''''''
''''''''''''''''''''''''''''''''''


Function GetFichero()
On Error GoTo ERROR

    Dim Retval

    Dim StrFtp As String
    Dim StrUsuario As String
    Dim StrPassword As String
    Dim strCarpetaRemota As String
    Dim StrFicheroRemoto As String
   
    StrFtp = "ftp.sitio.com"
    StrUsuario = "sitio.com"
    StrPassword = "contraseña"
    strCarpetaRemota = "html/BD/"
    StrFicheroRemoto = "BD.ZIP"
   
    ' bajar el fichero
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "get " & StrFicheroRemoto & " " & _
            RutaDos(Directorio) & "BD.zip"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

'    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    If Len(Dir("C:\ftp.txt")) <> 0 Then Kill "C:\ftp.txt"
   
    ' cambiar nombre, para tener una cópia de seguridad
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "rename " & StrFicheroRemoto & " " & _
            "BD_" & FECHA & ".zip"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    Exit Function

ERROR:
End Function

Que recomendais para comenzar a programar para estos dispositivos??? alguien tiene algo hecho por ahí? para realizar ls conexiones via WIFI y esas cosas....

Tengo pensado emprender un proyecto para pasar varias aplicaciones que tengo para PC a pasarlas a dispositivos móviles.

De todos modos.... también sucede los mismo con un Tablet PC???

Hola foro... tengo una duda (por decir una, en realidad tengo varias) con el tema de los Pcket Pc, Tablet Pc y dispositivos similares...

¿Existe alguna posibilidad de que un programa hecho en visual basic funcione en una pocket pc o tablet pc?

En un supuesto de que si, ¿la base de datos de access la reconocería?

Yo me sumo a la petición

Al pasar de VB6 a .Net... siempre hay cambios (si no los hubiera sería lo mismo, jeje) y toda reescribir gran parte del código. Ya que el asistente de .NET para pasar de VBconvencional a .NET no lo hace por nosotros.

con el "control+tab" se va pasando el control sobre cada formulario HIJO que esté abierto (estoy seguro de eso porque yo lo he sufrido ) entonces si al hacer el "contrl+tab" se va de uno a otro formulario hijo.

también es posible que tengas algún error con los bordes del formulario... prueba cambiando hasta conseguirlo, algunas de las opciones de los bordes no son compatibles con según que movimientos en un MDI. Prueba a ponerlos sin Borde (0) o Sizeable (2).