Global Conexao As New ADODB.Connection
Global Clientes As New ADODB.Recordset
Global sql As String
Sub BancoDeDados()
On Error GoTo TrataErro
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\eptsystem.mdb"
Exit Sub
TrataErro:
MsgBox "Erro interno."
End
End Sub
Pergunta
diegoinfo
Já testei em vários micros e acontece o mesmo erro.
No micro que eu estou fazendo e testando o código se eu iniciar o projeto novamente e copiar os códigos para este novo projeto. Não dá problema.
Mas se eu for tentar rodar outro dia o erro acontece de novo.
Fiz outros aplicativos que acessavam da mesma forma e nos mesmos micros e não deu problema.
E este último eu não estou conseguindo.
Alguém poderia me ajudar?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.