Criação de indices


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Criação de indices

Anderson_Coelho

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 31/01/2006 09:58 hs

Bom dia !

Estou utilizando um codigo semelhante a este ..abaixo :

quando chega na linha do index o mesmo não é criado.

Alguém sabe informar qual a refencia que deve esta marcada para este codigo funcionar?

Dim bd as Database

Dim rs as Recordset

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

Set rs = bd.OpenRecordset("Clientes",DbOpenTable)

rs.index = "Nome"

rs.seek "=", "Ana Maria Rosa"

if rs.nomatch

msgbox "Cliente não localizado. "

else

msgbox rs.Fields("nome") & " localizado no arquivo. "

endif

valew

uma abraço

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 31/01/2006 10:48 hs

Anderson,

Se nao me engano, vc precisa ter o campo indexado no mdb para que o dao construa o index...

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)

Donkey

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 31/01/2006 16:44 hs

O access não cria indices automaticamente, ou vc faz isso no proprio access, ou execute a sql

create index nome_indice on tabela (nome_campo)

Para cria-la manualmente..... t+

vaini

PARAPUÃ
SP - BRASIL

ENUNCIADA !

Postada em 01/02/2006 14:28 hs

na hora de abrir sua tabela, tenta tirar o dbOpenbTable

deixa assim:

Set rs = bd.OpenRecordset("Clientes")

Poste o resultado depois.

Fernando Cesar Vaini

Se voce morrer daqui a 5 minutos, vai levar todo o seu conhecimento. Antes que isso aconteça, compartilhe-o!!!

Página(s): 1/1

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

VOLTAR