Temas

Estoy desarrollando una aplicacion para enviar sms, utilizo para ello la api de silverstreet.
Para enviar el sms no hay problema, simplemente en la siguiente liga se ponen los parametros:
http://api.silverstreet.com/send.php?username=test&password=test&destination=3113469 0886&sender=silver&body=Testing&dlr=1&reference=100   
 
La api retorna 01, lo cual significa que el sms ha sido recibido correctamente el sistema silverstreet, pero no significa
que lo haya recibido el destinatario, y es lo que me interesa, saber quién lo recibe y quién no.
Para eso el manual indica que al enviar un sms el sistema te retorna un Delivery Report, con los datos que me interesan.
El sistema te retorna el reporte si le pasas el parametro dlr=1 y una referencia unica, eso lo especifico en la cadena.
De acuerdo al manual, debes tener configurada una pagina de respuesta, llamada callback url, y ésta debe retornar en texto plano "OK", mi pagina ya lo hace y se llama www.misitio.mx/sms/callback.aspx
Segun mi entendimiento, cuando haces una paticion similar, la api debe redireccionarte a la pagina callback, como lo hace twitter y facebook.
Pero no me redirecciona y por tanto no recibo el reporte del sms enviado, solo recibo 01 de que el sistema silverstreet recibio el sms.
Estoy trabajando en ASP.Net y este es mi codigo

Código (vbnet) [Seleccionar] Expandir


Dim strUrl As String = "https://api.silverstreet.com/send.php?username=user&password=pas&destination=" & txtDest.Text & "&sender=35110&body=" & txtMsj.Text & "&dlr=1&reference=100"

           Dim request As WebRequest = HttpWebRequest.Create(strUrl)
           Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
           Dim s As Stream = DirectCast(response.GetResponseStream(), Stream)
           Dim readStream As New StreamReader(s)
           Dim dataString As String = readStream.ReadToEnd()
           'aqui recibo 01 (sms recibido)
           txtRes.Text = dataString.ToString
           response.Close()
           s.Close()
           readStream.Close()
           lblmsj.Text = "Mensaje Enviado"



Tal vez estoy haciendo algo mal, porque deberia de redireccionarme a www.misitio.mx/sms/callback.aspx con los datos del reporte, y despues de eso yo deberia contestar con un OK en texto plano.

Esto es lo que retorna el reporte:
http://www.yoururl.com/callback?REFERENCE=12345678&STATUS=Delivered&REASON=&D ESTINATION=31134690886&TIMESTAMP=20120501120202&OPERATOR=20408

Seguramente alguien ha realizado algo similar
Les agradezco de antemano su ayuda
Gracias y seguimos por aqui buscando la solucion

Estoy desarrollando una aplicacion para enviar sms, utilizo para ello la api de silverstreet.
Para enviar el sms no hay problema, simplemente en la siguiente liga se ponen los parametros:
http://api.silverstreet.com/send.php?username=test&password=test&destination=3113469 0886&sender=silver&body=Testing&dlr=1&reference=100   
 
La api retorna 01, lo cual significa que el sms ha sido recibido correctamente el sistema silverstreet, pero no significa
que lo haya recibido el destinatario, y es lo que me interesa, saber quién lo recibe y quién no.
Para eso el manual indica que al enviar un sms el sistema te retorna un Delivery Report, con los datos que me interesan.
El sistema te retorna el reporte si le pasas el parametro dlr=1 y una referencia unica, eso lo especifico en la cadena.
De acuerdo al manual, debes tener configurada una pagina de respuesta, llamada callback url, y ésta debe retornar en texto plano "OK", mi pagina ya lo hace y se llama www.misitio.mx/sms/callback.aspx
Segun mi entendimiento, cuando haces una paticion similar, la api debe redireccionarte a la pagina callback, como lo hace twitter y facebook.
Pero no me redirecciona y por tanto no recibo el reporte del sms enviado, solo recibo 01 de que el sistema silverstreet recibio el sms.
Estoy trabajando en ASP.Net y este es mi codigo

Código (vbnet) [Seleccionar] Expandir


Dim strUrl As String = "https://api.silverstreet.com/send.php?username=user&password=pas&destination=" & txtDest.Text & "&sender=35110&body=" & txtMsj.Text & "&dlr=1&reference=100"

            Dim request As WebRequest = HttpWebRequest.Create(strUrl)
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            Dim s As Stream = DirectCast(response.GetResponseStream(), Stream)
            Dim readStream As New StreamReader(s)
            Dim dataString As String = readStream.ReadToEnd()
            'aqui recibo 01 (sms recibido)
            txtRes.Text = dataString.ToString
            response.Close()
            s.Close()
            readStream.Close()
            lblmsj.Text = "Mensaje Enviado"


Tal vez estoy haciendo algo mal, porque deberia de redireccionarme a www.misitio.mx/sms/callback.aspx con los datos del reporte, y despues de eso yo deberia contestar con un OK en texto plano.

Esto es lo que retorna el reporte:
http://www.yoururl.com/callback?REFERENCE=12345678&STATUS=Delivered&REASON=&D ESTINATION=31134690886&TIMESTAMP=20120501120202&OPERATOR=20408

Seguramente alguien ha realizado algo similar
Les agradezco de antemano su ayuda
Gracias y seguimos por aqui buscando la solucion

[Esta es mi clase para gestionar la base de datos:]

Hola  a todos

Tengo una aplicación en vb.net + mysql. Donde para gestionar la interacción con mysql tengo una clase llamada clsDatabase. Cuando realizo consultas consecutivas mi aplicación se traba, como si se quedara congelada esperando algo, lo raro que no manda ningun mensaje de error, aunque le ponga la consulta dentro de un try.. catch.

Esta es mi clase para gestionar la base de datos:

Código (vbnet) [Seleccionar] Expandir


