Performance do Access com seus métodos de conexão

Olá a todos do MáximoAccess,
Venho trazer este precioso tópico para mostrar aos usuários que morrem de dúvidas sobre performance, tempo de resposta e seus custos benefícios de economia de tempo!

Este anexo abrange uma vasta informações testadas de todas as maneiras possíveis, usando uma configuração de máquina, rede, servidor, oscilação de energia, temperatura, umidade, observações, performance, tempos e etc...

Vejam e resuma você mesmo o que é viável ou não para seu banco de dados!

Agradeçam se gostarem! e Votem para me dar Feedback!



Para fazer os mesmos teste que foi aplicado neste tópico use o banco de dados que está publicado nesta pasta, por nome de Desktop.zip

Banco de Dados de Performance

______________________________________________________________________________________________

Olá gostei desse poste.

Desculpe minha ignorância, o que é RSet(DBReadOnly)?

Acho que é minha primeira participação escrevendo mensagem nesse forum.

Desde já agradeço.

Seja bem vindo ao fórum!
RSet é RecordSet só escrevi assim para reduzir a quantidade de letras (Abreviação).
Já o DBReadOnly que traduzindo do inglês para o português (Banco de Dados Somente Leitura).
Qualquer dúvidas pode perguntar livremente, se eu não puder responder tem mestres aqui que tenho certeza que poderá ajudar!

Abraços!

Para fazer os mesmos teste que foi aplicado neste tópico use o banco de dados que está publicado nesta pasta, por nome de Desktop.zip

https://skydrive.live.com/?cid=8c0a8d01b183ba74&id=8C0A8D01B183BA74!480&Bsrc=Share&Bpub=SDX.SkyDrive&authkey=!

Obrigado pelo retorno.

Para fazer os testes no seu cumputador use o link que passei, já tem os formulários para teste de tempo da abertura do banco de dados. e veja você mesmo os resultados, de pc em pc varia o tempo de abertura! abraços!

Viva
Parabens pelo tópico
Para trabalhar com dados do SQL server qual o método que você considera mais ráripo
Tabelas Vinculadas, DAO ou ADO e qual o tipo de ligação a utilizar?
Um Abraço
Rui Sérgio

Olha amigo, se você está querendo dizer que tem um servidor desktop windows server 2003/2008/2012 com M$SQL Server, sem dúvidas que um ADO seria perfeito!

Ado é um pouco mais complexo, também tem que abrir conexão com o OBDC para se comunicar com o SQL, e assim vai, sem dúvidas vai a fundo!

Mas se deseja uma coisa mais rápida, e que venha ter poucos usuários, vinculado é o mais rápido de se desenvolver de todos. mas vai fundo do ADO + Microsoft SQL + OBDC sem dúvidas que a performance é incomparável!

Viva
Eu estou utilizando esta conexão:

Function ConServer()
Set CON = New ADODB.Connection
CON.ConnectionString = "Provider=sqloledb;Data Source=SERVIDOR\SQLEXPRESS;Initial Catalog=BASEDEDADOS;Integrated Security=SSPI"
CON.CursorLocation = adUseClient
CON.Open
If CON.State = 1 Then
MsgBox "Conetado"
else
MsgBox "Servidor indisponivel"
End If
End Function

Acontece que quando falha a rede também dá a mensagem "Conetado" e depois dá erro ao visualizar os registos.

Você pode me dizer o que estou colocando errado?
Quando falha a rede gostaria que fosse exibida a menssagem "Servidor indisponivel"

Se for Erro que você está falando então eu acho que a função "On Error" vai te ajudar muito

Exemplo:

Function ConServer()
On Error go to ErrorADODB
Set CON = New ADODB.Connection
CON.ConnectionString = "Provider=sqloledb;Data Source=SERVIDOR\SQLEXPRESS;Initial Catalog=BASEDEDADOS;Integrated Security=SSPI"
CON.CursorLocation = adUseClient
CON.Open
If CON.State = 1 Then
MsgBox "Conetado"
else
MsgBox "Servidor indisponivel"
End If

ErrorADODB:
Msgbox "Erro na conexão, verifique seu cabo de rede ou se existe alguma rede conectada!"
Exit fuction
End Function

Agora se você quer retornar os valores do status da conexão pega está lista:

Código:

adStateClosed    0    The object is closed
adStateOpen    1    The object is open
adStateConnecting    2    The object is connecting
adStateExecuting    4    The object is executing a command
adStateFetching    8    The rows of the object are being retrieved

Viva
Talvez eu não me tenha explicado bem.
Todo o meu sistema funciona, visualizo os dados de servidor, edito, etc.
Só tem o inconveniente que quando falha a rede aparece o menu anexo erro1.
O que eu queria evitar é que aparece-se esse menu quando falha a rede.
Pretendia que ouvesse forma de monitorizar os erros do sql server com VBA que aparecem no ecra erro1.
Ou seja quando falha a rede aperece o menu erro1 e depois o menu erro2.

