HMG + SQLite
Posted: Wed Apr 10, 2013 9:18 pm
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
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