Imports Microsoft.VisualBasic
Imports System.Data
Imports MySql.Data.MySqlClient
Imports System.Configuration

Public Class clsDatabase
    Private objConn As MySqlConnection
    Private objCmd As MySqlCommand
    Private Trans As MySqlTransaction
    Private strConnString As String

    Public Sub New()
        strConnString = "server=" & iServer & "; uid=" & iUser & "; pwd=" & iPassword & "; port=" & iPuerto & "; database=" & iBaseDatos & ";connection timeout=3600;"
    End Sub

    Public Function QueryDataReader(ByVal strSQL As String) As MySqlDataReader
        Dim dtReader As MySqlDataReader
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        objCmd = New MySqlCommand(strSQL, objConn)
        dtReader = objCmd.ExecuteReader()
        Return dtReader '*** Return DataReader ***'
    End Function

    Public Function QueryDataSet(ByVal strSQL As String) As DataSet
        Dim ds As New DataSet
        Dim dtAdapter As New MySqlDataAdapter
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        objCmd = New MySqlCommand
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds)
        Return ds   '*** Return DataSet ***'
    End Function

    Public Function QueryDataTable(ByVal strSQL As String) As DataTable
        Dim dtAdapter As MySqlDataAdapter
        Dim dt As New DataTable
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        dtAdapter = New MySqlDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)
        Return dt '*** Return DataTable ***'
    End Function

    Public Function QueryExecuteNonQuery(ByVal strSQL As String) As Boolean
        'MsgBox(strSQL)
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        Try
            objCmd = New MySqlCommand()
            With objCmd
                .Connection = objConn
                .CommandType = CommandType.Text
                .CommandText = strSQL
            End With
            objCmd.ExecuteNonQuery()
            Return True '*** Return True ***'
        Catch ex As Exception
            MsgBox("ERROR EN QueryExecuteNonQuery" & Err.Description, MsgBoxStyle.Exclamation)
            Return False '*** Return False ***'
        End Try
    End Function

    Public Function QueryExecuteScalar(ByVal strSQL As String) As Object
        Dim obj As Object
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        Try
            objCmd = New MySqlCommand()
            With objCmd
                .Connection = objConn
                .CommandType = CommandType.Text
                .CommandText = strSQL
            End With
            obj = objCmd.ExecuteScalar()  '*** Return Scalar ***'
            Return obj
        Catch ex As Exception
            MsgBox("ERROR:" & Err.Description)
            Return Nothing '*** Return Nothing ***'
        End Try
    End Function

    Public Function TransStart()
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        Trans = objConn.BeginTransaction(IsolationLevel.ReadCommitted)
    End Function

    Public Function TransExecute(ByVal strSQL As String) As Boolean
        objCmd = New MySqlCommand()
        With objCmd
            .Connection = objConn
            .Transaction = Trans
            .CommandType = CommandType.Text
            .CommandText = strSQL
        End With
        objCmd.ExecuteNonQuery()
    End Function

    Public Function TransRollBack()
        Trans.Rollback()
    End Function

    Public Function TransCommit()
        Trans.Commit()
    End Function

    Public Sub Close()
        Try
            objConn.Close()
            objConn = Nothing
        Catch ex As Exception
           
        End Try
       
    End Sub

End Class





Realizo consultas normales, para cortes de caja, reportes, ventas etc.  Durante horas puede trabajar bien, pero despues de un tiempo la aplicacion se traba y no da mas.

Cuando inicio la aplicacion declaro una instancia de  la clase :

Código (vbnet) [Seleccionar] Expandir

Public con as new clsDatabase
Y utilizo esa instancia en todos los formularios, no creo que se trabe porque se llega al full de pools, o conexiones a mysql, puesto que mantengo solo una conexión desde el inicio.
A menos que la clase esté haciendo un mal manejo de las conexiones con mysql?

Les agradezco de antemano cualquier tip, aportación o sugerencia para solucionar el problema.

Gracias 

[/size]

Hola salu2 a todos

Estoy buscando la forma de comparar dos valores en memoria dinamica.
Hasta ahorita no he encontrado alguna opcion, alguien que me pueda echar un cable?

Gracias.

Hola veran, tengo unas camaras de seguridad configuradas para verlas por internet.
Use una cuenta gratis en DYNDNS para ello y todo bien.
El problema es que a cado rato se cae el subdominio asignado a mis camaras.
A cada rato tengo que reconfigurar un dominio del estilo: http://miscamaras.dyndns.org

Estoy pensando, tengo tambien un sitio web.... Cómo puedo agregar un subdominio a mi website para poder ver las camaras?

Lo que quiero lograr es, mi sitio es www.miweb.com, y crear un subdominio para mis camaras, ejemplo: www.miscamaras.miweb.com.

Alguien que me eche un cable?

Gracias.

Salu2

Estoy instalando todo lo necesario para desarrollar una aplicacion para wince 5.0.
Dentro de lo que he investigado ya tengo instalado el:

*Visual Studio 2008
*Sql Server CE 3.5
*ActiveSync 4.5
* Sql Managment Studio xpress 2005

Mi problema es que cuando abro el sql managment para crear la base de datos no hay ningun servidor sql disponible. Debo instalar aparte del  Sql Server CE 3.5, el sql server express que trae el instalador de Visual Studio, o algun sql en especial?

Espero puedan echarme un cable, saludos.

Seguimos investigando 

Hola salu2

Nuevamente por aqui. 

Verán hice un sistemita y estoy creando un formulario de configuracion inicial, en el cual el usuario pueda especificar los datos de conexion (servidor, usuario, password, database, puerto..). Con todo eso se genera un archivo .ini de configuracion.

Una vez eso, ejecuto una funcion que de forma automatica restaura/importa a mysql la base de datos, y es la siguiente:

Código (vbnet) [Seleccionar] Expandir


