AMSSpecialist

if e_Row > 0 then
	local sCurrentTable = Grid.GetCellText("grdTables", e_Row, e_Column)
	local tblReturn = SQLite.QueryToTable(dbHandle, "Select sql from sqlite_master where tbl_name = '"..sCurrentTable.."'");
	if tblReturn.Rows > 0 then
		Grid.ExpandToFit("grdQueryResult", false, true)
		--find the primary key name if there is one
		nPos = String.Find(tblReturn.Data[1]["sql"], "integer primary key", 1, false);
		if nPos > -1 then
			nBracket=String.ReverseFind(String.Left(tblReturn.Data[1]["sql"], nPos - 1), "(")
			nComma=String.ReverseFind(String.Left(tblReturn.Data[1]["sql"], nPos - 1), ",")
			if nComma > -1 then
				if nComma > nBracket then
					sPrimaryKey = String.Mid(String.Left(tblReturn.Data[1]["sql"], nPos - 1), nComma + 1, -1)		
				else
					sPrimaryKey = String.Mid(String.Left(tblReturn.Data[1]["sql"], nPos - 1), nBracket + 1, -1)		
				end
			elseif nBracket > -1 then
				if nBracket > nComma then
					sPrimaryKey = String.TrimLeft(String.TrimRight(String.Mid(String.Left(tblReturn.Data[1]["sql"], nPos - 1), nBracket + 1, -1)," ")," ")		
				else
					sPrimaryKey = String.TrimLeft(String.TrimRight(String.Mid(String.Left(tblReturn.Data[1]["sql"], nPos - 1), nComma + 1, -1)," ")," ")
				end
			end
		else
			sPrimaryKey = ""
		end
	
		-- Clear e_Columns
		Grid.DeleteAllItems("grdQueryResult");

		--add e_RowID to the select 
		nCursor = SetCursor(32514)
		BindGrid(dbHandle, "grdQueryResult", "Select RowID, * from "..sCurrentTable);
		ReturnCursor(nCursor)
		Grid.AutoSizeColumns("grdQueryResult", GVS_BOTH, true)
		Grid.SetGridLines("grdQueryResult", true, true)
	end
end

local query = "SELECT * FROM TABLA1"
Items = {}; -- Aqui quedaran los elementos de la tabla una vez consultadosm accedes a ellos asi Items[1] Items[3] etc...
num = 0;
	for row in db:nrows(query) do
		num = num+1
		data = {numero = row.numero, etiqueta=row.etiqueta, sitioweb=row.sitioweb}
		Items[num] = data
		Application.Sleep(1)
	end