FALHA NA INSTALACAO
E ai galera da VbMania!
Estou com um problema gostaria da ajuda de vocês, perdoem o novato mas como faço para
gerar um Setup corretamente?
No meu programa contem uma conexão com um banco Access, e um MsFlexGrid, estou usando a biblioteca ADO,
Quando o programa le os Recodsets da Erro, acho que esta faltando algum arquivo, ou seja,
qdo eu gero o Setup acho que não estou colocando algum arquivo necessario.
Acontece exatamente nesse momento:
Public Cn as adodb.conection
Public rs as adodb.recordset
private sub Atualizar()
set rs = new recordset ( DA ERRO EXATAMENTE NESSA LINHA!!!)
rs.open "Select * From Tabela",cn,adopenkeyset,adlockop....
E por ai vai........
end sub
A mensagem do erro:
"Erro em Tempo de Execução '430'
Classe não oferece suporte a automação ou interface esperada"
Ah esqueci de dizer, isso no computador onde estou instalando, no meu funciona corretamente!
Estou com um problema gostaria da ajuda de vocês, perdoem o novato mas como faço para
gerar um Setup corretamente?
No meu programa contem uma conexão com um banco Access, e um MsFlexGrid, estou usando a biblioteca ADO,
Quando o programa le os Recodsets da Erro, acho que esta faltando algum arquivo, ou seja,
qdo eu gero o Setup acho que não estou colocando algum arquivo necessario.
Acontece exatamente nesse momento:
Public Cn as adodb.conection
Public rs as adodb.recordset
private sub Atualizar()
set rs = new recordset ( DA ERRO EXATAMENTE NESSA LINHA!!!)
rs.open "Select * From Tabela",cn,adopenkeyset,adlockop....
E por ai vai........
end sub
A mensagem do erro:
"Erro em Tempo de Execução '430'
Classe não oferece suporte a automação ou interface esperada"
Ah esqueci de dizer, isso no computador onde estou instalando, no meu funciona corretamente!
Você fez referencia ao DAo se não faça
Dim rs as object
set rs = set rs = createobject("adodb.recordset") e com os outros tambem
Dim rs as object
set rs = set rs = createobject("adodb.recordset") e com os outros tambem
Tópico encerrado , respostas não são mais permitidas