Public Sub Restaurar_DataBase()
        Try
            'Read file from C:\
            Dim path As String
            path = Application.StartupPath & "/BaseDatos.sql"
            Dim file As New StreamReader(path)
            Dim input As String = file.ReadToEnd()
            file.Close()


            Dim psi As New ProcessStartInfo()
            psi.FileName = "C:\xampp\mysql\bin\mysql.exe"
            psi.RedirectStandardInput = True
            psi.RedirectStandardOutput = False
            psi.Arguments = String.Format("-u{0} -p{1} -h{2} {3}", iUser, iPassword, iServer, iBaseDatos, "new_database")
            psi.UseShellExecute = False


            Dim process__1 As Process = Process.Start(psi)
            process__1.StandardInput.WriteLine(input)
            process__1.StandardInput.Close()
            process__1.WaitForExit()
            process__1.Close()
            MsgBox("RESTAURACION CON EXITO!", MsgBoxStyle.Information)
        Catch ex As IOException
            MessageBox.Show("Error , Imposible Restraurar!")
        End Try
    End Sub


Esa funcion trabaja perfecto, PERO el detalles es que la funcion requiere 5 parametros ( iUser, iPassword, iServer, iBaseDatos, "new_database") de los cuales en ese momento de proceso aún NO tengo(iBaseDatos) porque apenas voy a crearla en el servidor.

La idea es conectarme al mysql usando( iUser, iPassword, iServer, mysql, "new_database"), es decir usar una de las bases de datos que instala por default el mysql para asi poder hacer el login y restaurar / crear mi base de datos.

Espero haberme explicado, todo es con la intencion de automatizar la instalacion de la base de datos y el usuario no lo haga manualmente.

Gracias por sus ideas, estamos por aqui intentando.

Saludos.

Hola salu2

Estoy intentando cambiar la contraseña de usuario root de mysql con el siguiente codigo:

Código (vbnet) [Seleccionar] Expandir


Process.Start("C:\xampp\mysql\bin\mysql.exe", "--host=localhost --user=root --password=***  SET PASSWORD FOR 'root'@'localhost'= PASSWORD('nuevopass')")


Pero no realiza el cambio de contraseña. Alguna sugerencia del por qué no funciona?


Haciendola de ésta otra forma si funciona, pero necesito lograrlo con la primera opcion.

Código (vbnet) [Seleccionar] Expandir


