(Resolvido) Testando conexão com Base de Dados pelo VB-6

[Danleonhart]

Como faço para criar um script para saber se há conexão com determinada Base de dados ?

Parecido com aquela que aparece quando se configurada um Banco de Dados via "interface":

Quero criar um Botão com esta opção :).

[raphael_suporte]

você verifica se consegue abrir conexão com o banco caso consiga, a conexão é valida e você exibe um msgbox informando que conseguiu acessar, caso contrario, a mensagem será negativa.

[Danleonhart]

OK... e como eu faço isso <_< ...

Uso conexão ADODB... com o seguinte script:

Dim ConCE As ADODB.Connection

Set ConCE = New ADODB.Connection
ConCE.Open "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source= " & App.Path & "\DBase.sdf;"

...

Editado Março 8, 2011 por Danleonhart

[raphael_suporte]

If  ConCE.state = 1 Then 'Aberto
        MsgBox "Conexão valida"
        ConCE.Close
    Else
        MsgBox "Conexão inválida"
    End If

Como você quer apenas verificar se o banco existe, feche sempre a conexão após validar.

Os paramentos passados para conexão deverão vir da tela

[Danleonhart]

OK !

Funcionou beleza ! ;)

Obrigado !