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