Public Function reset_password_mysql(ByVal clave As String) As Boolean
        Try
            cmd = New MySqlCommand
        conectarMySQL()
        cmd.Connection = dbCon
            cmd.CommandText = "update mysql.user set password=PASSWORD('" & clave & "') where User='root';"
        cmd.ExecuteNonQuery()
        cierraMySQL()
        MsgBox("CAMBIO CORRECTO!", MsgBoxStyle.Information)
            Return True
        Catch ex As Exception
            Return False
            MsgBox("EXCEPCION AL CAMBIAR CONTRASEÑA ROOT MYSQL:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "AVISO")
        End Try

    End Function


Espero puedan echarme un cable, gracias.

Hola salu2
Estoy tratando de hacer respaldos de mi base de datos mysql, la idea es hacerlo de forma que el usuario no vea el proceso o ventana del mysqldump.
Este es el codigo que tengo, hasta donde entiendo deberia de correr el proceso con la ventana oculta, pero no lo hace. Cual sera el problema?

Código (vbnet) [Seleccionar] Expandir


Dim ProcessProperties As New ProcessStartInfo
ProcessProperties.FileName = "mysqldump"
ProcessProperties.Arguments = ruta_mysql
ProcessProperties.WindowStyle = ProcessWindowStyle.Hidden
Dim myProcess As Process = Process.Start(ruta_mysql, "--user=" & iUser & " --password=" & iPassword & " --host=" & iServer & " --databases " & iBaseDatos & " -r " & ruta)




Alguien que me pueda echar un cable?
Gracias..

Salu2

Descargué el server2go, y en la documentación leí que el usuario es root, y la contraseña está en blanco. Intengo hacer login en el phpmyadmin pa crear una base de datos pero no puede entrar.
Tengo la sensación de que me falta configurar algo, tal vez que se autentifique por http o tcp, algo relacionado.

Alguien que me heche un cable?

Gracias...

Salu2

He terminado un sistemita en vb.net + mysql, ahora me gustaria incluir mysql en el instalador de mi aplicacion.
Por ejemplo, instalar el sistema y que éste se encargue de mandar al mysql la base de datos.sql que lleva.

Cómo puedo lograrlo?

El otro problema es que necesito incluir el paquete de mysql en mi instalador y que éste instale mysql, importe la base de datos para que simplemente se de doble click al sistemita y se empiece a trabajar.

Estoy intentando con createinstall free, pero aun no tengo muchos avances..

Espero puedan echarme un cable.

Estamos por aqui investigado.

Saludos...

Salu2

Tengo un problemita:
Estoy imprimiendo un ticket de venta y no logro alinear los encabezados con el detalle de la venta. Ejemplo de lo que pretendo lograr:

Código (vbnet) [Seleccionar] Expandir




DESCRIPCION---------------------------IMPORTE
Agua Ciel 375 ML                       5.50
Cereal Fitness                        27.90


'Cabe destacar que estoy imprimiendo haciendo uso de PrintDocument.
'Utilizo e.GRaphics.DrawString.

dim LenDetalle as integer
dim espacios as integer=35 'maximos caracteres a imprimir de la descripcion del articulo
LenDetalle =Len(rec("descripcion"))  'sacamos los caracteres de la descripcion
espacios=espacios - LenDetalle  'restamos maximo carateres a  imprimir - caracteres de la descripcion


'Ahora para imprimir pongo lo siguiente:
e.GRaphics.DrawString(rec("detalle") & espacios & rec("importe"))



'Asi me imprime algo similar a esto:

DESCRIPCION---------------------------IMPORTE
Agua Ciel 375 ML                       5.50
Cereal Fitness                     27.90



Al parecer al concatenar los espacios siempre son mas pequeños que un caracter, por eso nunca se alinea.

No diseñe el ticket en crystal reports ya que no lo tengo.

Alguien que me pueda hecha un cable?

Saludos y estamos por aqui tratando.

Salu2 a to2.

Veran estoy creando un sistemita y requiero de un teclado virtual, el cual ya programe, pero el problema es cuando quiero utilizarlo, ejemplo:

En el login form tengo 3 controles:
TextBox -  txtUser
TextBox - txtPass
TextBox - btnValidar

El boton abre el teclado virtual, y ahi en otro TextBox voy escribiendo, ahora quiero pasar eso que escribi al txtPass que es la contraseña del usuario y entrar.
Pasarlo del teclado a un form no es problema, el problema es que son muchos formularios, entonces quiero agilizar eso.

Se me ocurrió que al abrir el teclado busque el formulario predecesor o el formulario que mando ejecutar el Teclado, luego sabiendo el formulario predecesor ya puedo saber a que form y  control pasar el texto.

Alguien sabe cómo sacar el formulario que precede a otro, es decir;  tengo 3 formularios A,B y C, donde C ya esta abierto, cómo puede saber C si fue A o B quien lo mando ejecutar?

Gracias por sus ideas.

Estamos por aqui indagando  .

[TABLA PEDIDOS]

Hola salu2

Estoy haciendo un sistemita para la panaderia de mi  viejo y estoy atorado en una consulta que para mi resulta compleja. Les pongo las tablas que utilizo para generar la consulta:

TABLA PEDIDOS


TABLA INGREDIENTES


TABLA PANADEROS


TABLA PRODUCTOS



Esas son las tablas de donde necesito generar la consulta. Ahora les pongo una imagen con un resultado similar al que estoy tratando de llegar.
[/b]



Hasta ahorita he lo grado lo siguiente:




Alguien que pueda echarme un cable para lograr la consulta.
Gracias y estaremos por aqui intentando..

Que tal salu2

Verán, desarrollé un sistemita de ventas que se va implementar en 6 sucursales. La base de datos esta en mysql.
Ya esta terminado el sistema, el gran problema está en que monté la base de datos en un hosting de pago que tengo, pero el sistema trabaja muuuy lento.

He pensado en configurar la maquina de una de las 6 sucursales como servidor y ahi montar la base de datos, todo con la fnalidad de ganar velocidad y el sistema trabaje más rápido.

Alguien puede echarme un cable para lograrlo o decirme qué otras alternativas existen para lograr mayor velocidad?

Espero sus tips.

Saludos...

Hola salu2

Estoy trartando de generar una funcion que le asigne a todos los formularios de mi aplicacion el mismo icono. La idea es algo como esto:

Código (vbnet) [Seleccionar] Expandir


For Each f In Application.forms
                f.Icon = New System.Drawing.Icon("ruta")
            Next


Solo que Application.forms no exixte, solo OpenForms.
Alguien sabe cómo recorrer los formularios y setear el mismo icon?

Gracias...

[Space]

Salu2

Verán desarrollé un sistemita de ventas, el cual ya trabaja un 90% estable.
Lo único que me falta es el ticket, el cual aún no logro organizar y centrar los contenidos en el papel.

La forma con al que imprimo es usando un ejemplo como el siguiente:

Código (vb) [Seleccionar] Expandir


Dim rc As New Recordset
           Set rc = Conexion.Execute("consulta sql")
               
               If rc.EOF = False Then
               Printer.Print Space(7) & "NOMBRE DE LA TIENDA"
               Printer.Print "Direccion Tienda"
               Printer.Print "Telefono Tienda"
               Printer.Print "----------------------------------------------"
               Printer.Print "Detalles de la compra"
               Printer.Print ""
               
               Printer.Print "TOTALES...."
                   Printer.Print Space(30) & "     Total:" & Space(2) & Me.txtTotal.Text '  rc!total
                   Printer.Print Space(30) & " Efectivo:" & Space(2) & Format(Me.txtEfectivo.Text, "$##0.00")
                   Printer.Print Space(30) & "   Cambio:" & Space(2) & Me.txtCambio.Text
                   Printer.Print Space(30) & "Artículos:" & Space(2) & Me.txtArticulos.Text
                   
           Printer.Print "PIE DEL TICKET"
           
           printer.EndDoc
           End If
           Set rc = Nothing






Como pueden ver utilizo Space para dar algunos espacios, pero no sirve para centrar cuando un codigo o texto es de longitud muy grande.
En lo que he investigado sugieren el uso de CurrentY y CurrentX,  pero no encuentro ejemplos claros.

Alguien ha diseñado un ticket de venta que pueda echarme un cable?
Gracias y estamos por aqui investigando..

Salu2

Tengo una tabla con promociones:
ID -  DESCRIPCION -   INICIA -     TERMINA
1      3 x 2 Cereales   19/04/2011   25/04/2011
2      4 X 3 Pastas       20/04/2011  30/04/2011

Código (vb) [Seleccionar] Expandir


Dim recset As New Recordset
    Set recset = Conexion.Execute("SELECT descripcion from promos where termina >='" & Date & "'")
       
            If recset.EOF = False Then
                   
                    While Not recset.EOF
                            'mostrar promocion #1
                            'esperar 1 minuto
                            'mostrar promocion # 2
                            'esperar 1 minuto
                            '...
                            recset.MoveNext
                    Loop
            End If
           
    Set recset = Nothing


La idea es mostrar la promoción #1, esperar un tiempo razonable mientras se lee la descripción, luego mostrar la siguiente promoción, esperar y asi sucesivamente.

He pensado tal vez se pueda hacer con

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


O  posiblemente exista una forma mas eficiente.

Espero puedan ayudarme  con algunos tips.

Gracias, seguiremos por aqui intentando.

Hola salu2!

Estoy realizando una aplicacion que realiza cobros cada primero de mes.
Lo que necesito es que mi aplicacion se ejecute todos los dias una sola vez.
Lo que ahorita se me ocurre es usar un batch, pero tal vez haya mejores alternativas.

Espero alguien pueda compartir sus ideas.

Gracias.

Estamos por aqui investigando e intentando...

Hola salu2.

Tengo una  tabla con los siguientes campos:
Donde Maximo y Minimo almacenan Kilogramos. Las demas columnas son costos.


MINIMO - MAXIMO - CONOMICO - PLUS - EXCELENCIA
0                2000        50               60           100
2000           8000        70               150         200
8000           27000      90               200         250
27000          64000      120             300         350



Lo que necesito es por ejemplo:  sacar el costo economico cuando el peso de un paquete es de 1000 kgrs, ahi manualmente seria 50, ya que el peso de 1000 kgrs esta entre 0y 2000, que es la primera fila.

Ahora quiero sacar el costo EXCELENCIA cuando el peso del paquete es de 15000 kgrs, nuevamente de forma manual sabes que el costo seria 250, ya que el peso de 15000 kgrs esta entre 8000 y 27000 que vemos en la tercera fila.

Alguien que pueda echarme un cable para sacar esto con programacion, hasta ahorita no se me ocurre una forma de lograrlo 

Podria ser con un between, pero no imagino la forma.
Estaremos por aqui echandole coco 

Hola a to2!

Veran estoy tratando de sacar el tipo de cambio de una pagina, se llama:
www.baxico.org.mx. Ahi manejan un iFrame el cual es el siguiente:

Código (html4strict) [Seleccionar] Expandir


<iframe frameborder="0" id="PTC" style="width: 582px; height: 454px;" src="http://www.banxico.org.mx/tipcamb/llenarTiposCambioAction.do?idioma=sp" scrolling="no"></iframe>


Este iFrame muestra el tipo de cambio, y necesito copiar el valor a mi base de datos.
Alguien tiene una idea?

Tengo este script de javascript, pero no entiendo cómo podria utilizarlo para sacar el valor de la info que devuelve el iFrame.

Código (javascript) [Seleccionar] Expandir


<script language ="javascript" type ="text/javascript">
function $(id){return document.getElementById(id);}
var guardar;
function buscar(p){
var ifr=$('ifra').contentDocument || $('ifra').contentWindow.document;
ifr.body.innerHTML=guardar;
var c=ifr.body.innerHTML;
var ini=c.indexOf(p);
var b=c.substring(0,ini);
var d=c.substr(ini+p.length);
ifr.body.innerHTML=b+'<span id="'+p+'" style="background-color: #CCC; color:#F00">'+p+'</span>'+d;
var offsetTrail = ifr.getElementById(p);
var offsetLeft = 0;
var offsetTop = 0;
while (offsetTrail) {
offsetLeft += offsetTrail.offsetLeft;
offsetTop += offsetTrail.offsetTop;
offsetTrail = offsetTrail.offsetParent;
}
if (navigator.userAgent.indexOf("Mac") != -1 && typeof ifr.body.leftMargin != "undefined" && navigator.appName=="Microsoft Internet Explorer" ) {
offsetLeft += parseInt(ifr.body.leftMargin);
offsetTop += parseInt(ifr.body.topMargin);
}
window.frames['ifra'].scrollTo(offsetLeft,offsetTop);
}

</script>


Alguien que me heche un cable por favor. Gracias
Estamos por aqui investigando. 

Que tal salu2!

Les comento la situacion:

Tengo una aplicacion que corre varios procesos, está ubicada en un servidor A.
Necesito tener esa misma aplicacion en un servidor B, para cuando A tenga un fallo(se fue la luz, se reinicie, se apague o por alguna razon se cierre la aplicacion. etc) entre B en accion. De igual manera cuando falle B entre en accion A.

Estoy pensando en usar sockets, como una alternativa o bien alguna mejor opcion que puedan sugerir. Tambien se me ocurre que una segunda aplicacion verifique si se cerró el proceso en el server A, lo ejecute en B o reinicie A.

Les agradezco sus ideas y/o aportaciones.

Estaremos por aqui investigando.

Que tal salu2 y feliz dia!

Veran, tengo una conexion a mysql que es la siguiente:

Código (vbnet) [Seleccionar] Expandir


Public Sub ConexionMySQL()
        Try

            If CellDBCon.State = ConnectionState.Closed Then

                CellDBCon.ConnectionString = "Server=" & Trim(pStrServer) & "; port=" & Trim(pStrPort) & "; Uid=" & Trim(pStrUser) & "; Pwd=" & Trim(pStrPW) & "; database=" & Trim(pStrDB) & ";"
                CellDBCon.Open()

            End If
        Catch ex As Exception

        End Try

        MsgBox("Error al establecer la conmexion con el Servidor de Base de Datos" & vbCrLf & Err.Description)
    End Sub


La cual utiizo de la siguiente manera, como ejemplo:

Código (vbnet) [Seleccionar] Expandir


Dim item As ListViewItem
        Dim cmd As New MySqlCommand
        Dim reader As MySqlDataReader

        CerrarConexion()
        ConexionMySQL()
        Try
            cmd.Connection = CellDBCon
            cmd.CommandText = "SELECT * from horarios"
            reader = cmd.ExecuteReader
            lstLista.Items.Clear()
            While reader.Read

                item = lstLista.Items.Add(reader(0).ToString)
                item.SubItems.Add(reader(1).ToString)
               

            End While
        Catch ex As MySqlException
            MsgBox("Error: " & ex.Message & vbNewLine, MsgBoxStyle.Exclamation)
        End Try
        CerrarConexion()



Cada vez que lleno un combo, listview etx, tengo que abrir y cerrar la conexion.
De otra manera e intentado abrir la conexion en el load de los formularios para mantenerla siempre abierta, pero en ocasiones da un error de que ya hay una instancia de la conexion abierta.

Alguien que me pueda echar un cable de cómo puedo mantener la conexion siempre abierta sin tener que estar abriendo y cerrandola?

La idea es abrirla en los loads de los forms, o en unaa funcion main y cerrarla unicamente al cerrar la aplicacion.( cosa que hacia en el vb6  )

Gracias y estarémos por aqui investigando alternativas.

Saludos!

Veran, estoy tratando de crear reportes con crystal reports y mysql, obviamente en vb.net.
Los ejemplos que he encontrado, algunos indican crear un xml, luego pasar el  archivo al reporte, otros mediante el conector odbc mysql, y otros con un dataadapter.
Se me ha complicado un poco lograr el reporte.

Alguien ha hecho alguno realizando una consulta a mysql y enviando los datos devueltos a un reporte.rpt?

Agradezco enormemente sus ideas y/o ejemplos a quien pueda facilitarme alguno.

Como informacion estoy usando visual basic 2010 y mysql.

Gracias y estaremos por aqui investigando.

Hola salu2!

Tengo la siguiente instruccion que necesito realizar en vb.net:

Select * into outfile 'c:/datos.txt'

Como podria guardar el resultado de la consulta en un archivo?

['Sintaxis incorrecta cerca de 'c:\salitasql.txt\'.]

Que tal de nuevo por aqui 

Estoy tratando de realizar una consulta en el SQL Server Management Studio como lo muestro a continucacion:

<forma 1>
SELECT * INTO OUTFILE 'c:\volcadosql.txt\' from equipos

<forma 2>
SELECT * INTO outfile 'c:\volcadosql.txt\';
FIELDS TERMINATED BY '\t' LINES TERMINATED BY '\n'
FROM equipos


pero en ambos casos me dice:  'Sintaxis incorrecta cerca de 'c:\salitasql.txt\'.

Alguien sabe cómo puedo efectuar dicha consulta y guardarla en un archivo .doc, .xsl, .txt etc ?

Gracias

[Que tal salu2 y felices fiestas.]

Que tal salu2 y felices fiestas.

Veran, tengo un campo autonumerico, del cual quiero sacar el siguiente numero autonumerico. Uso la sentencia sql conocida:

Select max(campo) + 1 from tabla

Esa forma me funciona siempre y cuando no se borren datos de esa tabla, ya que se altera.
Ejemplo, tengo en la tabla dos filas, la primera con el autoincrement 1 y la segunda con el 2, si borro la segunda y quiero sacar el maximo, me daria 2, pero en realidad es el 3
Saben como sacar el 3?

El select max no me funciona 

Hola salu2.

Necesito crear un sistema para la venta de boletos para una empresa que realiza viajes a distintos destinos. Tienen en 4 estados diferentes autbuses, y hay salidas diarias de un punto a otro constantemente.

Alguien conoce alguno que haya visto por internet, no importa que sea un demo, me interesa para analizarlo y ver qué conceptos maneja, deducir un bosquejo de la base de datos, etc.
Me interesa solo como referencia para crear mi propio sistema.

He buscado en internet pero he logrado nulos resultados.

Gracias y estaré por aqui buscando.

Código (vbnet) [Seleccionar] Expandir


Sub DownloadFile(ByVal virtualPath As String)
        ' retrieve the physical path of the file to download, and create
        ' a FileInfo object to read its properties
        Dim FilePath As String = Server.MapPath(virtualPath)
        Dim TargetFile As New System.IO.FileInfo(FilePath)

        ' clear the current output content from the buffer
        Response.Clear()
        ' add the header that specifies the default filename for the Download/
        ' SaveAs dialog
        Response.AddHeader("Content-Disposition", "attachment; filename=" + _
         TargetFile.Name)
        ' add the header that specifies the file size, so that the browser
        ' can show the download progress
        Response.AddHeader("Content-Length", TargetFile.Length.ToString())
        ' specify that the response is a stream that cannot be read by the
        ' client and must be downloaded
        Response.ContentType = "application/octet-stream"
        ' send the file stream to the client
        Response.WriteFile(TargetFile.FullName)
        ' stop the execution of this page
        Response.End()
    End Sub

+---------------------------------------------------------------+
Lo que quiero lograr es que usuarios de mi sitio asp.net, puedan descargar archivos, pero hasta ahorita, ese codigo
funciona del lado del servidor, cuando publico el sitio y lo intento, se descarga el archivo pero con contenido
del front de la pagina donde hago click para descargar, o bien con caracteres raros.

Alguien sabe a que se debe que no me funcione del lado del cliente?

Gracias por sus comentarios.


Hola salu2!

He estado investigando y picandole al vb.net para lograr un tipo de fichas /tabs en un formulario normal o Mdi, asi como muestra l siguiente imagen_:



Pero no he logrado hacerlo.
Si alguien sabe la forma, le agradeceria que le comparta.

Gracias, estamos por aqui.

Hola salu2 

Saben, estoy utilizando esta aplicacion para graficar el trafico de una red.
La configure para que cada cierto intervalo me guarde un respaldo de los datos graficados.
El problema es que los guarda en archivos con extension .dat  y cifrados.

Necesito extraer y leer esa informacion para general otras graficas y reportes para los usuarios.

Alguien sabe cómo leer esos datos, abrir los archivos o descifrar la informacion?

Gracias por sus aportaciones y estamos por aqui investigando.

Hola salu2!

Estoy iniciando el desarrollo de un Sistema ERP, el cual manejerá millones de registros. Para ello, quiero elegir el gestor que de mejor rendimiento en cuanto a velocidad y soporte de tantos registros.

He estado analizando el sql server, mysql y el firebird. Donde segun eso, es mejor el firebird que los otros dos. La cosa es que no tengo conocimientos en firebird solo en los otros 2.

Segun su experiencia, cuál me recomiendan utilizar?

Si firebird es el mas adecuado, no importa, me daré a la tarea de estudiarlo para utilizarlo.

Gracias y estamos por aqui. 

Hola que tal Salu2!.

Estoy desarrollando un sistema de registros, estilo "Reloj Checador".
Para ello normalmente se utiliza un lector de huella dactilar y un sdk.

Mi problema es que no dispongo de ello(lector y sdk).

A lo que he estado pensando en nuevas alternativas, una es utilizar una tarjeta/gaffete con su codigo de barras, un sistema de reconocimiento de voz,

Me gustaria que compartieran sus experiencias y me regalen algunas alternativas mas para esto.

Gracias y estamos por aqui investigando.

Hola saludos.

Pues si, he usado el winlicense para proteger mis aplicaciones hechas con vb6 y todo funciona a la perfeccion, pero desfortunadamente cuando creo un Demo de mis sistemas hechos en vb.Net, me tira los siguientes mensajes al abrir el ejecutable:

a). No se puede / encuentra el punto de entrada
b). El archivo esta corrupto / inservible

Pienso que va por el tema de las opciones de protección, porque en el sitio oficial de winlicense afirman que soporta .Net

Si alguien sabe crear demos y puede compartirnos sus tips le agradecere enormemente.

Gracias. Luison 

Hola saludos.
Resulta que necesito desarrollar un sistema 'Reloj Checador', algo similar a http://www.taringa.net/posts/downloads/2127075/TimeWork-Reloj-Checador.html.

pero he visto que se necesita un SDK para que se interpreten las huellas dactiliares.
Por favor si alguien conoce de alguna que pueda compartirla le agradeceré enormemente, de igual forma alternativas que pueda sugerirme.

Gracias y estamos por aqui buscando opciones.

Luison 

Hola a to2.

Integré el ajax chat a mi sitio, pero los usuarios los maneja en un archivo users.php

Código (php) [Seleccionar] Expandir


<?php


// List containing the registered chat users:
$users = array();

// Default guest user (don't delete this one):
$users[0] = array();
$users[0]['userRole'] = AJAX_CHAT_GUEST;
$users[0]['userName'] = null;
$users[0]['password'] = null;
$users[0]['channels'] = array(0);

// Sample admin user:
$users[1] = array();
$users[1]['userRole'] = AJAX_CHAT_ADMIN;
$users[1]['userName'] = 'admin';
$users[1]['password'] = 'admin';
$users[1]['channels'] = array(0,1);

