//Conexao ok, ok1, ok2, ok3 is boolean
myConn is Connection myConn..Provider = hNativeAccessSQLServer myConn..User = "adriano" myConn..Password = "adriano@2016" myConn..Source = "192.168.0.162\projeto01" myConn..Database = "projeto01" myConn..Access = hOReadWrite
ok1 = HOpenConnection(myConn) IF ok1 = False THEN Info(ErrorOccurred() +" - "+ HErrorInfo()) END
IF gpwInitAnalysis() = False THEN Error(ErrorInfo()) ok2 = False ELSE
ok2 = True IF gpwOpen() = gpwOk ok3 = True ELSE Info(ErrorOccurred() +" - "+ HErrorInfo()) ok3 = False END
END
NextTitle("Atenção")
IF ok1 = True AND ok2 = True AND ok3 = True THEN //deve dar tudo ok
Info("Conectou com sucesso no banco de dados!")
ELSE
Info("Falha ao tentar conectar no Servidor")
END |