Mensajes

eso me gustaría saber opiniones justificaciones, y lo mas importante recomendaciones para implementar con mayor seguridad.

$sql="SELECT @intervaloMax:= MAX(fecha) from t_variaciones;";
$sql=$sql."SELECT @intervaloMin:= DATE_SUB(@intervaloMax,INTERVAL 1 YEAR) FROM t_variaciones;";
$sql=$sql."SELECT AVG(valorCierre) from t_variaciones where empresa='".$value."' and fecha>=@intervaloMin;";

Existe alguna forma de ejecutar una consulta de este estilo?, ya que con mysql_query(), no me deja...

Averigua sobre:
Windows Script Host
Dim ObjWsh As Object
Set ObjWsh = CreateObject("Wscript.Shell")

s = StrConv(Buffer, vbUnicode)
creo que me explique mal lo tengo así y me devuelve caracteres ilegibles, luego le aplique un strptr(s) y ahora me devuelve un valor numérico.
Sabes algun tipo de transformacion que me pueda ser util, lo estoy utilizando para leer la respuesta de una impresora conectada mediante bluetooth

Como puedo convertir un string unicode a ascii?

Estoy imprimiendo de esa forma tickets, lógicamente programe la detección del dispositivo y la conexión al mismo.

Código [Seleccionar] Expandir


    Dim s As String
    s = Chr$(27) + "P$" + Chr$(27) + "PP" + vbCrLf + "BeginPage();" + vbCrLf
    s = s + "SetPageSize(700,200);" + vbCrLf
    s = s + "DrawText(20,60,1,0,""<f=6><b>PRUEBAS DE IMPRESION"");" + vbCrLf
    s = s + "EndPage()" + vbCrLf + Chr$(27) + "P#" + vbCr + Chr$(4) + vbCrLf
    Dim arr() As Byte
    arr = StrConv(s, vbFromUnicode)
    resp = wclClient.Write(arr)

Mi pregunta es la siguiente al imprimir de esta manera pierdo todo control de errores de impresión, alguien ha trabajado de esta manera que me pueda encaminar para la detección de los errores.

me puedes ayudar con el bat?

[/url]
eso quiero crear desde codigo

eso?
Estuve avergiuando bastante del tema y solo encontre para crear recursos compartidos. En la noche subo el codigo

Ya lo hize para los que les interese realizar un aplicacion asi les dejo el codigo para elminar registros.

Código [Seleccionar] Expandir


Dim Objeto As WshShell
Objeto_Evento()
    'Objeto de Windows Script Host
    Dim ObjWsh As Object
    Set ObjWsh = CreateObject("Wscript.Shell")
    ObjWsh.RegDelete "HKEY_LOCAL_MACHINE\......"
    'Eliminar la variable de objeto
    Set ObjWsh = Nothing