USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Fazer conexão com o BD em ADO indicando ao VB que informe se ocorrer algum erro
Postada em 27/6/2007 por JOM            
Inserir um módulo ao Projeto e declarar a conexão no módulo:

Public cnn_Nomedaconexão as New ADODB.Connection

Inserir um formSplash colocando nele um timer, informando um valor de no mínimo 1000 na propriedade “interval” e na janela de código do timer inserir a conexão com o Banco de Dados:

Private Sub Timer1_Timer()
On Error GoTo errconexao
cnn_Nomedaconexão.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = c:documents and settingsusuariomeus documentosNomedoBanco.mdb;"
cnn_Nomedaconexão.Open
Unload Me
Form1.Show
Exit Sub

errconexao:
With Err
If .Number <> 0 Then
MsgBox " houve um erro na conexão com o banco de dados." & _
vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "erro na conexão"
.Number = 0
Set cnn_Nomedaconexão = Nothing
End
End If
End With

Caso vc digito algo errado será informado, então pode procurar atentamente em seu comando para o acesso ao BD qual o erro.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página