Acesso ao Banco e Percorrer no banco - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Acesso ao Banco e Percorrer no banco

$VALMIR$

UBERLANDIA
MG - BRASIL

ENUNCIADA !

Postada em 17/11/2006 17:00 hs

Alô galera, estou com uma duvida muito infame por sinal, eu acesso banco access a um certo tempo, mas só utilizo para inserção, portanto estou fazendo um novo esqueminha e com certeza, quem não treina e não estuda, vem para o VBweb para pedir ajuda,, hehehe portanto é o seguinte.
estou tentando acessar um banco de dados Access da seguinte forma que achei no Macoratti.

1 - Dim bd as Database
2 - Dim rs as Recordset
3 -
4 - Set bd = OpenDatabase("C:ControleControle.mdb")
5 - Set rs = bd.OpenRecordset("Clientes",DbOpenTable)

portanto esta dando um erro na linha 5 no OpenRecordset  'Method or data member not found

depois disso ai feito, gostaria que alguem me ajudasse a fazer uma varredura no banco, melhor dizendo, eu preciso percorrer registro por registro em um determinado Campo e ir comparando com uma variavel local.

em todos os artigos que estou vendo a forma de conexão é a mesma.. onde o OpenRecordset set a tabela, pois assim seria possivel fazer a minha verificação no campo desejado..

---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

ENUNCIADA !

Postada em 18/11/2006 18:11 hs

a linha 4 está errada..faltam as barras

Set bd = OpenDatabase("C:ControleControle.mdb")

é porisso q acontece o erro na hora de abrir a tabela...

feito isto.. no procedure onde vc vai fazer a sua busca...

ssql="select * from suatabela where suatabela.campoX=" & SUAVARIAVEL

OBS.: se a SUAVARIAVEL vc estiver pegando de um textbox por exemplo acrescente "" ( o final do sql ficaria

..... suatabela.campoX=" & """" & seutextbox.text & """"

depois ...

set tabela= bd.openrecordset(ssql, dbopensnapshot)

EU sempre verifico se existem registros primeiro...

do until tabela.eof

tabela.movenext

loop

Nregistros=tabela.recordcount

tabela.close

if Nregistros= 0 then

msgbox "Não Existem Itens Cadastrados", 16, "Cadastro de Blábláblá"

exit sub

endif

SE EXISTEM ITENS então a consulta é feita

do until tabela.eof

variavelA= tabela("NOMEDOCAMPO1")

....

variavelN= tabela("NOMEDOCAMPON")

tabela.movenext

loop

tabela.close

FUI

Página(s): 1/1

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

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2026 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site