In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ayuda con sqlite

Foro público de Xailer en español
Responder
Jose de Jesus Garcia
Mensajes: 7
Registrado: Mar Jul 24, 2012 10:25 pm

ayuda con sqlite

Mensaje por Jose de Jesus Garcia »

hola
Soy nuevo en el manejo de bases sqlite y mysql estoy realizando una nueva
aplicación pero al intentar realizar la consulta a la base de datos me
indica el siguiente error:
***************************** Registro de errores
*****************************
Exe: C:ctrlpacisqlctrlpaci.exe
Version: 1.0.0.0
User name: Paulin
Computer name: ROSSY-PC
Fecha: 25/06/2012
Hora: 18:49:10
Memoria libre: 2234096
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 2.2.0 Version 2.2
Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
Version: 10
Compilador C/C++: Borland C++ 5.5.1 (32 bit)
Plataforma: Windows Windows Vista Home Edition 6.01.7601 Service Pack
1
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message or field name not found
Operación: TSQLTable:CSELECT
Argumentos: [ 1] = Tipo: C Valor: SELECT * From Usuarios Where
ID_USUARIO='PAULIN'
Fichero:
Código error SO: 0
Pila de llamadas:
TSQLTABLE:_CSELECT (1510)
TFACCESO:BTNBMP1CLICK (59)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
TBTNBMP:WMKEYDOWN (179)
RUNFORM (0)
TAPPLICATION:RUN (275)
MAIN (14)
les anexo el código que estoy utilizando en este proceso:
METHOD BtnBmp1Click( oSender ) CLASS TFacceso
Local cUsu,cClave,MiClave,cEclave,lUsuBloq,nEmpre,dFvence
Sclick()
cUsu:=AllTrim(::oEdit1:cText)
cClave:=AllTrim(::oEdit2:cText)
::oSQLiteDataSource1:lConnected:=.T.
With object ::oSQLTable1
:cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
:lOpen:=.T.
IF :lOpen
//:cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
//:Query("SELECT * From Usuarios Where USUARIO='"+cUsu+"' ")
//:Open()
:GoTop()
IF :Reccount() > 0
IF :PASS = cClave
IF :BLOQUEADO = '0'
IF G_fecha >= :vence
MsgBeep()
MsgInfo("ACCESO DENEGADO"+CRLF+" POR FECHA DE
VENCIMIENTO","")
::CLOSE()
ELSE
:lOpen:=.F.
::oSQLiteDataSource1:lConnected:=.F.
MsgInfo('Menu principal')
Endif
Else
MsgBeep()
MsgInfo("ACCESO DENEGADO","")
::CLOSE()
Endif
Else
MsgBeep()
MsgInfo("Clave de usuario incorrecta","")
I_Acceso++
IF I_Acceso >= 3
::CLOSE()
ENDIF
Endif
Else
MsgBeep()
MsgInfo("El Usuario no Existe....","")
I_Acceso++
IF I_Acceso >=3
::CLOSE()
ENDIF
Endif
Else
MsgBeep()
MsgInfo("No se puede abrir la base de usuarios","")
::CLOSE()
TFacceso():New( Application ):Show()
Endif
END WITH
RETURN Nil
por su ayuda mil gracias
Arriba
Avatar de Usuario
xhermita
Mensajes: 177
Registrado: Vie Feb 18, 2011 10:05 pm
Ubicación: Las Palmas de Gran Canaria
Contactar:
Contactar xhermita

ayuda con sqlite

Mensaje por xhermita »

Los objetos TSQLTable no tiene la propiedad cSelect ya que se utiliza
para acceder a la tablas al completo, no a consultas.
Utiliza el objeto TSQLQuery que si tiene la propiedad cSelect.
Un saludo
Pedro Amaro
El 24/07/2012 21:25, Jose de Jesus Garcia escribió:
> hola
>
> Soy nuevo en el manejo de bases sqlite y mysql estoy realizando una
> nueva aplicación pero al intentar realizar la consulta a la base de
> datos me indica el siguiente error:
>
> ***************************** Registro de errores
> *****************************
>
> Exe: C:ctrlpacisqlctrlpaci.exe
> Version: 1.0.0.0
> User name: Paulin
> Computer name: ROSSY-PC
> Fecha: 25/06/2012
> Hora: 18:49:10
> Memoria libre: 2234096
> Area actual: 1
>
> ------------------------- Información del compilador
> --------------------------
>
> Versión Xailer: Xailer 2.2.0 Version 2.2
> Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
> Version: 10
> Compilador C/C++: Borland C++ 5.5.1 (32 bit)
> Plataforma: Windows Windows Vista Home Edition 6.01.7601 Service
> Pack 1
>
> ----------------------- Información detallada del error
> -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Message or field name not found
> Operación: TSQLTable:CSELECT
> Argumentos: [ 1] = Tipo: C Valor: SELECT * From Usuarios Where
> ID_USUARIO='PAULIN'
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TSQLTABLE:_CSELECT (1510)
> TFACCESO:BTNBMP1CLICK (59)
> TBTNBMP:ONCLICK (0)
> TBTNBMP:CLICK (100)
> TBTNBMP:WMKEYDOWN (179)
> RUNFORM (0)
> TAPPLICATION:RUN (275)
> MAIN (14)
>
> les anexo el código que estoy utilizando en este proceso:
>
> METHOD BtnBmp1Click( oSender ) CLASS TFacceso
> Local cUsu,cClave,MiClave,cEclave,lUsuBloq,nEmpre,dFvence
> Sclick()
> cUsu:=AllTrim(::oEdit1:cText)
> cClave:=AllTrim(::oEdit2:cText)
> ::oSQLiteDataSource1:lConnected:=.T.
> With object ::oSQLTable1
> :cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
> :lOpen:=.T.
> IF :lOpen
> //:cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
> //:Query("SELECT * From Usuarios Where USUARIO='"+cUsu+"' ")
> //:Open()
> :GoTop()
> IF :Reccount() > 0
> IF :PASS = cClave
> IF :BLOQUEADO = '0'
> IF G_fecha >= :vence
> MsgBeep()
> MsgInfo("ACCESO DENEGADO"+CRLF+" POR FECHA DE
> VENCIMIENTO","")
> ::CLOSE()
> ELSE
> :lOpen:=.F.
> ::oSQLiteDataSource1:lConnected:=.F.
> MsgInfo('Menu principal')
> Endif
> Else
> MsgBeep()
> MsgInfo("ACCESO DENEGADO","")
> ::CLOSE()
> Endif
> Else
> MsgBeep()
> MsgInfo("Clave de usuario incorrecta","")
> I_Acceso++
> IF I_Acceso >= 3
> ::CLOSE()
> ENDIF
> Endif
> Else
> MsgBeep()
> MsgInfo("El Usuario no Existe....","")
> I_Acceso++
> IF I_Acceso >=3
> ::CLOSE()
> ENDIF
> Endif
> Else
> MsgBeep()
> MsgInfo("No se puede abrir la base de usuarios","")
> ::CLOSE()
> TFacceso():New( Application ):Show()
> Endif
> END WITH
> RETURN Nil
>
> por su ayuda mil gracias
>
>
Pedro Amaro
2PC Service
Xailer / Néfele / MySQL-MariaDB / SQLServer
Arriba
Jose de Jesus Garcia
Mensajes: 7
Registrado: Mar Jul 24, 2012 10:25 pm

ayuda con sqlite

Mensaje por Jose de Jesus Garcia »

muchas gracias por la ayuda voy a realizar el cambio y les comento
"Pedro Amaro" escribió en el mensaje de
noticias:500fa0cf$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Los objetos TSQLTable no tiene la propiedad cSelect ya que se utiliza
para acceder a la tablas al completo, no a consultas.
Utiliza el objeto TSQLQuery que si tiene la propiedad cSelect.
Un saludo
Pedro Amaro
El 24/07/2012 21:25, Jose de Jesus Garcia escribió:
> hola
>
> Soy nuevo en el manejo de bases sqlite y mysql estoy realizando una
> nueva aplicación pero al intentar realizar la consulta a la base de
> datos me indica el siguiente error:
>
> ***************************** Registro de errores
> *****************************
>
> Exe: C:ctrlpacisqlctrlpaci.exe
> Version: 1.0.0.0
> User name: Paulin
> Computer name: ROSSY-PC
> Fecha: 25/06/2012
> Hora: 18:49:10
> Memoria libre: 2234096
> Area actual: 1
>
> ------------------------- Información del compilador
> --------------------------
>
> Versión Xailer: Xailer 2.2.0 Version 2.2
> Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
> Version: 10
> Compilador C/C++: Borland C++ 5.5.1 (32 bit)
> Plataforma: Windows Windows Vista Home Edition 6.01.7601 Service
> Pack 1
>
> ----------------------- Información detallada del error
> -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Message or field name not found
> Operación: TSQLTable:CSELECT
> Argumentos: [ 1] = Tipo: C Valor: SELECT * From Usuarios Where
> ID_USUARIO='PAULIN'
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TSQLTABLE:_CSELECT (1510)
> TFACCESO:BTNBMP1CLICK (59)
> TBTNBMP:ONCLICK (0)
> TBTNBMP:CLICK (100)
> TBTNBMP:WMKEYDOWN (179)
> RUNFORM (0)
> TAPPLICATION:RUN (275)
> MAIN (14)
>
> les anexo el código que estoy utilizando en este proceso:
>
> METHOD BtnBmp1Click( oSender ) CLASS TFacceso
> Local cUsu,cClave,MiClave,cEclave,lUsuBloq,nEmpre,dFvence
> Sclick()
> cUsu:=AllTrim(::oEdit1:cText)
> cClave:=AllTrim(::oEdit2:cText)
> ::oSQLiteDataSource1:lConnected:=.T.
> With object ::oSQLTable1
> :cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
> :lOpen:=.T.
> IF :lOpen
> //:cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
> //:Query("SELECT * From Usuarios Where USUARIO='"+cUsu+"' ")
> //:Open()
> :GoTop()
> IF :Reccount() > 0
> IF :PASS = cClave
> IF :BLOQUEADO = '0'
> IF G_fecha >= :vence
> MsgBeep()
> MsgInfo("ACCESO DENEGADO"+CRLF+" POR FECHA DE
> VENCIMIENTO","")
> ::CLOSE()
> ELSE
> :lOpen:=.F.
> ::oSQLiteDataSource1:lConnected:=.F.
> MsgInfo('Menu principal')
> Endif
> Else
> MsgBeep()
> MsgInfo("ACCESO DENEGADO","")
> ::CLOSE()
> Endif
> Else
> MsgBeep()
> MsgInfo("Clave de usuario incorrecta","")
> I_Acceso++
> IF I_Acceso >= 3
> ::CLOSE()
> ENDIF
> Endif
> Else
> MsgBeep()
> MsgInfo("El Usuario no Existe....","")
> I_Acceso++
> IF I_Acceso >=3
> ::CLOSE()
> ENDIF
> Endif
> Else
> MsgBeep()
> MsgInfo("No se puede abrir la base de usuarios","")
> ::CLOSE()
> TFacceso():New( Application ):Show()
> Endif
> END WITH
> RETURN Nil
>
> por su ayuda mil gracias
>
>
Arriba
Jose de Jesus Garcia
Mensajes: 7
Registrado: Mar Jul 24, 2012 10:25 pm

ayuda con sqlite

Mensaje por Jose de Jesus Garcia »

muchas gracias funciona de maravilla
"Pedro Amaro" escribió en el mensaje de
noticias:500fa0cf$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Los objetos TSQLTable no tiene la propiedad cSelect ya que se utiliza
para acceder a la tablas al completo, no a consultas.
Utiliza el objeto TSQLQuery que si tiene la propiedad cSelect.
Un saludo
Pedro Amaro
El 24/07/2012 21:25, Jose de Jesus Garcia escribió:
> hola
>
> Soy nuevo en el manejo de bases sqlite y mysql estoy realizando una
> nueva aplicación pero al intentar realizar la consulta a la base de
> datos me indica el siguiente error:
>
> ***************************** Registro de errores
> *****************************
>
> Exe: C:ctrlpacisqlctrlpaci.exe
> Version: 1.0.0.0
> User name: Paulin
> Computer name: ROSSY-PC
> Fecha: 25/06/2012
> Hora: 18:49:10
> Memoria libre: 2234096
> Area actual: 1
>
> ------------------------- Información del compilador
> --------------------------
>
> Versión Xailer: Xailer 2.2.0 Version 2.2
> Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
> Version: 10
> Compilador C/C++: Borland C++ 5.5.1 (32 bit)
> Plataforma: Windows Windows Vista Home Edition 6.01.7601 Service
> Pack 1
>
> ----------------------- Información detallada del error
> -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Message or field name not found
> Operación: TSQLTable:CSELECT
> Argumentos: [ 1] = Tipo: C Valor: SELECT * From Usuarios Where
> ID_USUARIO='PAULIN'
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TSQLTABLE:_CSELECT (1510)
> TFACCESO:BTNBMP1CLICK (59)
> TBTNBMP:ONCLICK (0)
> TBTNBMP:CLICK (100)
> TBTNBMP:WMKEYDOWN (179)
> RUNFORM (0)
> TAPPLICATION:RUN (275)
> MAIN (14)
>
> les anexo el código que estoy utilizando en este proceso:
>
> METHOD BtnBmp1Click( oSender ) CLASS TFacceso
> Local cUsu,cClave,MiClave,cEclave,lUsuBloq,nEmpre,dFvence
> Sclick()
> cUsu:=AllTrim(::oEdit1:cText)
> cClave:=AllTrim(::oEdit2:cText)
> ::oSQLiteDataSource1:lConnected:=.T.
> With object ::oSQLTable1
> :cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
> :lOpen:=.T.
> IF :lOpen
> //:cSelect :="SELECT * From Usuarios Where ID_USUARIO='"+cUsu+"' "
> //:Query("SELECT * From Usuarios Where USUARIO='"+cUsu+"' ")
> //:Open()
> :GoTop()
> IF :Reccount() > 0
> IF :PASS = cClave
> IF :BLOQUEADO = '0'
> IF G_fecha >= :vence
> MsgBeep()
> MsgInfo("ACCESO DENEGADO"+CRLF+" POR FECHA DE
> VENCIMIENTO","")
> ::CLOSE()
> ELSE
> :lOpen:=.F.
> ::oSQLiteDataSource1:lConnected:=.F.
> MsgInfo('Menu principal')
> Endif
> Else
> MsgBeep()
> MsgInfo("ACCESO DENEGADO","")
> ::CLOSE()
> Endif
> Else
> MsgBeep()
> MsgInfo("Clave de usuario incorrecta","")
> I_Acceso++
> IF I_Acceso >= 3
> ::CLOSE()
> ENDIF
> Endif
> Else
> MsgBeep()
> MsgInfo("El Usuario no Existe....","")
> I_Acceso++
> IF I_Acceso >=3
> ::CLOSE()
> ENDIF
> Endif
> Else
> MsgBeep()
> MsgInfo("No se puede abrir la base de usuarios","")
> ::CLOSE()
> TFacceso():New( Application ):Show()
> Endif
> END WITH
> RETURN Nil
>
> por su ayuda mil gracias
>
>
Arriba
Responder

Volver a “Xailer Spanish”