Temas

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...

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.

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

Existe algun programa que me de la posibilidad de rastrear que se ejecuta cuando selecciono alguna opcion de otro programa extrerno?, no se si me explico bien.
Estoy realizando un seguimiento a la operacion de deteccion del bluetooth de windows para realizar la activacion desde un software desarrollado en python.

Quiero saber como hacer pero no desde el panel del control, alguien sabe si esta opcion se puede activar desde algun Hkey luego reiniciar y que aparezca activa?
Drivers genericos de bluetooth

Quiero saber como hacer pero no desde el panel del control, alguien sabe si esta opcion se puede activar desde algun Hkey luego reiniciar y que aparezca activa?

Tengo el siguiente codigo
Dim ObjWsh As Object
Set ObjWsh = CreateObject("Wscript.Shell")
ObjWsh.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\IVT Corporation\BlueSoleil\Install\InstallDir"
Set ObjWsh = Nothing

El problema es que si trato de borrar el directorio Install no puedo con el siguiente codigo
ObjWsh.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\IVT Corporation\BlueSoleil\Install"
PD: El directorio esta sin claves
Como puedo borrar directorios?

Hola, quiero realizar un pequeño programa el cual en el evento Load() del formulario, pueda desinstalar programas del agregar y quitar programas de windows, tambien tenia pensado abrir el agregar y quitar programas y gatillar el quitar pero no es lo optimo, si tienen algo de documentacion me serviria de mucho gracias.

Tengo la siguiente función para cambiar una imagen y una descripción de una pagina:
^{asi la llamo:
<div class="numeros1" id="numero3" onmouseover="MMover('numero3');" onmouseout="MMout('numero3');"><span class="menu1"><a href="javascript:Ccontenido('<? echo $novedadtitulo[3]; ?>','<? echo $novedadtexto[3]; ?>','imagenes/<? echo $novedadimagen[3]; ?>')" class="enlacenav2">3</a></span></div>
        <div class="numeros1" id="numero2" onmouseover="MMover('numero2');" onmouseout="MMout('numero2');"><span class="menu1"><a href="javascript:Ccontenido('<? echo $novedadtitulo[2]; ?>','<? echo $novedadtexto[2]; ?>','imagenes/<? echo $novedadimagen[2]; ?>')" class="enlacenav2">2</a></span></div>
        <div class="numeros1" id="numero1" onmouseover="MMover('numero1');" onmouseout="MMout('numero1');"><span class="menu1"><a href="javascript:Ccontenido('<? echo $novedadtitulo[1]; ?>','<? echo $novedadtexto[1]; ?>','imagenes/<? echo $novedadimagen[1]; ?>')" class="enlacenav2">1</a></span></div>}

y estas son mis funciones de despliegue:

<sup>function str_replace(cadena, cambia_esto, por_esto)
{
     return cadena.split(cambia_esto).join(por_esto);
}

function Ccontenido(titulo,texto,imagen)
{
   document.getElementById('centro').style.backgroundImage='url('+(imagen)+')';
   document.getElementById('contenido').nodeValue = titulo;
   document.getElementById('texto').firstChild.nodeValue = str_replace(texto,'\n','<br />');
}</sup>


Mi problema es que no me hace los saltos de linea lee y escribe el texto plano, mi duda es si esto se realiza de otra manera.

estoy desarrollando una galeria de imagenes con php y javascript tengo una imagen centra la cual la despliego con el siguiente codigo:

Código [Seleccionar] Expandir

echo "<img src='" . $galeria[1] .  "'name='centro' id='centro'  />";
esa parte corre perfecto.
luego tengo unas miniaturas de toda la galeria las cuales quiero que al hacerles click se desplieguen en la central tengo el siguiente codigo que me despliega las miniaturas pero no obstante no encuentro la manera de correr el javascript.

Código [Seleccionar] Expandir

while($galeria2=mysql_fetch_array($galerias2))
{
                     echo "<img src='" . $galeria2[0] . "' onclick='centro.src='" . $galeria[1] . "'';  onmouseover='this.style.cursor='hand';' />";
                }

de antemano muchas gracias

bueno la query sql es la siguiente SELECT MAX(Sales) FROM ID

Tengo el siguiente codigo pero nose como almacenar el resultador del query anterior en una variable

