Form Splash

[Anakia 0]

Eu estou fazendo um programa onde tem um form Splash que abre quando você executa o programa que nem o office XP

mais eu queria q quando ele fosse iniciado carregasse o banco de dados tambem mais deu erro no meu...

coloquei um time e coloque toda a codificação dentro do time:

 

CODE

Private Sub Timer1_Timer()

On Error GoTo errConexao

cnnCozi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _

"Data Source=" & App.Path & "\Cozinha.mdb;"

cnnCozi.Open

Unload Me

frmCoz.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 cnnCozi = Nothing

End

End If

End With

End Sub

 

 

 

e no meu modulo esta assim Oo:

CODE

Public cnnCozi As New ADODB.Connection

 

me ajudem por favor

[Anakia 0]

ASSUNTO RESOLVIDO

 

EU SO ESQUECI DE CCOLOCAR A VERSÃO DO JET CORRETA QUE SERIA PARA O MEU BANCO DE DA DOS ACESS 2003 QUE É 4.0

 

CODE

Private Sub Timer1_Timer()

On Error GoTo errConexao

cnnCozi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\Cozinha.mdb;"

cnnCozi.Open

Unload Me

frmCoz.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 cnnCozi = Nothing

End

End If

End With

End Sub

 

 

e no meu modulo esta assim Oo:

CODE

Public cnnCozi As New ADODB.Connection

me ajudem por favor