elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Temas
Páginas: [1] 2 3 4 5
1  Programación / .NET (C#, VB.NET, ASP) / Aplicacion Movil Plugin para bb en: 13 Noviembre 2009, 22:34 pm
Hola muchachos:
Hace algun tiempo salio un plugin para desarrollar aplicaciones moviles para blackberry con vb.net, el asunto es que lo instalo pero cuando en el menu elijo SMartDevice -> Proyecto de SmartDevice -> plataforma de destino (aqui) no me sale nada relacionado con RIM o Blackberry, alguien sabe como utilizar este plugin??, soy nuevo en net y hay cosas que desconozco, gracias de antemano por vuestra ayuda.
2  Programación / Programación Visual Basic / DAO y SQL en: 4 Febrero 2009, 05:28 am
Buenas amigos espero puedan ayudarme.

Resulta que tengo un formulario con el cual intento filtrar ciertos registros, el asunto es que al intentar utilizar el LIKE con el comodin % para que a medida que escribo el criterio valla filtrando las conincidencias no me funciona y con ADO si funcion, tengo entendido que con dao es otro caracter de comodin o que se utiliza de otra forma. aqui les dejo lo que tengo. gracias por todo.


PD: lo que pretendo es que al buscar apellido GONZALES al escribir G o GO o GON etc, me vaya filtrando los registros que coincidan con lo que voy escribiendo.



Public Sub Filtrar()


On Error GoTo Hay_err_err

Dim Item As ListItem
Dim Campo, OrderByCampo, Orden As String

Form2.ListView1.ListItems.Clear

If Combo1.ListIndex = -1 Then
        Combo1.ListIndex = 0
    End If
    If Combo2.ListIndex = -1 Then
        Combo2.ListIndex = 0
    End If
    If Combo1.ListIndex = 0 Then
        Campo = "afiliado"
    ElseIf Combo1.ListIndex = 1 Then
        Campo = "Nombres"
    ElseIf Combo1.ListIndex = 2 Then
        Campo = "Apellidos"
    End If
   
    Select Case Combo2.ListIndex
        Case 0: OrderByCampo = "afiliado"
        Case 1: OrderByCampo = "Nombres"
        Case 2: OrderByCampo = "Apellidos"
        Case 3: OrderByCampo = "Fecha_afiliacion"
    End Select

    'If CmdOrdenar(0).Value Then Orden = "asc"
    'If CmdOrdenar(1).Value Then Orden = "desc"
   
Dbpath = App.Path & "\" & DirectorioBase & "\" & Db_A_Name
       
    strSQL = "SELECT * FROM tbl_afiliados Where " & _
                         Campo & " like '" & txtSearch & "'% order by " & OrderByCampo & " " & Orden
                       
       
        Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass)
       
        Set Rst = Db.OpenRecordset(strSQL)
       

   
   
    'Recorre todos los registro para añadirlos al ListView
         While Not Rst.EOF
       
          Set Item = Form2.ListView1.ListItems.Add(, , Rst!afiliado)
           Item.SubItems(1) = Rst!apellidos
           Item.SubItems(2) = Rst!nombres
           Item.SubItems(3) = Rst!empresa
           Item.SubItems(4) = Rst!linea
           
            Rst.MoveNext
       
        Wend
       
Hay_err_exit:
   
 Rst.Close
 Db.Close
 
 Set Rst = Nothing
 Set Db = Nothing
 
Hay_err_err:
   
 Select Case Err.Number
 
 Case 3024
 
            MsgBox "Es imposible encontrar la base de datos. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & App.Path & "\bases" & "  e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            Resume Hay_err_exit:
           
 Case 3078
            MsgBox "Es imposible encontrar la tabla: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la base de datos" & "Base_Actual.mdb" & "e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            Resume Hay_err_exit:

   End Select
End Sub
3  Programación / Programación Visual Basic / propiedad DocumentText en: 21 Noviembre 2008, 04:04 am
hola amigos.

Resulta que buscando alguna forma de obtener el contenido de un webbrowser para almacernar la info contenida en una db, o tambien para poder anexar con un boton parrafos a lo escrito dentro del control, encontre un ejemplo que me presenta el error "Se esperaba get, let o set". quisiera saber si alguien entiende como funciona y que por favor me explique donde esta el error, el codigo que consegui es el siguiente:

<BrowsableAttribute(False)> _
Public Property DocumentText As String

Dim instance As WebBrowser
Dim value As String

value = instance.DocumentText

instance.DocumentText = value

 segun MSDN Online es para vb6: http://msdn.microsoft.com/es-es/library/system.windows.forms.webbrowser.documenttext.aspx
4  Programación / Programación Visual Basic / contenido de un WebBrowser en: 8 Noviembre 2008, 20:03 pm
hola, nuevamente apelo a vuestra ayuda.

