Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

ayuda con sqlite

https://forum.xailer.com/viewtopic.php?t=11278

Página 1 de 1

ayuda con sqlite

Publicado: Mar Jul 24, 2012 10:25 pm
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

ayuda con sqlite

Publicado: Mié Jul 25, 2012 9:31 am
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
>
>

ayuda con sqlite

Publicado: Vie Jul 27, 2012 6:44 pm
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
>
>

ayuda con sqlite

Publicado: Jue Ago 02, 2012 9:35 pm
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
>
>
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España