Programación General > Visual Basic 6.0 e inferiores

 Re: Problema con InputBox

(1/1)

sozi:
Me gustaría saber si existe alguna forma de controlar en un Input Box cuando le dás al boton 'Aceptar' y cuando a 'Cancelar', pero en cualquier momento, no solo cuando está vacío.

Y otra cosa, como se puede compactar una base de datos en access en tiempo de ejecución desde VB?

Gracias.

Majuhemo:
Hola:
intenta con este codigo, pegalo en un boton:

Dim sTexto As String
    sTexto = InputBox("Hola!")
    If StrPtr(sTexto) = 0 Then
        MsgBox "Ud. presiono Cancelar"
    Else
        MsgBox "Ud. presiono Aceptar"
    End If

Sobre compactar datos de access, la verdad no te puedo ayudar.

Saludos;

Ruben Delgado.:hola:

José D:
Para compactar una BD lo tengo pero en ADO no en DAO, mira a ver si esto te pueda servir: (perteneciente a AMB Software)

 
--- Código: Text --- [b]Mediante este código lograremos compactar una base de datos de Microsoft Access.[/b]Public Function compactDB(ByVal SOUR_path As String, ByVal DEST_path As String) As Boolean On Error GoTo Err_compact Private JRO As New JRO.JetEngine Private DB_sour As String, DB_dest As String DoEvents DB_sour = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SOUR_path DB_dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DEST_path & " ;Jet OLEDB:Engine Type=5" JRO.CompactDatabase DB_sour, DB_dest compactDB = True Exit Function Err_compact: compactDB = False MsgBox Err.Description, vbExclamation End Function  

Navegación

[0] Índice de Mensajes