Halfar Postado Novembro 6, 2005 Denunciar Share Postado Novembro 6, 2005 Declarei as seguintes variaveisDim BaseDados as DatabaseDim Tabela as RecordsetOcorre que quando voce digita Dim BaseDados as naquela pop que aparece já deveria aparecer database. Mas não aparece. E se tento executar o programa assim mesmo ocorre erro nesta linha dizendo que User-defined type not definedComo corrigir isto? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Novembro 6, 2005 Denunciar Share Postado Novembro 6, 2005 Marque uma referência ao DAO (Data Access Objects) pela opção References do menu Project. Ou, simplesmente coloque um componente Data no seu form e retire-o em seguida (só de colocá-lo a referência já será feita automaticamente).Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Halfar Postado Novembro 6, 2005 Autor Denunciar Share Postado Novembro 6, 2005 Ola,Isso mesmo, funcionou...Só que agora, como estou pegando dados do bd e jogando num arquivo texto, ocorre problema semelhante. Open "c:\nome.txt" For Output As #1Do Until tabela.EOFPrint #1, tabela.getString(, 100, vbTab, vbCrLf, "");LoopNão está aparecendo o getString na janelinha quando digito tabela.Semelhante ao problema anterior deve estar faltando marcar alguma opção lá em References, agora o duro é descobrir qual é...Saberia dizer qual é? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Novembro 6, 2005 Denunciar Share Postado Novembro 6, 2005 Ola,Isso mesmo, funcionou...Só que agora, como estou pegando dados do bd e jogando num arquivo texto, ocorre problema semelhante. Open "c:\nome.txt" For Output As #1Do Until tabela.EOFPrint #1, tabela.getString(, 100, vbTab, vbCrLf, "");LoopNão está aparecendo o getString na janelinha quando digito tabela.Semelhante ao problema anterior deve estar faltando marcar alguma opção lá em References, agora o duro é descobrir qual é...Saberia dizer qual é? Acho que você está misturando as coisas aí. GetString() é um método de um ADODB.Recordset, ou seja, de um Recordset do ADO (ActiveX Data Objects). No caso aí você está utilizando DAO (Data Access Objects) cujo Recordset não possui esse método.ADO é a tecnologia para acesso a dados mais recente e DAO é o método de acesso a dados nativo do VB. Hoje em dia, dá-se preferência ao aprendizado do ADO. Se o seu código não for extremamente dependente de elementos do DAO, não será difícil a adaptação para ADO. Experimente fazer uma busca no fórum e você verá exemplos disso.Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Halfar Postado Novembro 8, 2005 Autor Denunciar Share Postado Novembro 8, 2005 Ola,Bem, peguei este codigo aqui no forum mesmo. Então como faço para resolver isto? Preciso de um código para escrever em arquivo txt dados extraídos da base de dados. Como faço então para usar o ADO? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Novembro 8, 2005 Denunciar Share Postado Novembro 8, 2005 Ola,Bem, peguei este codigo aqui no forum mesmo. Então como faço para resolver isto? Preciso de um código para escrever em arquivo txt dados extraídos da base de dados. Como faço então para usar o ADO? Troque a abertura do banco de dados e da tabela para ADO. Como eu disse antes, aqui no fórum você encontra exemplos destas coisas.Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Halfar
Declarei as seguintes variaveis
Dim BaseDados as Database
Dim Tabela as Recordset
Ocorre que quando voce digita Dim BaseDados as naquela pop que aparece já deveria aparecer database. Mas não aparece. E se tento executar o programa assim mesmo ocorre erro nesta linha dizendo que User-defined type not defined
Como corrigir isto?
Link para o comentário
Compartilhar em outros sites
5 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.