Public Class Form1
    Dim dt As New DataTable
    Dim da As New SqlClient.SqlDataAdapter
    Dim fila As Integer

    Private Sub btnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConectar.Click
        Dim cadena As String = "data source=WINDOWS-ERWL836\SQLEXPRESS;initial catalog=benja;integrated security=true"
        'Data source es el servidor, Catalog es la BD que usaremos
        Dim conexión As New SqlClient.SqlConnection(cadena)
        'conexión a la bases de datos SQL
        Dim cadenaSeleccion As String = "SELECT cod,nombre FROM benja ORDER BY cod"
        'Cadena de seleccion
        ' Crear un nuevo objeto del tipo DataAdapter
        da = New SqlClient.SqlDataAdapter(cadenaSeleccion, cadena)
        dt = New DataTable
        ' Llenar la tabla con los datos indicados
        da.Fill(dt)
        fila = 1 'El primer dato es el 0
        mostrarDatos(fila)
    End Sub
    Private Sub mostrarDatos(ByVal f As Integer)
        Dim dr As DataRow = dt.Rows(f)
        txtCodigo.Text = dr("cod").ToString
        txtNombre.Text = dr("Nombre").ToString
    End Sub
End Class

tengo entendido que por ejemplo con el comando  SELECT x FROM y selecciono un dato quisiera almacenar ese dato en un textbox, intente con un sqlclient.dataadapter pero no logre hacer que funcionara, haber si me podeis ayudar

Tengo el siguiente codigo:
------------------------------------------------------------------------
Public Class connec
    Public con As OleDb.OleDbConnection
    Public da As OleDb.OleDbDataAdapter
    Public numero As Integer
    Public nombre As String
    Public Function ingresar(ByVal con As OleDb.OleDbConnection)
        con.Open()
        Dim access As String = "insert into CURSO values ('" & numero & "','" & nombre & "')"
        con.Close()
        Return (0)
    End Function
End Class
----------------------------------------------------------------------------------
Public Class Form1
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\bd1.mdb")
    Dim objconnec As New connec
    Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btningresar.Click
        objconnec.numero = txtnum.Text
        objconnec.nombre = txtnom.Text
        objconnec.ingresar(cn)
    End Sub
End Class
---------------------------------------------------------------------------------
bueno cuando ingreso no me marca niun error , pero cuand oreviso la base de datos no ingresa nada alguen me puede ayudar...

Tengo el siguiente codigo:
------------------------------------------------------------------------
Public Class connec
    Public con As OleDb.OleDbConnection
    Public da As OleDb.OleDbDataAdapter
    Public numero As Integer
    Public nombre As String
    Public Function ingresar(ByVal con As OleDb.OleDbConnection)
        con.Open()
        Dim access As String = "insert into CURSO values ('" & numero & "','" & nombre & "')"
        con.Close()
        Return (0)
    End Function
End Class
----------------------------------------------------------------------------------
Public Class Form1
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\bd1.mdb")
    Dim objconnec As New connec
    Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btningresar.Click
        objconnec.numero = txtnum.Text
        objconnec.nombre = txtnom.Text
        objconnec.ingresar(cn)
    End Sub
End Class
---------------------------------------------------------------------------------
bueno cuando ingreso no me marca niun error , pero cuand oreviso la base de datos no ingresa nada alguen me puede ayudar...

Tengo el siguiento codigo para insertar desde visual a sql:

Public
Class libros
Public codigo As String
Public nombre As String
Public autor As String
Public Function ingresar(ByVal conn As SqlClient.SqlConnection)
conn.Open()
Dim sql As String = "Insert into libros values('" & codigo & "','" & nombre & "','" & autor & "')"
Dim mycommand As New SqlClient.SqlCommand (sql, conn)
mycommand.ExecuteNonQuery()
conn.Close()
Return (0)
End Function
End
Class
Public
Class Form1
Dim cadena As String = "data source=vld_lab1_06;initial catalog=II-4;integrated security=true"
Dim conn As New SqlClient.SqlConnection (cadena)
Dim objlibros As New libros
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles txtautor.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles MyBase.Load
End Sub
Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles btningresar.Click
objlibros.codigo = txtcodigo.Text
objlibros.nombre = txtnombre.Text
objlibros.autor = txtautor.Text
objlibros.ingresar(conn)
End Sub
End
Class

Ahora Quisiera traspasarlo para insertar a access2000, ¿alguien me puede ayudar?