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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Otimizar tabelas do MYSQL
Postada em 1/3/2007 por ¨Hennyere¨         
Public Function Tbl_Otimizar() As Boolean
    On Error GoTo errHandler
    Dim rsOptimize As New ADODB.Recordset
    With rsOptimize
        .Open "SHOW TABLE STATUS;", db
        Do While Not (.BOF Or .EOF)
            db.BeginTrans
            db.Execute "OPTIMIZE TABLE " & .Fields.Item("Name").Value & ";", , 0
            db.CommitTrans
            .MoveNext
        Loop
    End With
    rsOptimize.Close: Set rsOptimize = Nothing
    Tbl_Otimizar = True
    Exit Function
errHandler:
    rsOptimize.Close: Set rsOptimize = Nothing
End Function
 


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