// Sample moderator user:
$users[2] = array();
$users[2]['userRole'] = AJAX_CHAT_MODERATOR;
$users[2]['userName'] = 'moderator';
$users[2]['password'] = 'moderator';
$users[2]['channels'] = array(0,1);

// Sample registered user:
$users[3] = array();
$users[3]['userRole'] = AJAX_CHAT_USER;
$users[3]['userName'] = 'user';
$users[3]['password'] = 'user';
$users[3]['channels'] = array(0,1);
?>


Necesito llenar ese array de una tabla usuarios desde la base de datos, porque manejo miles de usuarios, y declararlos todos en el archivo users.php me parece tedioso y poco dinamico.

Tabla Usuarios:
--------------------------
id_usuario user_Role UserName Password Channels

Alguien que me pueda echar un cable?

[Hola un saludo a to2 !]

Hola  un  saludo a to2 ! 

Tengo una  duda, alquien puede compartirme sus ideas de cómo imprimir la zona que desee de una imagen?

Lo que necesito es hacer un preview de la imagen, e imprimir por ejemplo la mitad de la imagen, la parte superior o seleccionar una zona especifica y mandarla a la impresora.

Francamente es la primera vez que me cruzo con esto.

Estoy buscando con el señor google, gracias.

Para vb6 ó vb.net cualquier lenguaje se aceptan tips.

