USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Retorna o tamanho atual do mdb atual em bytes
Postada em 2/9/2004 por Vaughyman            
Function GetMDBSize() As Long
'
' Retorna o tamanho atual do mdb atual em bytes
' O MDB deve estar aberto para acesso compartilhado para que a função funcione.
'Quem gosta de controlar Quanto sua Base de Dados já está


'No General
Dim Db As Database, f As Integer
  

Public Function Verifica()
  Set Db = OpenDatabase(App.Path & "Bd.mdb")
  f = FreeFile
  Open Db.Name For Binary Shared As #f
  GetMDBSize = LOF(f)
  Close f
  MsgBox "Base de dados com " &  GetMDBSize & " Bytes"
  Db.Close
End Function

Private Sub Form_Load()
Call Verifica
End Sub

Fuiiiii

|Modificado pelo Administrador|
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página