jarpsoft

En Server=200.58.112.10 Debe ir la IP en donde se encuentra el MySQL. Eso no se como lo manera tu proveedor por lo general esos datos se encuentran en el Control Panel. Los proveedores de sitios siempre reedireccionan estos, debes pedirle el IP o la...

Bueno creo que entendí tu pregunta, en este ejemplo uso un arreglo(array) de controles. Y el evento lostfocus Que se activa cuando un control pierde el enfoque (que es lo que tu buscas). Dim i As Integer 'En el ejemplo son 4 textbox 'index es su...

Aquí te mando el link: http://download.componentone.com/pub/ActiveX/tdbgrid8/Evaluations/tdbgrid8_T105.exe

Ok man ya encontre el problema. Prueba con esto Option Explicit Private Sub Form_Activate() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Dim fd As Field Dim item As ListItem Dim clm As ColumnHeader Dim j As Integer sql =...

Para cerrar la aplicación puedes usar rpta=msgbox("Desea Salir de la Aplicacion",vbYesNo,"Advertencia") if rpta=VbYes then End 'con esto cierras la aplicacion. End if Si quieres cerrar individualmente sin ocultar el formulario es codigo es: unload...

Aqui te mando un ejemplo de como hacerlo utilizando APIs, solo necesitas un boton Command1 en el formulario. Pruebalo. Option Explicit Private Enum TipoAccion SW_HIDE = &H0 ' Ocultar SW_SHOW = &H5 ' Mostrar End Enum Private Declare Function...

Aqui esta la solucion. Pruebala Option Explicit Dim cont, i As Long 'Por JarpSoft Private Sub Form_Load() 'Configurar temporizador Timer1.Interval = 5 Timer1.Enabled = True 'Inicializar variables cont = 1 i = 0 'Inicializar valores del formulario...

De nada man, en lo que pueda ayudarte solo pregunta. Bueno tienes que valorar las respuestas. Darle un puntaje el que creas correcto. Nos vemos.

Aqui te mando un pequeño ejemplo de una listview con base de datos. Me avisas si te funciono. Option Explicit Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() Dim sql As String Dim fd As Field Dim j As Integer...

Necesitas utilizar el API "NetShareAdd". Aca te pongo un ejemplo: Espero te sirva. Suerte. Option Explicit Private Const NERR_SUCCESS As Long = 0& 'tipos compartidos Private Const STYPE_ALL As Long = -1 'note: my const Private Const STYPE_DISKTREE As...