Atte: Luison   

Hola saludos ¡

Estoy usando jqtransform para darle estilo a mis formularios, ademas 2 archivos de ajax.js. El problema es que todo funciona a la perfeccion, pero haciendo uso de jqtransform no hace nada el boton del submit cuando le doy click, si le quito el la referencia del jqtransform  ya funca.

¿Alguien sabe a qué se debe? 

Gracias.

Hola gente. Tengo el siguiente code:

Código [Seleccionar] Expandir



//funciona suma subtotales
function sumatoria(){
r1 = document.getElementById('resultado').innerHTML;
r2 = document.getElementById('resultado2').innerHTML;
r3 = document.getElementById('resultado3').innerHTML;
r4 = document.getElementById('resultado4').innerHTML;
r5 = document.getElementById('resultado5').innerHTML;



//convertimos el string a flotante;
n1 = parseInt(r1);
n2 = parseInt(r2);
n3 = parseInt(r3);
n4 = parseInt(r4);
n5 = parseInt(r5);



res=(n1 + n2 + n3 + n4 + n5);

//contenedor de  la sumatoria
divResultado = document.getElementById('total');


//asignamos el resultado de la suma
divResultado.innerHTML=res;


}


Ahi no me suma todos los valores,cosa que necesito lograr,  solo suma el primero.
Alguien ha sumado los textos o captions de una etiqueta o DIV ?
Gracias por sus sugerencias. 

Nota: si hago un alert(res);

antes de

divResultado.innerHTML=res;

si coloca la suma con el resultado correcto, ¿a qué se deberá?

Hola un saludo a todos¡

Alguien sabe cómo enviar un formulario sin resetear los valores que hay en el?
Estoy haciendo un cotizador de precios en php, usando ajax, pero manejor varios combos y no logro controlar los 10 combos anidados que manejo.
Ejemplo de lo que deseo lograr: http://www.telecable.net.mx/cotizador.aspx

