ERRO COM O ADO EM VB 6.0!!!! URGENTE!!!!!!!!!!!!!!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ERRO COM O ADO EM VB 6.0!!!! URGENTE!!!!!!!!!!!!!!

Guilherme
não registrado

ENUNCIADA !

Postada em 12/06/2005 15:09 hs

E ae galera do VBWeb....eu toh com um probleminha e preciso resolve-lo rapido...eu toh fazendo um programa pra controle de acesso de usuarios com conexão a banco de dados access 97 usando o ADO no Visual Basic 6.0 mas ele tah dando ERRO no Option Explict....na Primeira linha alguem pode me ajudar???? O codigo esta logo abaixo desse menssagem:

Option Explicit

Global cn As ADODB.Connection '(é nessa linha que tá dando erro o nome do erro é:User-defined type not deefined) o negrito é o que fica selecionado com o erro.

Global rs As ADODB.Recordset

________________________________________________________________________

Private Sub Main()
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strArquivo = "ControleAcesso.mdb"
strLocal = App.Path
Set cn = CreateObject("ADODB.Connection")
ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & strArquivo & ";" & _
"DefaultDir=" & strLocal & ";" & _
"Uid=Admin;Pwd=;"

cn.Open ConectaAccess

Load frmUsuarios
frmUsuarios.Show
End Sub

kerplunk

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 12/06/2005 18:21 hs

Primeiro: Por favor registre-se, é de graça e dá mais confiança pra gente responder.

Segundo: Já verificou as referências do projeto? O que está acontecendo é que o VB não pode reconhecer esse tipo de objeto, é um erro bem característico de falta de referência. Coloque as referências do ADO que o erro deve desaparecer.

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 13/06/2005 10:23 hs

Explicando melhor, vc deve ir em Project -> References e marcar referencia para o componente ADODB... o nome é "Microsoft ActiveX Data Objects"...

Ai vc vai poder compilar seu projeto, q o vb vai reconhecer o componente...

Flw!

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Guilherme90

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 15/06/2005 21:26 hs

E ae galera consigui sanar esse erro!!!!!!!!!era a referencia do ADO mesmo....mas agora o erro tá no ListView...Será que alguem pode me ajudar?

Segue abaixo o código do Listview:

_______________________________________________________________________

Private Sub montarLista()

Dim lstUsuaria As ListItem

Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select * from usuarios order by nome", cn, adOpenKeyset, adLockOptimistic

ListView1Usuário.ListItems.Clear 'acertei o nome do ListView

Set lstUsuaria = ListView1Usuário.ListItems.Add(, , "<Novo>")

If .EOF Then
MsgBox "Não existem usuários cadastrados no sistema.", vbExclamation
Else
Do Until rs.EOF
Set lstUsuaria = ListView1Usuário.ListItems.Add(, , rs("usuario"))

lstUsuaria.Tag = rs("cod_usuario")

lstUsuaria.SubItems(1) = rs("nome")
lstUsuaria.SubItems(2) = rs("dpto")
lstUsuaria.SubItems(3) = rs("cargo")
lstUsuaria.SubItems(4) = rs("senha")

rs.MoveNext
Loop
End If
.Close
End With

End Sub

Guilherme90

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 15/06/2005 21:26 hs

E ae galera consigui sanar esse erro!!!!!!!!!era a referencia do ADO mesmo....mas agora o erro tá no ListView...Será que alguem pode me ajudar?

Segue abaixo o código do Listview:

_______________________________________________________________________

Private Sub montarLista()

Dim lstUsuaria As ListItem

Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "select * from usuarios order by nome", cn, adOpenKeyset, adLockOptimistic

ListView1Usuário.ListItems.Clear 'acertei o nome do ListView

Set lstUsuaria = ListView1Usuário.ListItems.Add(, , "<Novo>")

If .EOF Then
MsgBox "Não existem usuários cadastrados no sistema.", vbExclamation
Else
Do Until rs.EOF
Set lstUsuaria = ListView1Usuário.ListItems.Add(, , rs("usuario"))

lstUsuaria.Tag = rs("cod_usuario")

lstUsuaria.SubItems(1) = rs("nome")
lstUsuaria.SubItems(2) = rs("dpto")
lstUsuaria.SubItems(3) = rs("cargo")
lstUsuaria.SubItems(4) = rs("senha")

rs.MoveNext
Loop
End If
.Close
End With

End Sub

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR