Temas

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.

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

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

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.

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

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.

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.

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 [Seleccionar] Expandir

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

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.

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.

Buenas nuevamente colegas!

La cuestion en esta ocacion es que tengo una base de datos en access alojada en un servidor ftp que me proporciona mi isp, la cuestion es que necesito conectar mi aplicacion en vb6 con la base en es servidor, tengo todos los datos pero no se como hacerlo con DAO o ADO, gracias de antemano por su tiempo.

Buenas nuevamente colegas.

Esta ves tengo esta duda, es posible crear aplicaciones para telefonos moviles desde vb6?

Francamente lo de mobile no lo tengo muy claro, si es que no se puede en vb6, cual es el lenguaje apropiado para esto?

Gracias nuevamente.

Hola foreros:

Resulta que estoy armando un sistemita, en este quiero meterle algun codigo para que al ejecutarlo me envie por correo electronico la ip y alguna info mas, el problema es que los ejemplo que vi con winsock, tenes que saber cual es el proveedor de internet para especificar el smtp, por ejemplo smtp.arnet.com.ar, ahora como puedo hacer si no se que proveedor de internet tiene la victima, como hago para que envie el email.

Desde ya muchas gracias amigos....

Buenas compañeros, nuevamente traigo una inquietud.

La cuestion es que tengo una aplicacion con vario ocx y lo que pretendo es que cada ves que abro la aplicacion verifique si dichos ocx se encuentran registrados y si no lo estan que lo haga en seguido de esto, es eso posible??, de antemano gracias.

Buenas colegas!

Disculpen la simplicidad de mi pregunta pero, como cierro el proyecto o aplicacion con la cual estoy trabajando, no un form o form MDI la aplicacion completa desde codigo, pense que seria algo como app.quit o close pero no tiene esos metodos, gracias de antemano.

Buenas colegas!

He visto que aqui se toca mucho el tema de winsock control y me surge una duda que seria interesante resolver para un mini chat que estoy haciendo.Es posible forzar la apertura de una aplicacion X que se encuentra en un ordenador de mi red privada, desde mi ordenador ?, lo que pretendo con esto es que si el usuario no abre el minichat, el cliente ejecute la apertura de la aplicacion que a la ves es la ventana de chat, gracias de antemano.

Hola amigos!, buenas noches.

Tengo varios formularios en los que tengo un txt en comun, txtlegajo y tengo un formulario de consulta de empleados, cuando me posiciono en el txtlegajo de cualquier formulario y presiono F4 abro el formulario de consulta e inserto en un label invisible el nombre del form en el cual me encuentro, luego en el formulario de consulta tengo un listview con la columna Legajo y Apellidos, lo que intento es que al hacer doble click sobre el listview me inserte en el txtlegajo del formulario X o sea el que figura en el label el valor del item seleccionado en este caso el numero del legajo seria , no se si se entiende pero lo que trate es lo siguiente:

Private Sub ListView1_DblClick()
Dim Frm as Form

Frm=Me.lblforma.Caption

Frm.txtlegajo=Me.ListView1.SelectedItem.Text

End Sub

Pero no funciona, me dice "Uso no valido de la propiedad".

De antemano gracias por su ayuda.

Buenas foreros!

les explioco todo paso por paso, tengo una tabla en la cual hay tres campos:

Entra       Sale       Total
21:00       23:00     2:00
16:00       19:00     3:00
21:00       23:00     2:00
10:00      20:00      10:00
etc...


El campo Total es de tipo string, ahora mi problema es que en un datareport que esta enlazado a esta tabla ue contiene los totales string ,necesito sumar todos esos totales que puede ser 9:00, 10:00, 12:59 , 15:59, o sea 46:59, he insertar el total en un label al final del reporte, es esto posible?, desde ya muchas gracias.

Hola amigos!

La verdad busque en todo la web y de todas las maneras posible este control version 4.3, incluso en la misma microsoft pero no logro dar con el control, alguien sabria de donde es posible descargarlo si es que es free, gracias de antemano.

Buenas muchachos, esperon puedan ayudarme.

Tengo por un lado una funcion que me genera numeros de recibos:

Public Function NumeroRecibo()
'Funcion para generar los nuevos numeros de legajo
'Determinamos cual es la liuidacion actualmente activa

'Dlookup es una funcion personalizada tambien con el mismo fin
'que la de access.

Dim Vperiodo As Single
Vperiodo = Dlookup("liquidacion", "tbl_info", "liquidacion>" & 0, "")
On Error GoTo Hay_err_err
Dbpath = App.Path & "\bases\Base_actual.mdb"
       
    strSQL = "SELECT max(id)as resultado FROM tbl_liquidacion WHERE periodo=" & Vperiodo
       
        Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass)
       
        Set Rst = Db.OpenRecordset(strSQL)
       
Rst.MoveFirst
Rst.MoveLast
If IsNull(Rst!Resultado) Then
NumeroRecibo = 1
Else
NumeroRecibo = Rst!Resultado + 1
End If
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!"
            Exit Function
           
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!"
            Exit Function
End Select

End Function


Por otro lado tango un control list view donde añado multiples items de multiples empleados y lo que pretendo es lo siguiente:


recibo  legajo      empleado
1              10          perez
1              10          perez
1              10          perez
2              11          gomez
2              11          gomez
2              11          gomez

el asunto es que no se como hacer para que por cada legajo repetido me repita el numero de recibo.
El codigo que utilizo para cargar el listview es el siguiente:


Private Sub Command2_Click()
On Error GoTo Hay_err_err
Dim i As Integer
Dim o As Integer
Dim item As ListItem
Dim cantidad As Integer
Dim Grupo As Integer
Dim concepto As Currency
Dim Formula_Concepto As String
Dim Formula_Cantidad As String
Dim Publica_cantidad As Integer
With ListView3
.SortKey = idconcepto
.Sorted = True
End With
With ListView3
.SortKey = idlegajo
.Sorted = True
End With
   
If (Me.ListView1.ListItems.Count = 0) Then
       MsgBox "No hay ningún concepto cargado en la lista", vbInformation
       Exit Sub
    End If
If (Me.ListView2.ListItems.Count = 0) Then
       MsgBox "No hay ningún empleado cargado en la lista", vbInformation
       Exit Sub
    End If
For i = 1 To Me.ListView3.ListItems.Count
For o = 1 To Me.ListView1.ListItems.Count

'para evitar que se ingresen varios conceptos iguales
If Me.ListView3.ListItems.item(i).SubItems(1) = Me.ListView1.ListItems.item(i) Then
  MsgBox "El/Los conceptos seleccionados" & vbCrLf & vbCrLf & "ya se encuentra cargado, no es posible repitir los conceptos", vbInformation + vbOKOnly, "Error"
  Exit Sub
Else
End If
Next o
Next i

'Me.ListView3.ListItems.Clear
   
   
For i = 1 To Me.ListView1.ListItems.Count 'Cantidad de conceptos
 
Formula_Concepto = Dlookup("formula_concepto", "tbl_conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "")
Formula_Cantidad = Dlookup("formula_cantidad", "tbl_conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "")
'Establecemos el grupo para insertarlo en la columna correspondiente
Grupo = Dlookup("grupo", "Tbl_Conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "")
'Publica cantidad
Publica_cantidad = Dlookup("publica_cantidad", "Tbl_Conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "")
 
 
  For o = 1 To Me.ListView2.ListItems.Count
 
  'Establecemos las variables de concepto y cantidad, o sea traemos la fomrula
'Evaluamos el resultado de las variables Formula_concepto y Formula_cantidad
concepto = o_Script.Eval(Formula_Concepto)
cantidad = o_Script.Eval(Formula_Cantidad)

  Set item = Me.ListView3.ListItems.Add(, , Me.ListView2.ListItems.item(o))
  item.ListSubItems.Add(1) = Me.ListView1.ListItems.item(i)
   item.ListSubItems.Add(2) = Me.ListView1.ListItems.item(i).ListSubItems.item(1)
   item.ListSubItems.Add(3) = ""
         item.ListSubItems.Add(4) = ""
         item.ListSubItems.Add(5) = ""
         item.ListSubItems.Add(6) = ""
         item.ListSubItems.Add(7) = Me.ListView1.ListItems.item(i).ListSubItems.item(2)

item.ListSubItems.Add(8) ='ACA ES DONDE NECESITO CARGAR EL NUMERO DEL RECIBO         
           
  Next o
Next i
Hay_err_exit:
   
Hay_err_err:

Select Case Err.Number

Case 1002

            MsgBox "La fomula es inevaluable" & vbCrLf & vbCrLf & "Verifique el contenido e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            End Select
End Sub


Gracias por su ayuda de antemano...

Buenas amigos, yo nuevamente, antes que nada muchas gracias por su ayuda.

el asunto es que tengo un informe conectado con ado y funciona perfecto pero cuando inserto un Encabezado/pie de Grupo e inserto un txtbox enlazado al rs, me larga el mensaje de error, "Las secciones del informe no coinciden con los dato ede origen",ese es mi problema y mi consulta para con uds, me imagino que a muchos les abra sucedido esto pero yo por mas que buscon en la web no consigo la solucion, desde ya muchas gracias por su tiempo.

Buenas amigos, yo nuevamente con otro inconveniente.

La cuestion es que estoy trabajando con el el control este y me presenta una dificulatad, primero les pego el procedimiento como lo uso:

Dim o_Script As MSScriptControl.ScriptControl

Private Sub Form_Load()

' Inicializa la variable para usar el ScriptControl
    Set o_Script = New MSScriptControl.ScriptControl
   
    ' Establece como lenguaje VBScript
     o_Script.Language = "VBScript"
     o_Script.AddObject "Form1", Form1
       
End Sub

Ahora tengo unas funciones pongo dos:

Public Function suma(a, b)
suma = a + b
End Function

Public Function resta(a, b)
resta = a - b
End Function


Private Sub Command2_Click()

cantidad = o_Script.Eval(me.text1.text)

msgbox(cantidad)

end sub

ahora para ue el eval me tire el resultado de Suma(10,10) o sea msgbox(20), tengo que escribir en el text1: Form1.suma(10,10), es ahi donde tengo el problema, por lo que mi consulta es: existe alguna forma de evitar tener que especificar el nombre de la clase seguido del el nombre de la funcion? y solo pasar el nombre de la funcion para que evalue?, no se si se entiende, es que solo puse dos funciones sencillas pero tengo muchas y que necesito que se puedan evaluar mas prolijamente desde varios formularios sin tener ue poner nombreform.funcion..., o  al menos poder llamar a dichas funciones desde un solo formulario pero sin tener que pasar el nombre del form, de antemano gracias por su ayuda.

Buenas amigos y sepan disculpar mi insistencia.

He encontrado una funcion ue suma items en el listview que es la siguiente:

Private Function SumarGrupo(Grupo As Integer)

Dim i As Integer
    'Recorre todos los items y para sumar los SubItems
    For i = 1 To ListView1.ListItems.Count
    If IsNull(ListView1.ListItems(i).SubItems(Grupo)) Then
    SumarGrupo = 0
    Else
         SumarGrupo = SumarGrupo + CDbl(ListView1.ListItems(i).SubItems(Grupo))
         End If
         
    Next i

End Function


Yo modifique lo de grupo para poder especificar la columna que deseo sumar, ahora el problema lo tengo cuando sumo una columan tal como:

DESCRIP.             COl1       COl2

Concepto1                20
Concepto2                           30
Concepto 3                10   

Ya que hay ciertos items en los que queda nulo y ahi me larga error, por una
cuestion estetica yo necesito que esos espacios queden vacios pero es el problema por el cual me tira el error, ojala puedan ayudarme, desde ya muchas gracias.

Hola amigos.

Tengo un listview con las columnas

legajo nombre  apellido           antiguedad
1         marcelo  cardozo
2         dario       diaz
3         ivan        bazan
etc...     


Todas las columnas como veran estan completas menos la de antiguedad la cual necesito completar una ves que este la lista llena, lo que intente es lo siguiente:

Recorro todos los item del listview intentando completar esta ultima columna.

Dim i As Long
Dim item As ListItem

For i = 1 To Me.ListView1.ListItems.Count

   
    Set item = Me.ListView1.ListItems.item(i).ListSubItems.Add(3, , "lo que sea")

    Next i

 
Esto me larga error "El indice esta fuera de los limites" y no encuentro solucion, desde ya muchas gracias de antemano por su tiempo y por su ayuda.

Buenas amigos, ante todo muchas gracias por su ayuda.

La cuestion es que estuve investigando mucho acerca del Scriptcontrol y encontre la solucion con dicho contro a mis problemas, el problema es el siguiente:

A continuacion un trozo de codigo que descargue de la web y luego la consulta.

Dim o_Script As MSScriptControl.ScriptControl

Private Sub Form_Load()
   
    ' Inicializa la variable para usar el ScriptControl
    Set o_Script = New MSScriptControl.ScriptControl
   
    ' Establece como lenguaje VBScript
    o_Script.Language = "VBScript"
   
    o_Script.AddObject "form1", Form1   
    Command1.Caption = " Ejecutar código"
    Command2.Caption = " Limpiar textBox"
       End Sub

Private Sub Command1_Click()
   
    Dim Valor As Variant
   
    ' Le pasa a Eval el contendo de Text1
    On Error GoTo ErrSub:
    Valor = o_Script.Eval("form1." & Me.Text1)
   
    'visualiza el resultado
    MsgBox Valor, vbInformation
   

Exit Sub
'Error
ErrSub:
MsgBox Err.Description, vbCritical
Err.Clear

End Sub

La cuestion es que este codigo me perimite ejecutar cualquier codigo que se encuentre en el modulo de form1 modulo y lo que yo necesito es poder ejecutar en este formulario los codigos de otro mudulo general, es esto posible?, supongo que la cuestion esta en AddObject "Form1",creo que ahi debo especificar el nombre del modulo pero no tengo idea de como hacerlo, alguien sabe como hacerlo, no se si me llego a explicar pero gracias nuevamente.

Hola foreros, nuevamente apelo a su conocimiento, de antemano gracias por su tiempo y por su ayuda.

El asunto es que tengo un procedimiento que me filtra registros y los inserta en un listview, el problema lo tengo en las opciones del filtrado, en el formulario tengo un Chek, alhacer ckick en este se habilita o deshabilita un combo en el cual tengo los datos de la tabla categorias en formato 001 - Administracion, 002 - Trafico, Etc , lo que pretendo es que si el chek esta en False que me filtre todos los registros y si esta en true me filtre los registros para la categoria seleccionada del combo, he simplificado en este caso por que a demas de opcion por categoria tengo 7 opciones mas por lo que no se me hace facil hacer una sql por que tendria que realizar una combinacion terrible de datos por lo que se me ocurrio lo que les marco en rojo pero no me da error pero tampoco funciona, o sea no me devuelve todos los registros.



Sub Filtrar()
On Error GoTo Hay_err_err

Dim Categoria As Variant

If Me.Check2.Enabled = True Then
Categoria = "*"
end If

If Me.Check2.Enabled = false Then
Categoria = Mid(Me.Combo4,1,3)
end If

Dbpath = App.Path & "\" & DirectorioBase & "\" & Db_A_Name
         
   StrSql = "SELECT * FROM tbl_Empleados WHERE categoria=" & Categoria
       
               
        Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass)
     
          Set Rst = Db.OpenRecordset(StrSql)
       
               
While Not Rst.EOF
       
          Set Item = Me.ListView2.ListItems.Add(, , Rst!legajo)
           Item.SubItems(1) = Rst!nombres '& ", " & Rst!Apelldos
              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!"
'            Exit Function
           
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!"
            'Exit Function
End Select

End Sub


Bueno, nuevamente gracias y disculpen si olvido algo es que lo escribo comoforme se me cruzan las palabras.

Buenas nuevamente compañeros, gracias por su constante ayuda.

Dado que desconozco como funciona ADO ,aunque he visto mas o menos su funcionamiento me resulta muy comodo traajar con DAO por lo que he realizado muchas busquedas en la web y no encuentro docuementacion acerca de como generar reportes con DAO en vb6, asi que mi consulta seria si es posible utilizar dao con datareport, si alguien sabe de algun enlace o documentacion se lo agradecere eternamente.

Buenas colegas.

La cuestion es que tengo un procedimiento en el cual inserto registros en una tabla mediante un bucle que recorre elementos en dos controles listview, la cuestion es que quiero que los registros que solo me agregue solo los registros que este chekados, es esto posible, lo ue intente es lo siguiente: , de antemano gracias


Private Sub cmdliquidar_Click()

Dim i As Long
Dim f As Long

Dbpath = App.Path & "\" & DirectorioBase & "\" & Db_A_Name
       
    StrSql = "SELECT * FROM tbl_liquidacion"
       
        Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass)
       
        Set Rst = Db.OpenRecordset(StrSql)
                       
         
      For i = 1 To Me.ListView1.ListItems.Count
   
          For f = 1 To Me.ListView2.ListItems.Count
     
       If Me.ListView2.ListItems.Item(i).Checked = True Then
          Rst.AddNew
          Rst!codigo = Me.ListView1.ListItems.Item(i).Text
          Rst!legajo = Me.ListView2.ListItems.Item(i).Text
          Rst.Update
          End If
          Next f
         
         
         
        Next i
       
         
         
         
End Sub

Hola amigos!


Tengo en una misma rutina dos bucles, o almenos es lo que intento, uno para recorrer los rst de una tabla e insertar los registros en un listview y otro para hacer correr un progressbar pero no logro hacer que marche, aver si pueden echarme una mano y decirme donde tengo el error:


Dim cuantoshay As Integer
Dim contadorfor As Integer
Dim lrg As Double
Dim intv As Double
Dim ctat As Integer
Dim prct As Integer
Dim sql As String
Dim rst As DAO.Recordset
Dim lstitem As ListItem
Dim indice As Long
Dim empresa As Integer

indice = indice + 1
empresa = Mid(Val(MDIForm1.lblempresa.Caption), 1, 4)
Me.ListView1.View = 3

DBpath = App.Path & "\Datos\tablas.mdb"
strsql = "SELECT * FROM tbl_empleados where empresa=" & empresa
  Set db = DBEngine.OpenDatabase(DBpath, False, False, ";pwd=" & MiPass)
    Set rst = db.OpenRecordset(strsql)

rst.MoveFirst
rst.MoveLast

cuantoshay = rst.RecordCount

For contadorfor = 0 To cuantoshay - 1

'ACA RECORRO LOS RST Y LOS INSERTO EN EL LISTVIEW PERO SOLO
ME INSERTA EL PRIMERO Y LUEGO NADA
Do Until rst.EOF
Set lstitem = Me.ListView1.ListItems.Add(indice, , rst("legajo"))
    ListView1.ListItems(indice).ListSubItems.Add , , Me.txtconcepto.Text
    ListView1.ListItems(indice).ListSubItems.Add , , Me.lblconcepto.Caption
rst.MoveNext
Loop
   


Me.lblporcentaje.Visible = True
Me.progreso.Visible = True

lrg = Me.ancho.Width 'para el ancho total al que debe llegar la barra de progres
intv = lrg / cuantoshay 'valor por cada archivo

            ctat = ctat + 1 'valor 1
            prct = (ctat / cuantoshay) * 100 'porcentaje 1
           
            Me.progreso.Visible = True
            Me.progreso.Width = ctat * intv 'el progreso es desde 1 * intv
            Me.lblporcentaje.Caption = prct & " %" 'muestra el porcentaje transcurrido
           
Next

La barra corre bien por que inserte un msgbox antes del next para constatar que no tuviera el problema ahi pero no, asi que no logro dar con la solucion, por otro lado tambien intente hacer los dos procesos por separado pero en caso de que se produsca un error o inconveniento uno de los procesos terminaria antes que el otro y no se veria profesional, desde ya muchas gracias por su ayuda y por su atencion.

Holas!

He visto en algunos sistemas echos en visual basic que se utiliza o se simula no lo se, el control que aparece en el margen izquierdo en por ejemplo Panel de Control, Conexiones de Red, no se si entienden a cual me refiero, en panel de control por ejemplo aparece lo siguiente:

Panel de Contro >>
Cambiar a vista por categorias.

Vea Tambien >>
Windows Update.
Ayuda y Soporte tecnico.


Las flechitas aparecen mirando para arriba o abajo no hacia la derecha o izquierda.

Existe algun control parecido o igual a este para Visual Basic?, gracias.

Buenas foreros, nuevamente les traigo una inquietud

Esta inquietud esta relacionada con un tema que toque hace poco tiempo, mas precisamente sobre EbExecuteLine con lo cual tendria solucionado mis problemas, pero luego de informarme mas a fondo me entero de que esta api solo funciona si en el equipo se encuentra instalado Visual Basic 6.0 incluso teniendo instalado el vb6 probe generando un exe del project y no funciono, o sea solo funciona ejecutando en debug, por lo que mi consulta es: Existe alguna forma de hacer ue marche sin estos obstaculos de no ser asi, existe algun sustituto de esta api que sea mas funcional?, gracias amigos de antemano por su ayuda y por su tiempo.-

Buenas nuevamente colegas.

En esta ocacion mi consulta es acerca del entorno de programacion, habitualmente programo en Vb6 y recientemente instale en mi equipo el Visual Studio 2005 y luego intente convertir un proyecto de vb6 a 2005 pero cuando intento iniciar la depuracion me emite un mensaje: "Errores al generar. Desea continuar y ejecutar la ultima version generada?  SI/NO, obviamente se generaron errores en la conversion, por ejemplo en la siguiente guncion me inserto los siguientes mensajes:

Public Function Importe(ByRef Vimporte As Object) As Decimal
      Dim vvalor As Object
      On Error GoTo Hay_err_err
      Dim Vcon As Object
      Dim Vcat As Object
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto vvalor. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      vvalor = 1
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Form_Liquidacion.txtlegajo. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Busqueda(). Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcon. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      Vcon = Busqueda("Convenio", "Tbl_Empleados", "legajo=" & Form_Liquidacion.txtlegajo & "")
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Form_Liquidacion.txtlegajo. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Busqueda(). Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcat. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"';      Vcat = Busqueda("Categoria", "Tbl_Empleados", "legajo=" & Form_Liquidacion.txtlegajo & "")
      DBpath = My.Application.Info.DirectoryPath & "\datos\tablas.mdb"
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcon. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcat. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"';      strsql = "SELECT * FROM Tbl_C_importes WHERE categoria=" & Vcat & "and convenio=" & Vcon
      db = DAODBEngine_definst.OpenDatabase(DBpath, False, False, ";pwd=" & MiPass)
      rst = db.OpenRecordset(strsql)
      
      rst.MoveFirst()
      rst.MoveLast()
      
      Select Case Vimporte
         Case 1
            Importe = rst.Fields("Importe1").Value
         Case 2
            Importe = rst.Fields("Importe2").Value
         Case 3
            Importe = rst.Fields("Importe3").Value
         Case 4
            Importe = rst.Fields("Importe4").Value
         Case 5
            Importe = rst.Fields("Importe5").Value
         Case 6
            Importe = rst.Fields("Importe6").Value
         Case 7
            Importe = rst.Fields("Importe7").Value
         Case 8
            Importe = rst.Fields("Importe8").Value
         Case 9
            Importe = rst.Fields("Importe9").Value
         Case 10
            Importe = rst.Fields("Importe10").Value
      End Select
      
Hay_err_exit:
      
      'Cerramos los Objetos...
      rst.Close()
      db.Close()
      
      'Desvinculamos los objetos...
      'UPGRADE_NOTE: El objeto rst no se puede destruir hasta que no se realice la recolección de los elementos no utilizados. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
      rst = Nothing
      'UPGRADE_NOTE: El objeto db no se puede destruir hasta que no se realice la recolección de los elementos no utilizados. Haga clic aquí para obtener más información: 'ms-help://ms.vscc.v80/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
      db = Nothing
      
Hay_err_err:
      
      Select Case Err.Number
         Case 3024
            MsgBox("Es imposible localizar la base de datos en la ruta determinada: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & My.Application.Info.DirectoryPath & "\datos" & "  e intente nuevamente", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Aviso!")
            Exit Function
            Resume Hay_err_exit
            
         Case 3078
            MsgBox("Es imposible encontrar la tabla requerida. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & My.Application.Info.DirectoryPath & "\datos" & "  e intente nuevamente", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Aviso!")
            Exit Function
            Resume Hay_err_exit
         Case 3071
            Importe = 0
            
            
      End Select
   End Function

Bueno, las consultas son:

1-Como soluciono lo de los erroresÇ?
2-por que se generan si es el mismo codigo?
3- Es mejor Visual Studio 2005 que vb6 clasico?

Gracias de antemano por sus respuestas.-

Hola foreros!

antes que nada , gracias de antemano por su ayuda y por su tiempo.

La cuestion seria que intento darle formato a las filas del listvieew, el formato seria una fila color celeste, una color blanca, una color celeste, otra blanca, etc, etc.... y asi en todas las filas.

seria eso posible..?

[cadena = "Form1.text1 =" & Suma(2,2)]

Buenas compañeros, nuevamente les consulto:

Tengo por un lado la siguiente funcion:

Public Function Suma(F1, F2)
Suma = F1 + F2
End Function

y en un boton de commando tengo:

Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Private Sub Command1_Click()
Dim cadena As String

cadena = "Form1.text1 =" & Suma(2,2)

code = EbExecuteLine(StrPtr(cadena), 0&, 0&, 0)

End Sub

Como resultado al presionar el boton, en el text1 obtengo el resultado esperado o sea 4, pero si en lugar de pre-escribir la funcion y sus paramentros en la linea:

cadena = "Form1.text1 =" & Suma(2,2)

escribo

cadena = "Form1.text1 =" & txtformula

para poder yo escribir la funcion que deseo utilizar en determinado momento y los parametros que necesite como por ejemplo suma(222,333) no me devuelve ningun valor, o sea la consulta seria como consigo que me devuelva el valor de la ejecucion de la funcion que yo escribo en el txtformula ?, gracias de antemano por su ayuda.

Hola!

Bueno colegas, he intentado de todo con la parte de creacion y ejecucion de las formulas de los conceptos que es lo unico que me faltaria en un sistema de sueldos que estoy creando desde hace tiempo, incluso intente con el ScriptControl pero no logre adaptarlo a mi necesidad ya que no consegui hacer que ejecute funciones complejas entre otros, ademas busque en infinidad de sitios sin exito algun ejemplo o documentacion, se habla muy poco de este tipo de sistemas en la red, es por todo esto que apelo al conocimiento  de todos en este sitio para que puedan darme una manito con esto, con lo que sea, un articulo, un ejemplo, un sitio que trate el tema cualquier cosa sera bienvenido, gracias de antemano por su tiempo.-

Hola!, nuevamente yo, antes que nada les agradezco mucho su tiempo y su ayuda.-


La cuestion es que necesito pasarle a la funcion Mid los argumentos desde los argumentos de otra funcion valga la redundancia,  esto es lo que intento:

Código (vb) [Seleccionar] Expandir

Public Function BuscarHijos(P1 As Integer) As Variant
On Error GoTo Hay_err_err
   
    DBpath = App.Path & "\datos\tablas.mdb"
     
   strsql = "SELECT Max(mid(jerarquia, ["& P1 &"],2)) as Resultado FROM tbl_generaciones Where Mid(Jerarquia,1,1)=" & Mid(Me.txtpariente, 1, 1)
     
   
        Set db = DBEngine.OpenDatabase(DBpath, False, False, ";pwd=mipass")
     Set rst = db.OpenRecordset(strsql)
       
       rst.MoveFirst
        rst.MoveLast
     'Si no hay registros coinvertimos el null en cero para
     'poder sumarle 1
     If IsNull(rst!Resultado) Then
     BuscarHijos = 0
     'si hay registros devolvemos el max
     Else
     BuscarHijos = rst!Resultado
     End If
         
End Function

Ais como esta la ejecuto pero no me da resultado, nuevamente gracias por su ayuda.

Hola colegas!


Alguien sabe de que manera puedo insertar una imagen de fondo en un control Treeview, o sea no en el form si no dentro del control, gracias de antemano.-

Hola foreros!

Nuevamente apelo a su conocimiento por que ami las ideas se me acabaron y ya no se como hacerlo.

Resulta que tengo un formulario MDI al cual quiero asgnarle una imagen como fondo de pantalla, el problema es que la resolucion o tamaño de esta es menor que el tamaño del formulario es por eso que les consulto: De que manera podria distribuir o estirar la imagen de tal manera que cubra todo el espacio tal como se hace con los fondo de pantalla de windows, de antemano gracias por su tiempo.-

Hola compañeros, estoy a full hoy!

Alguien sabe si es posible desde mi pc forzar un formulario para que se abra en un aquipo x de la red interna¿?, es para un servicio de mensajeria interna en el que estoy trabajando, el formulario que forzariamos es el que contendria el mensaje, el mensaje seria un registro almacenado en una base de datos, de antemano gracias por su tiempo y por su ayuda.

Pd.:Y por su pasciencia...

Buenas colegas!

La cuestion ahora es , es posible asignar a cada item de un listview una imagen diferente?, como lo logro?, gracias de antemano.

Buenas compañeros, nuevamente!

Debido a las complicaciones que se mepresentan para realizar operaciones con el scriptcontrol, y a falta de ideas que por cierto ya se me agotaron totalmente debo preguntar: Algun miembro del foro, hizo alguna ves un sistema de sueldos?, como puedo hacer la parte de crear y evluar las formulas para un sistema asi, alguien tiene alguna idea de como encarar esto, de antemano mil gracias por su pasciencia y por su tiempo.

Alguien podria echarme un guante en este tema..?

Buenas colegas.

De antemano mil gracias por su tiempo y por su ayuda

mi consulta es la siguiente, tengo un ejemplo que encontre en una web sobre como evaluar el resultado de una funcion, aqui la pego:

'Prueba 2 de ScriptControl
Dim sCodigo As String
Dim vValor As Variant

sCodigo = "Function Multiplica(a, b)" & vbCrLf & _
" Multiplica = a * b" & vbCrLf & _
"End Function"

'Añadimos el código, especificamos el lenguaje y ejecutamos
With ScriptControl1
.Language = "VBScript"
.AddCode sCodigo

'Usamos Run para obtener el resultado
'vValor = .Run("Multiplica", "2", "5")

'Usando Eval, nos permite que la expresión esté en
'una variable... además de hacerlo directamente,
'pero se usa de la misma forma que lo haríamos desde VB
vValor = .Eval("Multiplica(2,5)")

'Mostramos el valor devuelto
MsgBox "El valor devuelto es: " & vValor
End With


El asunto es que la funcion esta encapsulada dentro de una variable como ven:

sCodigo = "Function Multiplica(a, b)" & vbCrLf & _
" Multiplica = a * b" & vbCrLf & _
"End Function"

Pero como puedo evaluar el resultado de una funcion cualquiera que se encuentra en otro modulo como ser

Function Valor()
Valor=10
End Function

Pero sin declararla ni meterla dentro del procedimiento que la evalua ni con las "", no se si soy lo suficientemente claro , de todas maneras gracias por todo.

Buenas colegas nuevamente!

De que manera puedo crear una funcion en la que yo pueda pasarle un operador por ejemplo:


Txt= LogicaSI(10,>,9,1)

como Resultado 1

Me imagino que no debe ser de esta manera pero es como se me ocurre explicarles para que puedan ayudarme.

Gracias de antemano por su tiempo...

Buenas colegas, tengo el siguiente dilema.

Eh intentado sin resultaso  , crear un formulario en el cual mediante cadenas de texto pueda crear formulas tales como:

Canceto1=Sumar(sueldobruto,antiguedad) donde sueldobruto y antiguedad son variables del empleado , pero no logro dar con la manera de hacer esto, eh intentado con el scriptcontrol pero francamente no se bien como utilizarlo, todavia no lo comprendo muy bien, es por eso que les solicito ayuda, si alguien tiene algun ejemplo de esto o tiene alguna mejor idea de como hacerlo se los agradecere eternamente.