Gracias, estamos por aqui intentando.   

Hola saludo a todos¡

Hace un tiempo realice un sistema en  vb.net, en el cual utilice la libreria para impresion de tickets que se encuentra aqui http://foros.hackerss.com/lofiversion/index.php/t2092.html.

Ahora he tratado de utilizarla en vb6, ya la registre, la agregué en las referencias del proyecto, pero al momento de crear instancias de la clase, no encuentra un punto de entrada.

¿Alguien sabe por qué? o bien, si alguien tiene un método de impresión de tickets le agradecería si lo comparte  

Gracias. Luison

['AutoWidthColumn']

Hola saludos¡

Para los que han usado el S-Grid  aun no encuentro la forma de aisgnarle un width a las columnas, hasta ahora he venido utilizando la propiedad  'AutoWidthColumn', pero esto solo pone el width de acuerdo al contenido devuelto en el recordset para cada celda. El detalle es que a veces el nombre del encabezado no es legible cuado el contenido de la celda es pequeño, ejemplo:

Codigo de Barras    Descripcion
        1                     Ego de Brut

Ahi el AutowidthColumn del codigo de barras es 1, y no es legible el encabezado.

Será que no se puede asignar una ancho de columna como en el Listview estandar del vb o no logro encontrarlo?   

Espero me haya explicado, enseguida viene el code que estoy manejando:

Código (vb) [Seleccionar] Expandir


Public Function LoadServicios()
    On Error GoTo Error_Handler
   
    ' -----------------------------------------------
    ' -- Crear nuevo recordset
       Dim rs As New Recordset
    ' -- Cargar la tabla
    ' -----------------------------------------------
       
        Set rs = Conexion.Execute("Una consulta cualquiera'")
               
       If rs.EOF = False Then
        Dim iCol   As Integer
        ' -- Setear Grid
        ' -------------------------------------------
        With vbGrid
        .Clear True
            '.ImageList = vbalImageList2
             .GridLines = True                       ' -- Mostrar Lineas divisorias
             .RowMode = True                         ' -- Seleccionar fila completa
             .HotTrack = False
            ' -- Deshabilitar Redraw para agilizar la carga
              '.AlternateRowBackColor = vbButtonFace
             .Redraw = False
            DoEvents
           
            ' -- Agregar columna para el icono del producto ( Hacerla fija -- Valor FixedWidth)
            ' ----------------------------------------
            '.AddColumn "icono", "", , , 34, , True
           
            ' -- Agregar columnas al Grid - Caption, la clave
            ' ----------------------------------------
            For iCol = 0 To rs.Fields.Count - 1
                 Call .AddColumn(rs(iCol).Name, rs(iCol).Name)
                 '.ColumnWidth = 50
                 
               
            Next
           
            ' -- Recorrer el rs
            ' -----------------------------------------
           Do While Not rs.EOF
                ' -- Nueva fila
                .AddRow
                ' -- Cargar la primer celda -- El icono
                'Call .CellDetails(.Rows, .ColumnIndex("icono"), , DT_CENTER, 0)
                ' -- recorrer las demás celdas
                For iCol = 1 To .Columns
                    ' -- Comprobar que el dato no sea un Null
                    If Not IsNull(rs(iCol - 1)) Then
                        ' -- Agregar el dato
                        Call .CellDetails(.Rows, .ColumnIndex(rs(iCol - 1).Name), rs(iCol - 1))
                        .AutoWidthColumn (iCol)
                    End If
                Next
                ' -- Alto de filas = al del icono + 4 pixeles
                ' .DefaultRowHeight = 4 'vbalImageList2.IconSizeX + 4
                ' -- Siguiente registro
                rs.MoveNext
            Loop
            ' -- Importante !! Habilitar nuevamente el Redraw
            ' --------------------------------------------
            .Redraw = True
             DoEvents
        End With
        'consulta = ""
       
        Else
            'msj "¡ NO SE ENCONTRO INFORMACION !"
            'txtDato.Text = "": txtDato.SetFocus
            Exit Function
        End If
        ' -- Cerrar
        rs.Close
        Set rs = Nothing
        ' -- Errores
        Exit Function
Error_Handler:
        MsgBox Err.Description, vbCritical, "Error al Cargar Servicios"
End Function



[Crack]

Hola salu2 ¡

Por aqui compartiendo una suite de componentes muy pero muy interesantes. Algunos funcionan con vb6 y con vb.Net todos son compatibles.

Seguro que la mayoria los conocen, pero serán de utilidad para algunos desarrolladores del foro.

En la siguiente direccion pueden ver los detalles y los servidores para descargar el paquete.
http://www.intercambiosvirtuales.org/software/xceed-ultimate-suite-v20072

Por aca la version 2009
http://download3.xceedsoft.com/Packages/3.2.8577.11540/XceedComponents.exe?d=XceedComponents_www.namln.com.exe

Crack
Mod edit : Crack no permitido.

Disfrutenlos¡
---> Luison  

Hola a todos, estoy buscando el "ActiveResize Control Profesional", obviamente full, si alguien lo tiene le agradecería si lo puede compartir. Gracias

De igual forma si tienen la version Lite full bienvenida.

Seguiré googleando a ver si lo encuentro   

Hola a todos¡   

Bueno, no se me habia presentado este problema o necesidad hasta hoy.
Resulta que tengo una consulta a la base de datos, la cual me arroja varios registros, los cuales envio a un datareport.
Y bien, el problema es que quiero aprovechar todo el ancho de la hoja, por lo que estoy tratando de ingeniar un doble columna en el reporte, en la primer columna imprimir como ejemplo: del 1 al registro 50 y en la segunda del 51 al 100.

Espero me puedan ayudar con algunas ideas y/o sugerencias. No importa que sean teóricas, yo me pongo a programarlas.

Gracias de antemano y en cuanto logre algo importante pongo el code.