Este fórum está sendo desativado

[badchico]

Srs; Existe alguma forma de criar 2 conexões de banco de dados?
caso o banco principal não estiver ativo, ele busca no secundário.

Gostaria de adaptar ao código abaixo, pois esta somente para 1 banco de dados, e quando esse banco esta indisponível, tenho que alterar todas as 20 planilhas para o outro banco

Código: Selecionar todos

Dim connection As ADODB.connection
Dim recordSet As ADODB.recordSet
Dim stringSQL As String

Const stADO As String = "Provider=SQLOLEDB;Server=MSSQLMATRIZ;" & _
"Database=CONTROLRISK;" & _
"User Id=USERCONS;Password=12345;" 'SERVIDOR MATRIZ

[alexandrevba]

Bom dia!!

Já tentou usar outra variável

Código: Selecionar todos

Const stADO As String_BackUp

e outra conexão, apontando para outro banco?
Depois faça o tratamento de condição para caso um gerar error tentar o outro.
Veja:
http://stackoverflow.com/questions/2626 ... servers-at

Att

[badchico]

Bom dia!
Alexandre, vc pode me ajudar como faço essa condição caso ele não encontra o primeiro banco?

obrigado pela disponibilidade

att

[alexandrevba]

Bom dia!!

talvez.

Código: Selecionar todos

Sub ConnectBDServer2CaseBDServer1Fail()
Dim connection As ADODB.connection
Dim recordSet As ADODB.recordSet
Dim stringSQL As String

On Error GoTo SeuOutroBanco '<--~~~

Const stADO As String = "Provider=SQLOLEDB;Server=MSSQLMATRIZ;" & _
"Database=CONTROLRISK;" & _
"User Id=USERCONS;Password=12345;" 'SERVIDOR MATRIZ

SeuOutroBanco:              '<--~~~
'Se código aqui

End Sub

Att