ITEM NAO ENCONTRADO NESTA COLECAO
Galera, tinha o VB6 (SP6) instalado no Win98, agora mudei para o XP e instalei o Vb nele. Ao rodar o meu projeto que já rodava no 98, ocorria a mensagem de erro 3170 (CouldnÂÂÂ't find installable ISAM), baixei o Component Checker da Microsoft para verificar a versão do MDAC, e mostrou 2.8 SP 1 on Windows XP SP 2. Aà atualizei o MDAC 2.6, e agora aparece a mensagem "Item não encontrado nesta coleção") na linha Dtacli.refresh. O que pode ser ou o que está faltando atualizar ?
Valeu,
Mark
Valeu,
Mark
atualiza o MDAC para 2.8 novamente...
Esse comando REFRESH não deve existir no MDAC 2.6, por isso deu erro...
Esse comando REFRESH não deve existir no MDAC 2.6, por isso deu erro...
Aconteceu comigo também, instale o servicepack novamente...
Não deu certo. Mais alguma coisa que possa ser feito ?
isso msm
desinstala geral primeiro
instala na ordem:
1- vb
2- sp6 do vb
3- mdac 2.8
desinstala geral primeiro
instala na ordem:
1- vb
2- sp6 do vb
3- mdac 2.8
Não deu certo.
mark, posta a sua rotina ate a linha dtacli.refresh, agora o problema pode estar no código
qual a versão atual no seu mdac, pois se ela alterou depois da instalação do xp, no seu projeto acredito eu, também tenha que alterar a referencia a ela, supondo que no windows 98 era 2.6 e agora no xp esta como 2.8, então teria também que referenciar ela no seu projeto novamente.
AÃ está o código:
Private Sub Form_Load()
'-----------------------------------------------------------'
StatusBar1.Panels(1) = "Usuário: " & xUsuario
'abre tabela que será origem dos dados
Set Tblcad = DB.OpenRecordset("AGENDA", dbOpenTable)
'define o indice ativo
Tblcad.Index = "Nome"
'configura propriedades do Data Control
DtaCli.DatabaseName = sCaminho & "\cadastro.mdb"
DtaCli.RecordSource = "SELECT codigo,contato,nome,endereco,cidade,bairro,cep,uf,email,tele FROM Agenda ORDER BY nome"
DtaCli.Refresh
Set Rsdata = DtaCli.Recordset
Log_off = False
End Sub
Private Sub Form_Load()
'-----------------------------------------------------------'
StatusBar1.Panels(1) = "Usuário: " & xUsuario
'abre tabela que será origem dos dados
Set Tblcad = DB.OpenRecordset("AGENDA", dbOpenTable)
'define o indice ativo
Tblcad.Index = "Nome"
'configura propriedades do Data Control
DtaCli.DatabaseName = sCaminho & "\cadastro.mdb"
DtaCli.RecordSource = "SELECT codigo,contato,nome,endereco,cidade,bairro,cep,uf,email,tele FROM Agenda ORDER BY nome"
DtaCli.Refresh
Set Rsdata = DtaCli.Recordset
Log_off = False
End Sub
E respondendo a sua pergunta, a versão do MDAC é 2.8 SP1. E onde referenciá-la ? Não encontrei nada nas referências do projeto em relação a MDAC !
Valeu,
Mark
Valeu,
Mark
você esta usado datacontrol e esta usando DAO, portanto esqueça o que eu disse, já que o que te falei é para ADO declarado.
DtaCli.RecordSource =
pergunto, porque os espaços no select antes o codigo??? tente deixar tudo assim
"SELECT codigo, contato, nome, endereco, cidade, bairro, cep, uf, email, tele FROM Agenda ORDER BY nome"
outra coisa não foi renomeado ou excluido nenhum campo da suatabela???
tele é tele mesmo?? não seria telefone ou fone??
a mensagem Ãtem da coleção, deve se referir a algum campo na tabela pesquisada que não foi encontrado.
DtaCli.RecordSource =
pergunto, porque os espaços no select antes o codigo??? tente deixar tudo assim
"SELECT codigo, contato, nome, endereco, cidade, bairro, cep, uf, email, tele FROM Agenda ORDER BY nome"
outra coisa não foi renomeado ou excluido nenhum campo da suatabela???
tele é tele mesmo?? não seria telefone ou fone??
a mensagem Ãtem da coleção, deve se referir a algum campo na tabela pesquisada que não foi encontrado.
Tópico encerrado , respostas não são mais permitidas