SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sozi en Lunes 7 de Abril de 2003, 09:11

Título: Re: Problema con InputBox
Publicado por: sozi en Lunes 7 de Abril de 2003, 09:11
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.
Título: Re: Problema con InputBox
Publicado por: Majuhemo en Lunes 7 de Abril de 2003, 15:37
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:
Título: Problema con InputBox
Publicado por: José D en Lunes 7 de Abril de 2003, 20:00
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
  1.  
  2. [b]Mediante este código lograremos compactar una base de datos de Microsoft Access.[/b]
  3. Public Function compactDB(ByVal SOUR_path As String, ByVal DEST_path As String) As Boolean
  4. On Error GoTo Err_compact
  5. Private JRO As New JRO.JetEngine
  6. Private DB_sour As String, DB_dest As String
  7. DoEvents
  8. DB_sour = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SOUR_path
  9. DB_dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DEST_path & " ;Jet OLEDB:Engine Type=5"
  10. JRO.CompactDatabase DB_sour, DB_dest
  11. compactDB = True
  12. Exit Function
  13. Err_compact:
  14. compactDB = False
  15. MsgBox Err.Description, vbExclamation
  16. End Function
  17.  
  18.