Grupo,
Estoy tratando de hacer un sistema en HMG + SQLite, he visto el ejemplo que esta en HMG pero no tiene lo que necesito, es decir un resultset lo mete en un array y no quiero usar arreglos,
por ejemplo en SQL se usan:
oUnidadesEstaca := TODBC():New(oGsDAM)
LsRS := "SELECT IdUnidad, NombreUnidad FROM Unidades ORDER BY NombreUnidad"
oUnidadesEstaca:SetSql(LsRS)
oUnidadesEstaca:Open()
oUnidadesEstaca:First()
IF LEN (oUnidadesEstaca:aRecordset) > 0
DO WHILE !oUnidadesEstaca:EOF()
Frm_Unidades.Grd_UnidadesEstaca.AddItem ({ oUnidadesEstaca:FieldByName("IdUnidad"):VALUE,+;
oUnidadesEstaca:FieldByName("NombreUnidad"):VALUE })
oUnidadesEstaca:Skip()
ENDDO
ENDIF
y en el ejmplo de SQLite es:
aTable := sql(dbo,"SELECT Name, Address, Adress2 from Administracion ORDER BY Name")
for i := 1 to len(aTable)
aCurRow := aTable
// sample.table.additem({aCurRow[1],str(aCurRow[2]),str(aCurRow[3]),dtoc(aCurRow[4]),iif(aCurRow[5]==1,"True","False"),aCurRow[6]})
sample.table.additem ({ aCurRow[1], aCurRow[2], aCurRow[3] })
next i
if sample.table.itemcount > 0
sample.table.value := 1
endif
sample.table.Refresh
endif
Y lo que quiero evitar es usar arreglos, quiero el ResulSet, algo asi como: oUnidadesEstaca:FieldByName("IdUnidad"):VALUE
y los mismo es para Grabar o borrar,
Si alguno de ustedes ya ha hecho algo con SQLite mucho agradeceré me ayude ya que tengo sistemas pendientes por desarollar.
De antemano muchas gracias,
PD mi correo personal es: jorge.posadas@gmail.com
HMG + SQLite
Moderator: Rathinagiri
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: HMG + SQLite
Hola Jorge :
Tienes muchos ejemplos para ello.
mira el ejemplo de Harbour 3.0 C:\harbour\contrib\hbodbc\tests\odbccall.prg
y C:\MiniGUI\SAMPLES\BASIC\Firebird\Demo.prg
necesitas trabajar con Objetos para acceder los datos de una tabla OBDC
Tienes muchos ejemplos para ello.
mira el ejemplo de Harbour 3.0 C:\harbour\contrib\hbodbc\tests\odbccall.prg
y C:\MiniGUI\SAMPLES\BASIC\Firebird\Demo.prg
necesitas trabajar con Objetos para acceder los datos de una tabla OBDC
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: HMG + SQLite
Daniel,
Agradezco tu sugerencia, pero sigue siendo lo mismo, es decir, siempre el resultset lo graban en un array y es eso precisamente lo que NO deseo hacer.
Agradezco tu sugerencia, pero sigue siendo lo mismo, es decir, siempre el resultset lo graban en un array y es eso precisamente lo que NO deseo hacer.
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: HMG + SQLite
aqui no hay ningún arreglojoposadas wrote:Daniel,
Agradezco tu sugerencia, pero sigue siendo lo mismo, es decir, siempre el resultset lo graban en un array y es eso precisamente lo que NO deseo hacer.
Code: Select all
#require "hbodbc"
PROCEDURE Main()
LOCAL dsFunctions := TODBC():New( "DBQ=" + hb_FNameMerge( hb_DirBase(), "test.mdb" ) + ";Driver={Microsoft Access Driver (*.mdb)}" )
dsFunctions:SetSQL( "SELECT * FROM test" )
dsFunctions:Open()
? dsFunctions:FieldByName( "First" ):Value
? dsFunctions:Skip()
? dsFunctions:FieldByName( "First" ):Value
? dsFunctions:GoTo( 1 )
? dsFunctions:FieldByName( "First" ):Value
? dsFunctions:Prior()
? dsFunctions:FieldByName( "First" ):Value
? dsFunctions:First()
? dsFunctions:FieldByName( "First" ):Value
? dsFunctions:Last()
? dsFunctions:FieldByName( "First" ):Value
? dsFunctions:Close()
dsFunctions:Destroy()
RETURN
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: HMG + SQLite
Daniel,
Efectrivamente ahi no hay ningún arreglo y de hecho yo ya he hecho aplicaciones con HMG + MS-SQL y con HMG + Access y todo ha funcionado bien.
El problema que tengo es al intentar usar HMG + SQLite, ahi si he visto ejemplos y todos usan arreglos pero yo no deseo usar arreglos, quiero usar asi como me copiaste el ejemplo:
dsFunctions:FieldByName( "First" ):Value <---- algo asi para usarse con SQlite.
Efectrivamente ahi no hay ningún arreglo y de hecho yo ya he hecho aplicaciones con HMG + MS-SQL y con HMG + Access y todo ha funcionado bien.
El problema que tengo es al intentar usar HMG + SQLite, ahi si he visto ejemplos y todos usan arreglos pero yo no deseo usar arreglos, quiero usar asi como me copiaste el ejemplo:
dsFunctions:FieldByName( "First" ):Value <---- algo asi para usarse con SQlite.