OS MYSQL DE PLANTAO

Citação:

:
Eu também utilizo a forma do JANDER, a mais de 3 anos, foi a melhor forma que encontrei.

Private Declare Function Ping Lib [Ô]iphlpapi[Ô] _
Alias [Ô]#65[Ô] (ByVal pInternetProtocol As Long, pNumberOfCalls As Long, _
ByVal pMaxNumberOfCalls As Long, lTime As Long) As Long


Private Declare Function ConvertStringToIP Lib [Ô]wsock32[Ô] _
Alias [Ô]#10[Ô] (ByVal stoip As String) As Long


Function MyPing(sIPAddr As String) As Boolean
Dim IP As Long, pNumCalls As Long, lTime As Long
IP = ConvertStringToIP(sIPAddr)
MyPing = (Ping(IP, pNumCalls, 15, lTime) = 1)
End Function



Private Sub Timer1_time()
Dim Result As Boolean
Result = MyPing([Ô]72.14.204.147[Ô]) [ô]este ip é de um site de busca famoso coloque aqui o ip de seu servidor
If Result = True Then
MsgBox [Ô]conexão reestabelecida[Ô]
Timer1.Enable = False
Else
MsgBox [Ô]Servidor ainda não responde[Ô]
End If
End Sub

  
Public Function Conecta(ByVal Valor As Boolean)
On Error GoTo ErrorLine
    If Valor = True Then
        DoEvents
        Set Conexao = New Connection
        SERVIDOR = [Ô][Ô] & ReadINI([Ô]Conexao[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
        BASEDEDADOS = [Ô][Ô] & ReadINI([Ô]Conexao[Ô], [Ô]BancoDeDados[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
        PORTA = [Ô][Ô] & ReadINI([Ô]Conexao[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
        USUARIO = [Ô][Ô] & ReadINI([Ô]Conexao[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
        DCSENHA = [Ô][Ô] & ReadINI([Ô]Conexao[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
        SENHA = [Ô][Ô] & Cr.Descripitografia(DCSENHA)
        CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
                & [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
                & [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
                & [Ô]Database=[Ô] & BASEDEDADOS & [Ô];[Ô] _
                & [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
                & [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
                & [Ô]OPTION=[Ô] & 1 + 2 + 8 + 32 + 2048 + 16384
        With Conexao
            .CursorLocation = adUseClient
            .ConnectionString = CON_STR
            .Open CON_STR

        End With
    Else
        Conecta True
        If Conexao.State = 1 Then Conexao.Close
        Set Conexao = Nothing
    End If
Exit Function
ErrorLine:
MsgError
End Function

 

Citação:

:
Gostei .. foxman, voce falando em relação a triggers, storage.. etc.. em relação a desempenho propriamente dito, e melhor utilizaçao de storage para manipular os dados diretamente, mas o desempenho é tão gigantesco assim? tipo.. a diferença e tao grotesca? eu tenho algumas storages se vcs baterem o martelo eu migro todas minhas telas.. utilizando apenas storage