Clipper On Line • Ver Tópico - Ayuda con DBSEEK()

Ayuda con DBSEEK()

Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

 

Ayuda con DBSEEK()

Mensagempor gburgardt » 04 Mar 2015 14:18

Hola tengo problemas para poder buscar un valor en una tabla
STATIC FUNCTION nroref1(nro_ref)
local vmensaje:= space (maxcol())
// alert ('llego a la funcion con '+nro_ref)

USE respop VIA "DBFCMX" NEW
ordSetFocus("nroref")
cmxSetScope(0)
cmxSetScope(1)
DBGOTOP()
nr:=IF(respop->(DBSEEK(nro_ref)),respop->nroref,'-')
alert(nr)
IF !(nr == '-')
   vmensaje:='el numero ingresado existe'
ENDIF

@ maxrow(),00 SAY vmensaje
RETURN !Empty(vmensaje)


Y me da este error "Workarea not indexed"
Cualquier ayuda es bienvenida muchas gracias
gburgardt
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 04 Mar 2015 14:11
Cidade/Estado: Argentina
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Ayuda con DBSEEK()

Mensagempor alxsts » 04 Mar 2015 15:00

Olá!

Seja bem-vindo ao fórum gburgardt!

Não conheço o driver "DBFCMX". Não seria "DBFCDX" ?

Troque a linha
USE respop VIA "DBFCMX" NEW
por
USE respop VIA "DBFCDX" NEW
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Ayuda con DBSEEK()

Mensagempor gburgardt » 04 Mar 2015 21:54

No the DBFCMX line is correct, because i using in others parts of code and works fine
I need only find a record with for example id = 999999 in dbf file but i dont know how
gburgardt
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 04 Mar 2015 14:11
Cidade/Estado: Argentina
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Ayuda con DBSEEK()

Mensagempor JoséQuintas » 05 Mar 2015 03:11

cmxSetScope(0) 
cmxSetScope(1)
dbGoTop()


Why?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Ayuda con DBSEEK()

Mensagempor janio » 05 Mar 2015 08:27

A mensagem de erro é AREA NÃO INDEXADA!

Ao que parece o índice não existe.

Primeiro vc deve criar o índice, assim:

USE respop NEW exclusive VIA "DBFCMX"
INDEX ON nroref TAG CHAVE1
Use
(Isto é necessário fazer apenas uma vez)

Depois:
STATIC FUNCTION nroref1(nro_ref)
local vmensaje:= space (maxcol())
// alert ('llego a la funcion con '+nro_ref)

USE respop VIA "DBFCMX" NEW
ordSetFocus("nroref")
DBGOTOP()
nr:=IF(respop->(DBSEEK(nro_ref)),respop->nroref,'-')
alert(nr)
IF !(nr == '-')
   vmensaje:='el numero ingresado existe'
ENDIF

@ maxrow(),00 SAY vmensaje
RETURN !Empty(vmensaje)
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Ayuda con DBSEEK()

Mensagempor Itamar M. Lins Jr. » 05 Mar 2015 09:12

Rsrsrsrs!
Tem que perguntar isso p/ quem fez o RDD!.
cmxSetScope(0)
// que comando é esse por exemplo ?

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro