Rafael
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 08/12/2004 10:10 hs
Blz, galera.
Vê se alguém pode me ajudar.
Estou tentando abrir minha tabela que convertir para acsses 97 dessa forma: Sub Abrir()
Set a = DBEngine.Workspaces(0)
Set b = a.OpenDatabase(App.Path & "infotech_2.mdb")
Set r = r.OpenRecordset("Funcionarios", dbOpenDynaset)
End Sub Eu já coloquei a Referência Microsoft Dao 3.51.
Quando eu tento adicionar um registro informa o seguinte erro: type mismatch. E aponta para a linha: Set b = a.OpenDatabase(App.Path & "infotech_2.mdb") Alguém poderia me ajudar, por favor Valeu |
|
|
|
|
|
Rinaldo
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/12/2004 13:44 hs
Tente modificar esta linha Set b = a.OpenDatabase(App.Path & "infotech_2.mdb") para esta Set b = a.OpenDatabase(App.Path & "infotech_2.mdb") T+ Rinaldo |
|
|
|
Sandro
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/12/2004 23:24 hs
Olá Rafael, Primeiro, como estão definidas as variáveis a,b,r? Elas devem ser respectivamente Workspace, Database e Recordset. Você disse que quando tenta adicionar um registro ele dá o erro. Da forma como falou dá a impressão de que a cada inclusão, você abre o banco de dados, já que o erro é na linha de abertura do banco. Não faça isso... Abra o banco uma única vez e o feche quando o seu programa for fechado. As variáveis a (Workspace) e b (DataBase) devem ser globais para o projeto, ou seja definidas dentro de um módulo e não no formulário. Além disso, cuidado com App.Path, pois ela não retorna a barra no final e assim ela irá colar o caminho (path) com o nome do banco de dados e aí irá gerar um erro para você. |
|
|
|
Mateus
|
AMADORA
PT - PORTUGAL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/12/2004 09:13 hs
Independentemente de tudo o resto, parece-me que Set b = a.OpenDatabase(App.Path & "infotech_2.mdb") será Set b = a.OpenDatabase(App.Path & "infotech_2.mdb")
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
Mateus
|
AMADORA
PT - PORTUGAL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/12/2004 09:16 hs
é evidente que aqui sera: Set b = a.OpenDatabase(App.Path & barra"infotech_2.mdb") Esta coisa de tirarem os caracteres nos foruns complica tudo. Possivelmente o seu erro nem será aqui e, aparentemente, resulta apenas de as barras não aparecerem aqui.
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
Rey
|
CAMPINAS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/12/2004 09:34 hs
Bom dia Rafa, cara, tente o sistema não achando o seu banco de dados... verifica se este nome ( infotech_2.mdb ) está declarado certo. outra alternativa talvez seja renomeá-lo. boa sorte!
Reinaldo Lima Analyst Systems
|
|
|
|
