|
|
|
|
|
|
|
|
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.
|
|
|
|
|
