Temas

Buenas tardes a todos.

Estoy elaborando una página en donde requiero abrir (ver) archivos que se encuentran en un directorio del disco duro. con visual basic uso una API:

Código (vb) [Seleccionar] Expandir

'Declaración de la API
Declare Function Ejecuta Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'y para abrir archivos lo hago de esta manera:
Ejecuta Me.hwnd, "open", "c:\archivos\archivo.xls", "", "", 1

de esta forma puedo abrir cualquier archivo con su aplicación asociada, he buscado si con PHP o javascript existe algo similar pero no he podido hacerlo, he intentado abrir los archivos con un link:

Código (html5) [Seleccionar] Expandir

<a href="file:///C:/archivos/imagen/archivo.xls">Abrir</a>

pero al parecer por el tema de la seguridad los exploradores no lo permiten.

¿Alguien sabe si es posible abrir archivos desde HTML/PHP/javascript?

[Mod: Obligatorio el uso de etiquetas GeSHi. Temas sobre PHP van al subforo de PHP.]

Buenas tardes, recien empiezo en la programación con php y me he topado con un problema: los campos memo, mi problema es que no puedo leer el valor del campo, si leo cualquier otro campo ya sea de texto corto, fecha, número no hay problema

he buscado pero no he encontrado porque se da este comportamiento, ¿hay alguien que me pueda ayudar?

estoy usando un ODBC que se conecta a una base de datos del Access 2013. el código que tengo es el siguiente:

para conectar la BD:

Código (php) [Seleccionar] Expandir

   function conexion(){

   $conn=odbc_connect('auxAdmin','','');//DSN, usuario, password

   if (!$conn){
       exit("Falló conexion: " . $conn);
   }

   return($conn);

   }

Para leer los campos:

Código (php) [Seleccionar] Expandir

   // inicializa las variables
   $os = "";
   $cliente = "";
   $agente = "";
   $estatus = "";
   $fecha_solicitud="";
   $idOS=0;
   $fecha_atencion="";
   $fecha_cierre="";
   $t_respuesta="";
   $solicitud ="";
   
   //crea la conexión a la base de datos
   $conn=conexion();
   
   if(isset($_POST["txtOS"]))
   {
       $folioOS = $_POST["txtOS"];
       
       //valida el valor a buscar
       $pos = strpos($folioOS, "-");
       if ($pos == false){
           $folioOS ="A-0000";
           echo "<script languaje= 'javascript'> alert('El folio de la OS no es válido, verifique sus datos e intente nuevamente.'); </script>";
       }

       $parametros = explode ("-", $folioOS, 5);

       //Obtiene los datos de la OS
       $sql = "SELECT c.ccodigoc01 AS Codigo, c.crazonso01 AS Cliente, u.ClaveAdministradorGarantia AS CodAgente, u.NombreAdministradorGarantia AS Agente,
               OS.SerieOS, OS.FolioOS, e.Estatus, OS.idOS, Format(FechaRec,'dd/mm/yyyy') & ' ' & Format(HoraRec,'Short Time') AS fecha_solicitud,
               Format(cierre.FechaEvento,'dd/mm/yyyy') & ' ' & Format(cierre.HoraInicio,'Short Time') AS fecha_cierre,
               Format(atn.FechaEvento,'dd/mm/yyyy') & ' ' & Format(Atn.HoraInicio,'Short Time') AS fecha_atn,
               left(OS.SolicitudCliente,len(trim(OS.SolicitudCliente))) as Solicitud
               FROM ((((OS INNER JOIN Clientes AS c ON OS.idCliente = c.cidclien01)
               INNER JOIN Usuarios2 AS u ON OS.AgenteResp = u.ClaveAdministradorGarantia)
               INNER JOIN osEstatus AS e ON OS.EstatusOS = e.Id)
               LEFT JOIN OSBitacora AS cierre ON (OS.idOS = cierre.idOS AND cierre.Estatus = 8))
               LEFT JOIN OSBitacora AS atn ON (OS.idOS = atn.idOS AND atn.Evento = 1 AND atn.Ciclo = 1)
               WHERE OS.SerieOS = '" . $parametros[0] . "'" . " AND OS.FolioOS = " . $parametros[1] . ";";
       //echo $sql;

       $rs=odbc_exec($conn,$sql);

       if (!$rs){
           echo "Error";
           exit("Error in SQL");

       }
       else
       {
           $os = odbc_result($rs, "SerieOS");
           $os .= '-';
           $os .= sprintf("%04d", odbc_result($rs, "FolioOS"));

           $cliente = odbc_result($rs,"Codigo");
           $cliente .= ' - ';
           $cliente .= odbc_result($rs,"Cliente");

           $agente = sprintf("%03d", odbc_result($rs, "CodAgente"));
           $agente .= ' - ';
           $agente .= odbc_result($rs,"Agente");

           $estatus = odbc_result($rs, "Estatus");
           $idOS = odbc_result($rs, "idOS");
           $fecha_solicitud = odbc_result($rs, "fecha_solicitud");

           $fecha_atencion = odbc_result($rs, "fecha_atn");
           if ($fecha_atencion != " "){
               $fecha_atencion .= Calcula_Tiempo_Respuesta($conn, $fecha_solicitud, $fecha_atencion);
               
           }
           else{
               $fecha_atencion = "Este servicio aún no ha sido atendido";
           }
           
           $fecha_cierre = odbc_result($rs, "fecha_cierre");
           if ($fecha_cierre != " "){
               $fecha_cierre .= Calcula_Tiempo_Solucion($conn, $fecha_solicitud, $fecha_cierre);
               
           }
           else{
               $fecha_cierre = "Este servicio aún no ha sido cerrado";
           }
               
          [color=red][font=Verdana] $solicitud = odbc_result($rs, "Solicitud");[/font][/color]
           
       }

el problema es la linea $solicitud = odbc_result($rs, "Solicitud"); solo me regresa el valor "1"

Mod: Obligatorio el uso de etiquetas GeSHi. Temas sobre PHP van al subforo de PHP.

Buenas tardes a todos, estoy realizando un página HTML la cual contiene datos para ordenes de servicio, la página contiene datos de clientes, equipos y actividades de reparaciones que se realizarán, los datos son variables pueden ocupar 1 o más páginas, hasta alli todo va bién, sin embargo, al imprimir necesito que se imprima un contrato de servicio que siempre vaya en la hoja 2. ¿Alguien tiene alguna idea de como dividir la impresión en hojas como para insertar en la 2a página los datos del contrato?

Buenos días, estoy haciendo una página web con el VS2008 en donde tengo que enviar algunos correos, la página pide algunos datos y envia correos de avisos a algunas personas del lugar donde trabajo, hasta aqui todo va bien, la duda que tengo es ¿como le doy formato al texto del correo?, es decir, como indicar la fuente y tamaño de letra, o como incluir una tabla dentro del mensaje???

si me pudieran aclara esa duda se los agradecería, el código que uso es:

Dim strDestinatario = "cuenta@decorreo.com"
Dim clienteSMTP As New System.Net.Mail.SmtpClient

clienteSMTP.Host = "ServidorSMTP"
clienteSMTP.Port = 25
clienteSMTP.Credentials = New Net.NetworkCredential("miusuario", "mipass")

Dim Correo As New System.Net.Mail.MailMessage
Correo.To.Add(strDestinatario)
Correo.From = New MailAddress("otracuenta@decorreo.com")
Correo.Subject = "mail de prueba"
Correo.Body = "texto del correo"  <--- es aqui donde quisiera defirni tipos de letra, incluir imagenes y tablas.
clienteSMTP.Send(Correo)

el servidor al que me estoy conectando trabaja con Exchange y los correos los leo en outllok 2007

Buenas tardes, estoy tratando de hacer una aplicación en Visual 2008 que se conecte a una base de datos del sql server 2008, pero tengo problemas

el codigo que tengo es el siguiente:
        Dim cn As Data.SqlClient.SqlConnection
        Dim ds As Data.DataSet
        Dim da As Data.SqlClient.SqlDataAdapter
        Dim Conexion As String
       
        Conexion = "data source=MSSQL1;" & _
                      "initial catalog=Laboratorio;" & _
                      "integrated security=SSPI;" & _
                      "workstation id=sa;pwd=xxx;"

        Try
            cn = New Data.SqlClient.SqlConnection(Conexion)
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
            Exit Sub
        End Try

hasta alli parece todo bien, el problema es que quiero antenticar con el usuario del SQL (sa), pero me marca error diciendo que el usuario con el que inicio sesión en windows no tiene permisos.


¿alguien sabe como resolver este lio?????????


de antemano gracias

Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???

Buenas tardes, estoy tratando de hacer una aplicación para marcar números de teléfono, encontre algo de información al respecto:

Código [Seleccionar] Expandir


Option Explicit
Dim objComunicar

Public Sub marcarNumeroTelefono(numero As String)
  Dim cadConexion As String
  Dim resultado As Integer
  Dim modem As String
   
  On Error GoTo cError
    MousePointer = 11
  Set objComunicar = CreateObject("MSCommLib.MSComm")
 
  'Enviamos la cadena ATDT que equivale a
  'descolgar el modem y marcar el número indicado por tonos
  'ATDP por pulsos
  If opTonos.Value = True Then
    cadConexion$ = "ATDT" + numero + ";" + Chr$(13)
  End If
  If opPulsos.Value = True Then
    cadConexion$ = "ATDP" + numero + ";" + Chr$(13)
  End If
 
  'Indicaremos el puerto COM a utilizar (donde esté conectado el módem)
  objComunicar.CommPort = CInt(txtPuerto.Text)
 
  'En la configuración le indicaremos
    '300 = 300 baudios (velocidad)
    'N = sin paridad
    '8 = 8 bits de datos
    '1 = bit de parada
  objComunicar.Settings = "300,N,8,1"
   
  If Not objComunicar.PortOpen Then objComunicar.PortOpen = True
   
  'Liberamos el búfer de salida
  objComunicar.InBufferCount = 0
   
  'Enviamos los comandos AT con el número al módem
  objComunicar.Output = cadConexion$
   
  'Esperamos a recibir "OK" desde el módem
  Do
    resultado = DoEvents()
    ' Si hay datos en el Buffer los leemos
    If objComunicar.InBufferCount Then
      modem$ = modem$ + objComunicar.Input
      'Comprobamos si los datos leídos son "OK"
      If InStr(modem$, "OK") Then
        'Podemos indicar al usuario que descuelgue el teléfono
        MsgBox "Descuelge su teléfono y pulse 'Aceptar' para cerrar" _
            + " el módem. Podrá continuar la llamada en su teléfono." _
            + Chr(13) + Chr(13) + "Recuerde que si pulsa 'Aceptar' " _
            + "sin descolgar su teléfono se cortará la llamada.", _
            vbInformation + vbOKOnly
        Exit Do
      End If
    End If
  Loop
   
  'Desconectamos el módem, para ello enviamos el comando "ATH"
  objComunicar.Output = "ATH" + Chr$(13)
  'Cerramos el puerto
  objComunicar.PortOpen = False
    MousePointer = 0
cSalir:
  Exit Sub
 
cError:
  MsgBox "Error en la marcación del número de teléfono: " & _
      Err.Number & " - " & Err.Description, vbExclamation
  GoTo cSalir
End Sub


Private Sub cmdColgar_Click()
  On Error GoTo cError
  'Desconectamos el módem, para ello enviamos el comando "ATH"
  objComunicar.Output = "ATH" + Chr$(13)
 
cSalir:
  Exit Sub
 
cError:
  MsgBox "Error en la marcación del número de teléfono: " & _
      Err.Number & " - " & Err.Description, vbExclamation
  GoTo cSalir
End Sub

Private Sub cmdMarcar_Click()
    marcarNumeroTelefono txtNum.Text
End Sub


el problema que tengo, es: ¿Como le hago para que al momento de marcar tome en cuenta las reglas de marcado que estan definidas en el panel de control de windows? 

Buenos días, alguien sabra como establecer permisos a un archivo, es decir lo que intento hacer es ponerle permisos a varios usuarios sobre un archivo, algo como esto

archivo.txt
y que tenga:
usuario1 -> leer
usuario2 -> leer, Modificar
usuario3 -> leer, Modificar, Borrar
usuario4 -> Control total

se que con el "SetAttr" pongo estos atributos, pero la duda es ¿¿¿como le hago para definirselos a cada usuario???? 

Buenas, alguien sabe en que control ocx vengan las scrolbars pero al estilo windows xp???

buenas tardes, estoy haciendo un programa y necesito copiar una imagen desde una aplicación X a un picturebox, lo que trato de hacer es copiar la imagen en el portapales de windows y luego ponerla en mi picture, he estado buscando y me encontre con esto:

Código [Seleccionar] Expandir


Private Const CF_TEXT = 1
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hStrPtr As Long, lLength As Long, sBuffer As String
    OpenClipboard Me.hwnd
    hStrPtr = GetClipboardData(CF_TEXT)
    If hStrPtr <> 0 Then
        lLength = lstrlen(hStrPtr)
        If lLength > 0 Then
            sBuffer = Space$(lLength)
            CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
            MsgBox sBuffer, vbInformation
        End If
    End If
    CloseClipboard
End Sub

pero este código solo pega texto y no se como hacerle para pegar una imagen, si alguien me puede echar una mano se los agradecería

Buenas, estoy manejando un Treview solo que me surgio una duda, como puedo saber cuatos niveles tiene el árbol y si le doy click a un nodo como se en que nivel esta?



para que me entiendan mejor, si tengo:

Nivel1......Nivel2......Nivel3......Nivel4
                  .              .               .
Nodo1         .              .               .
|---------Nodo2            .               .
|                |---------Nodo3           .
|                                  |---------Nodo4
|---------Nodo5
|                |---------Nodo6
|---------Nodo7
|---------Nodo8
|---------Nodo9


esto seria el árbol tiene 4 niveles y el nodo6 esta en el nivel 3

hola estoy trabajando con un picture box al que le mando imprimir texto, el problema es que si paso alguna ventana por encima del picture, el contenido del picture se borra, alguien sabe como hacerle para que el contenido se quede alli?
de antemano gracias

alguien sabe si hay alguna herramienta (ocx o dll) en VB para crear Organigramas en visual basic.?????

Buenas, estyo haciendo un programita en el que uso el CommonDialog, pero esta pasando algo raro cuando mando llamar la ventana de abrir archivo, lo hace de manera normal (fig 1), pero cuando cuando le pongo que seleccione varios ficheros, me muestra una ventana al estilo de esas que se usaban en Win95 o 3.11 (fig 2)

fig 1

fig 2

el código que uso es el siguiente:

Dim s() As String, i As Integer
           
            On Local Error Resume Next
            With CommonDialog1
                '.Flags = cdlOFNAllowMultiselect
                .Filter = "Todos los archivos | *.*"
                .ShowOpen
                Select Case Err.Number
                    Case 0 ' archivos seleccionados
                        s = Split(.FileName, " ")
                        For i = 1 To UBound(s)
                            MsgBox s(0) & s(i)
                        Next i
                    Case 32755
                        ' selecciono cancelar
                    Case Else
                        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error al abrir"
                End Select
            End With
            On Local Error GoTo 0


si alguien sabe porque pasa esto se les agradeceria mucho me explicarán

Alguien sabe como enviar un mail desde una aplicaion de VB6, de antemano gracias

Hola, estyo haciendo un programa en el que utilizo algunos archivos .bat, los mando llamar con la instruccion Shell, pero los ajecuta asincronamente

Shell App.Path & "\respaldo.bat", vbNormalFocus


hay alguna manera de hacer que mi programa espere hasta que el archivo bat termine su ejecución??

estoy haciendo programa que se conecta a un servidor web (una especie de Update) y descargo archivos por medio de Inet, lo que no se es, como le hago para saber la fecha de modificación de los archivos del servidor web?