|
|
|
|
|
|
|
|
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|
|
|
|
|
|