Mi duda es ,si es posible que el contenido de un control WebBrowser en vb6 lo pueda guardar en una base de datos mdb, se como utilizar los recordset, utilizo dao para almacenar registros y todo pero lo que no se es como almacenar el contenido de este control en una variable para luego almacenarla, o sea no tiene este control la propiedad WebBrowser.Text, gracias de antemano.
5  Programación / Programación Visual Basic / tabla en Richtext en: 8 Noviembre 2008, 18:40 pm
Hola compañeros.

Resulta que estoy preparando una aplicacion en vb6 que seria un editor de texto para llevar un libro de actas con algunas otras funciones, el unico invonveniente que estoy teniendo por ahora es el de porder insertar una tabla en este control que es donde redacto los documentos, miren, encontre este super menu en vb que permite desplegar el mismo dialogo que despliega word para dibujar una tabla, el problema es que justamente en este ejemplo no dice como insertarla, asi que si alguien sabe como insertat una tabla ya sea con este control o de otra forma, le agradecer que me presten su ayuda, mil gracias de antemano.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/494-super-menu.htm
6  Programación / Programación Visual Basic / foco en richtextbox en: 28 Octubre 2008, 18:20 pm
Hola amigos!

Tengo el siguiente inconveniente:
Resulta que arme un  pequeño editor de texto para un sistema que llevara un libro de actas electronico y utilizo algunas plantillas que arme, el problema es que para aplicarlas necesito que el foco del cursor se posicione en el ultimo caracter del texto existente en dicho control, es esto posible?, gracias.
7  Programación / Programación Visual Basic / Totales por dia en: 29 Julio 2008, 07:34 am
Buenas colegas!
 
Resulta que tengo una tabla con los campos:Fecha, Descripcion, Ingreso, Egreso
 
Ahora, por cada fecha puedo tener 1 o 10 o 30 o lo que sea de registros por que son movimientos de caja, lo que pretendo es que por cada fecha me sume el total de ingresos y egresos ej.
 
fecha descripcion ingreso egreso
1/1     ventas          10
1/1      movilidad                   15
2/1     ventas          30
2/1      movilidad                   40
etc...
 
en algun cotrol como el listview necesito visualizarlo asi
 
fecha ingreso egreso
1/1       10         15
2/1        30         40
 
el problema que tengo es que no se como hacer para extraer un fecha por cada registro y ahi sumarle los totales, no se si me explico pero gracias de antemano.
8  Programación / Programación Visual Basic / Mas de SQL en: 3 Junio 2008, 07:43 am
Buenas amigos, nuevamente!

La cosa es que ahora el problema que tengo es que me lanza un error al correr el codigo de conexion, veran, la base de datos esta en MySql 5.0 en PHPMYADMIN y estoy trabajando en con el ODBC MySql 3.51, esto puede influir? , por otro lado, dentro del PHPMYADMIN me dice "MySQL 5.0.54 ejecutándose en 10.0.5.196" 10.0.5.196, seria la ip del servidor? el error que me tira es [MySQL][ODBC 3.51 DRIVER] Can`t connect to Mysql server on '10.0.5.196' (10060)



El codigo para realizar la conexion es el siguiente:

Código:
Public myConex As New Connection

Public Sub main()
Dim Server As String
Dim Usuario As String
Dim Password As String

Server = "10.0.5.196" 'aca tu ervidor
Usuario = "i55157589" 'Aca tu usuario
Password = "ggywgrwi1uets4563ej" 'Aca tu password

'Creamos la conexion a MySQL


myConex.Open "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & Trim(Server) & ";" _
            & "PORT=3306;" _
            & "DATABASE=test;" _
            & "UID=" & Trim(Usuario) & ";" _
            & "PWD=" & Trim(Password) & ";" _
            & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
         
'Lo abrimos a modo cliente si le quitas esto no funcionara
myConex.CursorLocation = adUseClient

MsgBox UCase("Bienvenido al ajemplo de VB/mySQL/Store Procedure"), vbOKOnly + vbInformation, "Mensaje"
Form1.Show


End Sub

De antemano gracias nuevamente por su ayuda y por su tiempo
9  Programación / Programación Visual Basic / Conexion con SQL en: 3 Junio 2008, 05:06 am
Buenas colegas, aqui les traigo otra duda!

Resulta que tengo un pequeño foro, alojado en un servidor gratuito en IESPAÑA , en este tengo una base de datos echa en MyPHPAdmin y me interesaria poder conectar una aplicacion echa en vb6 con esta base de datos y poder visualizar los mensajes e incluso agregar nuevos registros, tengo todos los datos de ftp, usuario y clave no se si es necesario, seria esto posible, como la hago?, gracias nuevamente.
10  Programación / Programación Visual Basic / duda sobre winsock en: 2 Junio 2008, 00:43 am
Hola!
 
Tengo desde hace algun tiempo un aplicacion que envia correo electronico , obviamente en vb6, la cuestion que en mi caso, mi ISP a desidido cambiar la configuracion para el correo saliente (ARNET) y ahora el correo saliente requiere de autenticacion, mi pregunta es, existe alguna forma de loguearme con mi smtp con la libreria del control winsock?, desde ya muchas gracias.
Páginas: [1] 2 3 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines