Mensajes

mmmm a la hora de modificar un registro, no debes de agregar el método .addnew sino que simplemente .update, intenta y comentas.

que tal!

Para conectar a una mdb de access:

Código [Seleccionar] Expandir


Private cn As ADODB.Connection 'Para abrir bases de datos

Function ConectarMDB()
On Error GoTo Err

    'Crear los objetos
    Set cn = New ADODB.Connection
   
    With cn
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source="Lugar de la base de datos";" & _
            "Jet OLEDB:Database Password=password"
    End With
 

Exit Function
Err:
    MsgBox Err.Description & vbCrLf & Err.Number, vbExclamation, App.Title
End Function


y ahora para la consulta, modificación y eliminación de datos, consulta está web:
http://www.mundoprogramacion.com/vb/bases/ADO/indiceADO.htm

Proporciona algo de código o sube alguna imagen donde quieras hacer lo que pides y para la suma de las edades, consulta SUM() de SQL

que tal!, intenta colocar en la secuencia SQL esto: SELECT usuario FROM experto where=.....  en vez de seleccionar todos los registros de dicha tabla.

Buenas noches, primero lo básico:
Tu chat está agregado al firewall de las pc's que intentas ejecutarlo?

buenas noches..
si lo que quieres más velocidad, puedes hacerlo dentro de timer y solo le colocas a cada cuantos milisegundos lo quieres.

Esa es mi sugerencia.
Espero que te sirva.

buenas noches, puedes intentar con esto:

Código [Seleccionar] Expandir


Open "C:\archivo.txt" For Append As #1 'Creas el archivo para agregarle texto al final
        Print #1, Text1.Text 'Guardas el contenido del textbox1 en el archivo
        Print #1, Text2.Text 'Guardas el contenido del textbox2 en el archivo
Close #1 'cierras el archivo.


espero que te sirva.

verifica que estes llamando correctamente la función: verifica esto:

Código [Seleccionar] Expandir


SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Aqui estas indicando que la ventana este siempre visible(sobre todas).

Código [Seleccionar] Expandir


SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

y esta es para que la ventana quede normal.

y por último las constantes:

Código [Seleccionar] Expandir


Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2


el código funciona corretamente, solo es que verifiques que lo hayas copiado bien.

excelente, menos código. 

visita este sitio, talvez te pueda servir de algo.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/413-cargar-treeview-desde-txt.htm