problema na conexão - grave....

[marcia232865 0]

gente, assim, tive que formatar minha maquina, e instalar o VB novamente, até aqui tudo bem, agora quando vou fazer uma conexão com a base de dados, (access) me dá o seguinte erro, nunca vi algo assim...essas instruções estão num modulo .bas:Public cnnclinica As New ADODB.ConnectionPublic Sub conecta()Dim path As Stringpath = App.path & "\clinica1.mdb"cnnclinica.Open "provider = microsoft.jet.oledb.4.0;persist security info=false;data source = " & path quando vou executar, ele fica na primeira linha, (Public cnnclinica As New ADODB.Connection), e dá a seguinte mensagem:compile error:user-defined type not definedo que é isso???valeu, márcia

[Luizgrs 0]

A(s) dll do ADO estão nesse PC também?

[marcia232865 0]

oi luiz, acho que sim, só estou trabalhando nesse PC, ele não está em rede, instalei todo o visual studio, tem como ver as dll??

[marcia232865 0]

oi, eu denovo, tinha que marcar , lá nas referencias do vb, microsof activex data objects 2.7, ok? se alguem tiver um bolor desses, era isso...marcia

[CarolAndrade 0]

Oi Marcia, Eu já cliquei nas referências e continua aparecendo esse mesmo erro. Você conseguiu resolver ? Como ?Obrigada

[luiz humberto 0]

Carol,Post seu trecho de codigo, e qual referência você selecionou.

[CarolAndrade 0]

Oi Luiz !Sou nova em VB estou fazendo um exercício da apostila e já conferi o código todo ! valeu pela ajuda. Segue o código:(General) - Declarations (Módulo 1 - Biblio.bas)Public cnnBiblio As New ADOBD.ConnectionPrivate Sub Timer1_Timer() On Error GoTo errConexao cnnBiblio.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & _ App.Path & "\Biblio.mdb;" cnnBiblio.Open Unload Me frmBiblio.Show Exit Sub errConexao: With Err If .Number <> 0 Then MsgBox "Houve um erro na conexão com o banco de dados." & _ vbCrLf & "O sistema será encerrado.", _ vbCritical + vbOKOnly + vbApplicationModal, "Erro na conexão" .Number = 0 Set cnnBiblio = Nothing End End If End WithEnd SubErro aparece sublinhando o comando: cnnBiblio As New ADOBD.ConnectionCom a mensagem: Compile error: User-defined type not definedA referência: Microsoft Activex Data Objects 2.6 LibraryA versão do Access é 2000 e o sistema operacional é o Windows XPValeu !!

[Luizgrs 0]

cnnBiblio As New ADOBD.Connection

Essa linha ta escrito errado ta invertido duas letras ADOBD o certo seria:

cnnBiblio As New ADODB.Connection

[luiz humberto 0]

Sendo assim, viável a utilização do auto completar do editor do Visual Basic.Utilize o CTRL+ESPACE

[CarolAndrade 0]

Muito Obrigada !!Carol

[luiz humberto 0]

Ok.Tópico Fechado