erro2

ainda continuo confuso, não por que não entendi, é por que estou ruim mesmo para calcular coisas esta semana, peguei uma gripe forte e hoje ainda estou com sintomas de fraquesa...

O que acontece é que quando você está usando o banco de dados e derrepente a conexão de rede cai, e então quando você tenta acessar algo depois que a rede teve seu corte de conexão ai aparece o erro1? (Até aqui estou certo?)

Depois não aparece mais nada e então você queria que mostra-se o erro2 depois do erro1 certo?

Me explica com mais detalhes se eu não estiver certo na teoria acima!

Soluções pelo meu entendimento embaralhado:

1- Verifique o servidor que tem o MSSQL server se está bloqueando sua conexão via firewall, que talvez venha ocasionar este problema.
2- Verifique o por que da conexão estar caindo, já que não é legal ter uma conexão que cai constantemente.
3- Se o SQL está hospedado na internet e sua internet tem queda constante então vamos para a próxima solução ->

Não sei exatamente como seu banco está escrito, se ele abre conexão sempre que abre um formulário, ou se está vinculado ao access, ou qualquer outra coisa do tipo:
Se for escrito em VBA, criar um código onde se SQL.State retorna um determinado número então Msgbox "Texto do erro que se referre" e chamar pela conexão SQL de novo.

Se for vinculado, os erros já retornam com descrição.

Agora se você tenta acessar e perssiste em continuar dando erro é por que o ODBC não está conseguindo conectar no SQL Server, então algo está acontecendo veja mais neste artigo: http://support.microsoft.com/kb/195566/pt-br

Eu me expliquei mal
Os formularios no access são desacoplados e a consulta/edição é via ado e está tudo a funcionar corretamente.
Os formulários continuos no access estão vinculados a uma tabela local que é importada do sql server de forma atrabalhar offline que é mais rapido na aplicação de filtros.
A tabela local é importada com o comando abaixo que é ativado na abertura dos formulários e quando se clica no botãos dos formularios para atualizar.
DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=SERVIDOR\SQLEXPRESS;Database=BASEDADOS;Trusted_Connection=Yes", acTable, Forms(SelForm.Name).SelOrigem, LocalTableName
Quando aplico o comando acima referido e se existir falha de rede aparece o erro1 e de seguida o erro2, eu pretendia evitar que aparecem-se estes dois erros e o sistema exibi-se a mensagem "Falha de rede".

Espero ter-me feito compreender

Já tentou usar o On Error Resume Next ? ou On Error Go to ErrorODBC ?

Sempre que você abre um código é bom usar este código para definir os erros que acontece neles...

Exemplo:

Public Function OBDCOpen()
On Error Resume Next
XXX X X XXX
XX XX X X X X XX
X X X X X
X XX X
XX X
X XX
End Function

Ou

Public Function OBDCOpen()
On Error Go to ErrorODBCOpen
XXX X X XXX
XX XX X X X X XX
X X X X X
X XX X
XX X
X XX

ErrorODBCOpen:
msgbox "Erro na conexão verifique a rede de seu computador"
Exit Function
End Function

Viva
Já usei esse código, mas no VBA quando falha a rede não considera como erro, pois o erro vai surgir no servidor.
Haverá forma de motitorizar o erro do sql server no vba?
Já experimentei o seguinte comando e também não funciona, dá erro na compilação do código
IF CON.SQLState='01000' then

Public Function OBDCOpen()
On Error Go to ErrorODBCOpen
'Código seu aqui


'Termina código seu aqui
ErrorODBCOpen:
Select Case Err.Number
Case 53: msgbox "ERRO SQL.STATE 01000 AQUI É A MENSAGEM DO ERRO 01000", vbInformation, "Aviso"
Case 17: msgbox "ERRO SQL.STATE 08001 AQUI É A MENSAGEM DO ERRO 08001", vbInformation, "Aviso"
Case Else
msgbox "MSSQL Server - " & Err.Description & " Nº: " & Err.Number
End Select
End Function

testa isso ai e veja se soluciona! ;]

Viva
Não funciona, desligo o cabo da rede do PC e ele mesmo assim dá o número de erro 0

Mas não apareceu nada de diferente? continua aparecendo as mesmas janelas?

Viva
Sim ficaram aparecendo as mesmas janelas

Não sei como te ajudar, só conseguiria algum jeito se eu estivesse presente no local ou com um MSSQL instalado aqui para testes... Mas abre um tópico ai que tem mestres aqui que pode te ajudar! abraços!

Ok, obrigado por toda a ajuda prestada
Um Abraço

Viva
Criei novo topico especifico para filtro em fromulario continuo desacoplado com ADO onde anexei a bd como exemplo.
http://maximoaccess.forumeiros.com/t11484-formulario-continuo-desvinculado-com-recordset-ado#90210
Agreço os vossos comentários/sugestões
Um Abraço
Rui Sérgio